易语言txt内容导入超级列表框

Question

求答

Answer 1

这里的例子中，是导入了运行目录下的“1.txt” 文本文件内的内容，（界面控件，超级列表框，按钮1）  代码如下

.版本 2
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
文本数组 ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (计次 － 1, 0, 文本数组 [计次])
.计次循环尾 ()

Answer 2

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

名称均为：通用对话框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])

    .如果真结束

.计次循环尾 ()