易语言超级列表框如何读入文件

易语言超级列表框如何读入文件

.版本 2
.支持库 shell
.子程序 _按钮1_被单击
浏览文件夹 (“选择信任目录”, )
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 局_文本, 文本型
.局部变量 局_类型, 文本型
.局部变量 局_数组, 文本型, , "0"
.局部变量 局_索引, 整数型
编辑框1.内容 ＝ 浏览文件夹 (“选择文件目录”, )
.如果真 (编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
.如果真 (取文本右边 (编辑框1.内容, 1) ≠ “\”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “\”
.如果真结束
局_类型 ＝ 编辑框1.内容 ＋ “*.txt”
局_文本 ＝ 寻找文件 (局_类型, )
超级列表框1.全部删除 ()
.判断循环首 (局_文本 ≠ “”)
局_类型 ＝ 编辑框1.内容 ＋ 局_文本
局_文本 ＝ 取文本左边 (局_文本, 倒找文本 (局_文本, “.”, , 假) － 1)
局_数组 ＝ 分割文本 (局_文本, “+”, )
.如果真 (取数组成员数 (局_数组) ≥ 3)
局_索引 ＝ 超级列表框1.插入表项 (, 到文本 (局_索引 ＋ 1), , , , )
超级列表框1.置标题 (局_索引, 1, 局_数组 [1])
超级列表框1.置标题 (局_索引, 2, 局_数组 [2])
超级列表框1.置标题 (局_索引, 3, 局_数组 [3])
超级列表框1.置标题 (局_索引, 4, 局_类型)
.如果真结束
局_文本 ＝ 寻找文件 (, )
.判断循环尾 ()

读入什么样的文件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息