超级列表框加入拖放对象了就不能翻译

妞丶哥要定你了

.版本 2
.支持库 iext

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 第一次分割, 文本型, , "0"
.局部变量 第二次分割, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 a, 整数型

.如果真 (寻找文本 (接收到的文件路径, “.txt”, , 假) ≠ -1)
    第一次分割 ＝ 分割文本 (到文本 (读入文件 (接收到的文件路径)), #换行符, )
    .如果真 (取数组成员数 (第一次分割) ＞ 0)
        超级列表框1.全部删除 ()
        .计次循环首 (取数组成员数 (第一次分割), n)
            第二次分割 ＝ 分割文本 (第一次分割 [n], “----”, )
            .如果真 (超级列表框1.查找表项 (第二次分割 [1], , , 1) ＝ -1)  ' 这句代码是过滤重复，不要可以删掉
                a ＝ 超级列表框1.插入表项 (, , , , , )
                超级列表框1.置标题 (a, 0, 到文本 (n))
                超级列表框1.置标题 (a, 1, 第二次分割 [1])
                超级列表框1.置标题 (a, 2, 第二次分割 [2])
                超级列表框1.置标题 (a, 3, 第二次分割 [3])
                超级列表框1.置标题 (a, 4, 第二次分割 [3])
                超级列表框1.置标题 (a, 5, 第二次分割 [3])
                超级列表框1.置标题 (a, 6, 第二次分割 [3])
            .如果真结束

        .计次循环尾 ()
    .如果真结束