.版本 2
.子程序 _按钮1_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 index, 整数型
文本组 = 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 = “”
.计次循环首 (取数组成员数 (文本组), i)
index = 寻找文本 (文本组 [i], “1”, , 假)
.如果真 (index ≠ -1)
.如果真 (寻找文本 (文本组 [i], “1”, index + 1, 假) ≠ -1)
编辑框2.加入文本 (文本组 [i] + #换行符)
.如果真结束
.如果真结束
.计次循环尾 ()
试试看吧