sbxaqtd 发表于 2024-5-24 11:32:28

超级列表框置标题时，提示数组成员超出范围

.版本 2
.支持库 iext

.子程序 _按钮3导入_被单击
.局部变量 账号文本, 文本型
.局部变量 分割一次, 文本型, , "0"
.局部变量 局计次, 整数型
.局部变量 分割二次, 文本型, , "0"
.局部变量 分割三次, 文本型, , "0"
.局部变量 表项索引, 整数型


通用对话框1导入.打开 ()

账号文本 ＝ 到文本 (读入文件 (通用对话框1导入.文件名))
分割一次 ＝ 分割文本 (账号文本, #换行符, )
.计次循环首 (取数组成员数 (分割一次), 局计次)
    分割二次 ＝ 分割文本 (分割一次 [局计次], “----”, )
    表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项索引, 0, 到文本 (局计次))
    超级列表框1.置标题 (表项索引, 1, 分割二次 )
    超级列表框1.置标题 (表项索引, 2, 分割二次 )
    超级列表框1.置标题 (表项索引, 3, 分割二次 )
    超级列表框1.置标题 (表项索引, 4, 分割二次 )
    超级列表框1.置标题 (表项索引, 5, 分割二次 )

sbxaqtd 发表于 2024-5-24 11:34:46

运行时出错！
错误代码：1
错误信息：数组成员引用下标超出定义范围
67208745，603

人字拖 发表于 2024-5-25 00:24:55

把文本文件里的内容也贴出来看看

sbxaqtd 发表于 2024-5-26 10:10:22

人字拖 发表于 2024-5-25 00:24
把文本文件里的内容也贴出来看看

321456789----xx11..56----姓名----住址----身份证号
334411225----xx11..56----姓名----住址----身份证号

人字拖 发表于 2024-5-27 00:42:58

sbxaqtd 发表于 2024-5-26 10:10
321456789----xx11..56----姓名----住址----身份证号
334411225----xx11..56----姓名----住址----身份证 ...

这样看好像没有问题,你把光标点到文本文档内容的最后一行的下一行然后按删除键让光标回到上一行,保存后再试试

iqxmsj 发表于 2024-5-29 23:17:09

:D路过看看

九重天 发表于 2024-6-10 20:25:24

里面再套一个循环

九重天 发表于 2024-6-10 20:32:11

.版本 2
.支持库 iext

.子程序 子程序_导入文本
.局部变量 局_账号文本, 文本型
.局部变量 局_账号组, 文本型, , "0"
.局部变量 局_账号组1, 文本型, , "0"
.局部变量 局_表项索引, 整数型
.局部变量 局_计数, 整数型
.局部变量 局_计数1, 整数型

.如果真 (通用对话框1.打开 ())
    局_账号文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    局_账号组 ＝ 分割文本 (局_账号文本, #换行符, )
    .计次循环首 (取数组成员数 (局_账号组), 局_计数)
      局_账号组1 ＝ 分割文本 (局_账号组 [局_计数], “----”, )
      局_表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
      .计次循环首 (取数组成员数 (局_账号组1), 局_计数1)
            .判断开始 (局_计数1 ＝ 1)
                超级列表框1.置标题 (局_表项索引, 局_计数1 － 1, 到文本 (局_计数1))
            .默认
                超级列表框1.置标题 (局_表项索引, 局_计数1 － 1, 局_账号组1 [局_计数1])
            .判断结束

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


九重天 发表于 2024-6-10 20:35:50

九重天 发表于 2024-6-10 20:32
.版本 2
.支持库 iext



对了，我这个没有弄序号，如果需要的话，就在我的源码，取数组成员数(局_账号组1)后面加1。也就是变成取数组成员数(局_账号组1)+1
页: [1]
查看完整版本: 超级列表框置标题时，提示数组成员超出范围