Question

易语言超级列表框怎么读取文件夹文件

超级列表狂怎么读取在D盘\lingyun\ 这个文件夹里面的所有文件到超级列表框里面 一个文件一行 显示文件名 最好就是不显示后缀
请给出例子！！！谢谢了！！直接读取 不需要按钮的！

Answer 1

版本 2
.支持库 shell
.支持库 iext
.程序集 窗口程序集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, 局_类型)
.如果真结束
局_文本 ＝ 寻找文件 (, )
.判断循环尾 ()