易语言 数组 相同 求和

1，这是文本型数组直接运算 不可能 除非单个的取出来分割后转数值型，再找相同的X[1],进行X[2]运算
2，就算转了算好了，也得再重新加入成员到B 才能得到,B ＝ { “a,3”, “b,5 ” } 这玩意
这是我目前的水平了 盼高手更好办法
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 a, 文本型, , "4"

.子程序 __启动窗口_创建完毕
.局部变量 X, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 N1, 整数型
.局部变量 Y, 文本型, , "0"
.局部变量 Z, 整数型
.局部变量 B, 文本型, , "0"

a ＝ { “a,1”, “b,2”, “a,2”, “b,3” }
.计次循环首 (2, n)
X ＝ 分割文本 (a [n], “,”, )
删除成员 (a, n, 1)
.计次循环首 (取数组成员数 (a), N1)
Y ＝ 分割文本 (a [N1], “,”, )
.如果真 (寻找字节集 (到字节集 (Y [1]), 到字节集 (X [1]), 1) ≠ -1)
删除成员 (a, N1, 1)
Z ＝ 到数值 (X [2]) ＋ 到数值 (Y [2])
加入成员 (B, X [1] ＋ “,” ＋ 到文本 (Z))
跳出循环 ()
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
调试输出 (B)