拖放文本到超级列表框问题.如果为0如何修改数值

xiassang · 发表于 2023-7-27 18:45:30

.版本 2
.支持库 iext

.参数接收到的文件路径, 文本型
.局部变量分割, 文本型, , "0"
.局部变量计次, 整数型
.局部变量索引, 整数型
.局部变量分割2, 文本型, , "0"
.局部变量表项, 整数型
.局部变量节点1, 文本型
.局部变量 i, 整数型
.局部变量起始行, 整数型
.局部变量结束行, 整数型
.局部变量列内容, 文本型

文件＝读入文件 (接收到的文件路径)
分割＝分割文本 (到文本 (文件), #换行符, )
.计次循环首 (取数组成员数 (分割), 计次)
.如果真 (分割 [计次] ＝ “”)
到循环尾 ()
.如果真结束
分割2 ＝分割文本 (分割 [计次], 选择 (寻找文本 (分割 [计次], 字符 (#空格键), , 假) ≠ -1, 字符 (#空格键), “ ”), )
重定义数组 (分割2, 真, 9) ' 偷懒法！
索引＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 1, 分割2 [1])
超级列表框1.置标题 (索引, 2, 分割2 [2])
超级列表框1.置标题 (索引, 3, 分割2 [3])
超级列表框1.置标题 (索引, 4, 分割2 [4])
超级列表框1.置标题 (索引, 5, 分割2 [5])
超级列表框1.置标题 (索引, 6, 分割2 [6])
超级列表框1.置标题 (索引, 7, 分割2 [7])
超级列表框1.置标题 (索引, 8, 分割2 [8])
超级列表框1.置标题 (索引, 9, 分割2 [9])
进度条1.位置＝到整数 (计次 ÷ 取数组成员数 (分割) × 100)
.计次循环尾 ()
进度条1.位置＝ 0
信息框 (“导入成功”, 0, , )