Question

易语言文本导入超级列表框？

txt文本格式是：201005日 05 06 07 08 09 10 11
201006日 04 08 09 10 20 30 33
201011日 03 05 07 09 20 22 29
超级列表框：
超级列表框1.置标题 (列表框, 0, 排序号)
超级列表框1.置标题 (列表框, 1, 第一组数据 )
超级列表框1.置标题 (列表框, 2, 第二组数据)
超级列表框1.置标题 (列表框, 3, 第三组数据)
超级列表框1.置标题 (列表框, 4, 第四组数据)
超级列表框1.置标题 (列表框, 5, 第五组数据)
超级列表框1.置标题 (列表框, 6, 第六组数据)
超级列表框1.置标题 (列表框, 7, 第七组数据)
超级列表框1.置标题 (列表框, 8, 第八组数据)
点击按键后把文本每行用空格号分割成八组，回车换行。放在超级列表框中，请问大虾位这个要怎样写编码。

Answer 1

组件：通用对话框、按钮、超级列表框

名称均为：通用对话框1、按钮1、超级列表框1

代码如下：

.版本 2

.支持库 EThread

.支持库 iext

.程序集 窗口程序集_启动窗口

.程序集变量 文本, 文本型

.子程序 _按钮1_被单击

.如果真 (通用对话框1.打开 ())

    文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))

    .如果真 (删首尾空 (文本) ≠ “”)

        启动线程 (&子程序1, , )

    .如果真结束

.如果真结束

.子程序 子程序1

.局部变量 分割_文本行, 文本型, , "0"

.局部变量 n, 整数型

.局部变量 临时文本, 文本型

.局部变量 分割_号码, 文本型, , "0"

.局部变量 a, 整数型

分割_文本行 ＝ 分割文本 (文本, #换行符, )

.计次循环首 (取数组成员数 (分割_文本行), n)

    临时文本 ＝ 删首尾空 (分割_文本行 [n])

    .如果真 (临时文本 ≠ “”)

        分割_号码 ＝ 分割文本 (临时文本, “ ”, )

        a ＝ 超级列表框1.插入表项 (, , , , , )

        超级列表框1.置标题 (a, 0, 分割_号码 [1])

        超级列表框1.置标题 (a, 1, 分割_号码 [2])

        超级列表框1.置标题 (a, 2, 分割_号码 [3])

        超级列表框1.置标题 (a, 3, 分割_号码 [4])

        超级列表框1.置标题 (a, 4, 分割_号码 [5])

        超级列表框1.置标题 (a, 5, 分割_号码 [6])

        超级列表框1.置标题 (a, 6, 分割_号码 [7])

        超级列表框1.置标题 (a, 7, 分割_号码 [8])

    .如果真结束

.计次循环尾 ()