易语言文本替换，请高手帮忙如图，将文本中第一个逗号“,”前的空格替换成一个“,”，把最右面的逗号删除基本就是上面的样子是

练手弄了一个 有点长 不过实用 用数组搞的
.版本 2
.局部变量 text, 文本型
.局部变量 list1, 文本型, , "0"
.局部变量 list2, 文本型, , "0"
.局部变量 a
.局部变量 b
.局部变量 back, 文本型
.局部变量 temp, 文本型
text ＝ 编辑框1.内容
list1 ＝ 分割文本 (text, #换行符, )
.计次循环首 (取数组成员数 (list1), a)
temp ＝ “”
list2 ＝ 分割文本 (list1 [a], “,”, )
.如果真 (取数组成员数 (list2) ＞ 0)
list2 [1] ＝ 删全部空 (list2 [1])
.如果真结束
插入成员 (list2, 2, “”)
.计次循环首 (取数组成员数 (list2), b)
.如果真 (temp ≠ “”)
temp ＝ temp ＋ “,”
.如果真结束
temp ＝ temp ＋ list2 [b]
.计次循环尾 ()
.如果真 (back ≠ “”)
back ＝ back ＋ #换行符
.如果真结束
back ＝ back ＋ temp
.计次循环尾 ()
编辑框1.内容 ＝ back