.版本 2
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 合一, 文本型
.变量循环首 (0, 组合框1.取项目数 () - 1, 1, i)
合一 = 合一 + 组合框1.取项目文本 (i)
.变量循环尾 ()
列表框1.加入项目 (编辑框1.内容 + “ ” + 合一, )
.变量循环首 (0, 列表框1.取项目数 () - 1, 1, i)
写到文件 (取运行目录 () + “\1.txt”, 到字节集 (列表框1.取项目文本 (i)))
.变量循环尾 ()
.子程序 __启动窗口_创建完毕
.局部变量 行数, 文本型, , "0"
.局部变量 a, 文本型
.局部变量 i, 整数型
a = 到文本 (读入文件 (“1.txt”))
行数 = 分割文本 (a, #换行符, )
.计次循环首 (取数组成员数 (行数), i)
列表框1.加入项目 (行数 [i], )
.计次循环尾 ()
留下qq可以吗?