.版本 2

.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.局部变量 读到的, 文本型

.局部变量 第一次分割, 文本型, , "0"

.局部变量 第二次分割, 文本型, , "0"

.局部变量 局_计次, 整数型

.局部变量 n, 整数型

.局部变量 索引, 整数型

读到的 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))

第一次分割 ＝ 分割文本 (读到的, 到文本 (#换行符), )

.计次循环首 (取数组成员数 (第一次分割), 局_计次)

第二次分割 ＝ 分割文本 (第一次分割 [局_计次], “ ”, )

索引 ＝ 超级列表框1.插入表项 (0, 第二次分割 [1], , , , )

超级列表框1.置标题 (索引, 1, 第二次分割 [2])

超级列表框1.置标题 (索引, 2, 第二次分割 [3])

超级列表框1.置标题 (索引, 3, 第二次分割 [4])

超级列表框1.置标题 (索引, 4, 第二次分割 [5])

.计次循环尾 ()

.子程序 _按钮_新增记录_被单击

.局部变量 索引, 整数型

索引 ＝ 超级列表框1.插入表项 (超级列表框1.取表项数 () － 1, “zhanghao”, , , , )

超级列表框1.置标题 (索引, 1, “123”)

超级列表框1.置标题 (索引, 2, “[email protected]”)

超级列表框1.置标题 (索引, 3, “12547899”)

超级列表框1.置标题 (索引, 4, “cghbf”)

.子程序 __启动窗口_将被销毁

.局部变量 数据, 文本型

.局部变量 局_计次, 整数型

.局部变量 n, 整数型

.计次循环首 (超级列表框1.取表项数 (), 局_计次)

.计次循环首 (5, n)

数据 ＝ 数据 ＋ 超级列表框1.取标题 (局_计次 － 1, n － 1)

数据 ＝ 数据 ＋ “ ”

.计次循环尾 ()

数据 ＝ 数据 ＋ 到文本 (#换行符)

.计次循环尾 ()

写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (数据))