分割文本导入到超级列表框

大猫猫

txt里面的文件是这数字a[空格]数字b我想导入到超级列表框第一列是数字a 第二列的数字b
但是一直报错 下面是我的代码

  

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “文本文件|*.txt”
如果真 (通用对话框1.打开 ())

文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
j ＝ j ＋ 1
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (j － 1, 0, 到文本 (j))
超级列表框1.置标题 (j － 1, 1, 文本数组2 [1])
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> <br /> 通用对话框1.类型 ＝ 0<br /> <br /> 通用对话框1.过滤器 ＝ “文本文件|*.txt”<br /> <br /> <br /> <br /> .如果真 (通用对话框1.打开 ())<br /> <br /> .如果真结束<br /> <br /> 文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     j ＝ j ＋ 1<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (j － 1, 0, 到文本 (j))<br />     超级列表框1.置标题 (j － 1, 1, 文本数组2 [1])<br /> .计次循环尾 ()

鹏书

  

计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
如果真 (取数组成员数 (文本数组2) ＝ 2)
j ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (j, 0, 文本数组2 [1])
超级列表框1.置标题 (j, 1, 文本数组2 [2])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     .如果真 (取数组成员数 (文本数组2) ＝ 2)<br />         j ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (j, 0, 文本数组2 [1])<br />         超级列表框1.置标题 (j, 1, 文本数组2 [2])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

蛀牙

循环里面改成

  

文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
如果真 (取数组成员数 (文本数组2) ＝ 2)
j ＝ 超级列表框1.插入表项 (, 文本数组2 [1], , , , )
超级列表框1.置标题 (j, 1, 文本数组2 [2])

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br />         文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />         .如果真 (取数组成员数 (文本数组2) ＝ 2)<br />             j ＝ 超级列表框1.插入表项 (, 文本数组2 [1], , , , )<br />             超级列表框1.置标题 (j, 1, 文本数组2 [2])

时髦猪

  

如果真 (通用对话框1.打开 () ＝ 假)
返回 ()

文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
超级列表框1.插入表项 (i － 1, , , , , )
超级列表框1.置标题 (i － 1, 0, 文本数组2 (1))
超级列表框1.置标题 (i － 1, 1, 文本数组2 [2])
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .如果真 (通用对话框1.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> 文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     超级列表框1.插入表项 (i － 1, , , , , )<br />     超级列表框1.置标题 (i － 1, 0, 文本数组2 (1))<br />     超级列表框1.置标题 (i － 1, 1, 文本数组2 [2])<br /> .计次循环尾 ()

lisher

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
i	整数型
索引	整数型
文本数组2	文本型		0

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “文本文件|*.txt”
如果真 (通用对话框1.打开 ())
文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )

计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], “ ”, )
索引 ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )
超级列表框1.置标题 (索引, 1, 文本数组2 [1])
超级列表框1.置标题 (索引, 2, 文本数组2 [1])
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序1<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 文本数组2, 文本型, , "0"<br /> <br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.过滤器 ＝ “文本文件|*.txt”<br /> .如果真 (通用对话框1.打开 ())<br />     文本数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, “ ”, )<br />     索引 ＝ 超级列表框1.插入表项 (, 到文本 (i), , , , )<br />     超级列表框1.置标题 (索引, 1, 文本数组2 [1])<br />     超级列表框1.置标题 (索引, 2, 文本数组2 [1])<br /> <br /> .计次循环尾 ()

sunfly

超级列表框1.置标题 (j － 1, 0, 到文本 (j))        这里放j做序号？ 如果是应该加第3行，不放序号直接删除这行把下面的列索引改0，1
超级列表框1.置标题 (j － 1, 1, 文本数组2 [1])
超级列表框1.置标题 (j － 1, 2, 文本数组2 [2])

Bong

你这头像不错 恰好我看过这部

大猫猫

鹏书 发表于 2023-8-30 14:07
[e=0].版本 2
.支持库 iext

但是这个一多他就导入不进去