超级列表框加入拖放对象了就不能翻译
.版本 2.支持库 iext
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 第一次分割, 文本型, , "0"
.局部变量 第二次分割, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 a, 整数型
.如果真 (寻找文本 (接收到的文件路径, “.txt”, , 假) ≠ -1)
第一次分割 ＝ 分割文本 (到文本 (读入文件 (接收到的文件路径)), #换行符, )
.如果真 (取数组成员数 (第一次分割) ＞ 0)
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (第一次分割), n)
第二次分割 ＝ 分割文本 (第一次分割 , “----”, )
.如果真 (超级列表框1.查找表项 (第二次分割 , , , 1) ＝ -1)' 这句代码是过滤重复，不要可以删掉
a ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a, 0, 到文本 (n))
超级列表框1.置标题 (a, 1, 第二次分割 )
超级列表框1.置标题 (a, 2, 第二次分割 )
超级列表框1.置标题 (a, 3, 第二次分割 )
超级列表框1.置标题 (a, 4, 第二次分割 )
超级列表框1.置标题 (a, 5, 第二次分割 )
超级列表框1.置标题 (a, 6, 第二次分割 )
.如果真结束
.计次循环尾 ()
.如果真结束
页:
[1]