好友
阅读权限10
听众
最后登录1970-1-1
|
.版本 2
.支持库 edroptarget
.支持库 spec
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数组2, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 索引, 整数型
.局部变量 序号, 整数型
通用对话框1.类型 = 0
通用对话框1.过滤器 = “文本文件(*.txt)|*.txt”
通用对话框1.打开 ()
调试输出 (文本数组)
读入文件 (通用对话框1.文件名)
文本数组 = 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环首 (取数组成员数 (文本数组), n)
文本数组2 = 分割文本 (文本数组 [n], “$”, )
序号 = 序号 + 1
索引 = 超级列表框1.插入表项 (, 文本数组2 [1], , , , )
超级列表框1.置标题 (索引, 0, 到文本 (序号))
超级列表框1.置标题 (索引, 1, 文本数组2 [1])
超级列表框1.置标题 (索引, 2, 文本数组2 [2])
.计次循环尾 ()
|
|