|
发表于 2012-3-18 02:34:43
|
显示全部楼层
山西省大同市
- .版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .程序集变量 文本数组1, 文本型, , "0"
- .程序集变量 文本数组2, 文本型, , "0"
- .子程序 __启动窗口_创建完毕
- .子程序 _按钮1_被单击
- .局部变量 i, 整数型
- .如果真 (通用对话框1.打开 () = 假)
- 返回 ()
- .如果真结束
- 文本数组1 = 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
- .计次循环首 (取数组成员数 (文本数组1), i)
- 文本数组2 = 分割文本 (文本数组1 [i], “----”, )
- 超级列表框1.插入表项 (, 文本数组2 [3], , , , )
- .计次循环尾 ()
- .子程序 _超级列表框1_左键单击表项
- .局部变量 i, 整数型
- 编辑框1.内容 = “”
- .计次循环首 (取数组成员数 (文本数组1), i)
- .如果真 (寻找文本 (文本数组1 [i], 超级列表框1.取标题 (超级列表框1.现行选中项, ), , 假) ≠ -1)
- 编辑框1.加入文本 (文本数组1 [i] + #换行符)
- .如果真结束
- .计次循环尾 ()
复制代码
补充内容 (2012-3-18 02:35):
看看是这样吗 |
|