|
发表于 2020-3-11 13:47:14
|
显示全部楼层
河南省郑州市
模块版本:v8.0.5
所用系统:TX云2012版本
命令名称:拖放对象.拖放对象_zc()
BUG描述:zc拖放对象后,在TX云上面打开直接崩溃,低版本的:拖放对象.zc拖放 (_启动窗口.取窗口句柄 (), &拖放处理) 正常
我的联系QQ:1193393624
拖放对象.拖放对象_zc (超级列表框1.取窗口句柄 (), &拖放处理)
.版本 2
.支持库 iext
.子程序 拖放处理
.参数 文件路径, 文本型
.局部变量 text, 文本型
.局部变量 text1, 文本型, , "0"
.局部变量 text2, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 n, 整数型
text = 到文本 (读入文件 (文件路径))
.如果真 (text ≠ “”)
text1 = 分割文本 (text, #换行符, )
.如果真 (取数组成员数 (text1) ≠ 0)
.计次循环首 (取数组成员数 (text1), i)
text2 = 分割文本 (text1 [i], “----”, )
.如果真 (取数组成员数 (text2) ≥ 2)
n = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n, 0, 到文本 (n + 1))
超级列表框1.置标题 (n, 1, text2 [1])
超级列表框1.置标题 (n, 2, text2 [2])
.如果真结束
.计次循环尾 ()
.如果真结束
|
|