Question

易语言列表框的问题，O(∩_∩)O谢谢

我想实现，打开程序 列表框自动搜索当前目录与下一级目录里面的TXT文件，列表框会自动加入项目，项目名称就是TXT的文件名。。代码如何写？

Answer 1

给你看看，有问题继续回答！
.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 _按钮1_被单击
编辑框1.内容 ＝ 浏览文件夹 (“请选择文件夹：”, )
.子程序 _按钮2_被单击
.局部变量 目录, 文本型
.局部变量 I, 整数型
.局部变量 文件, 文本型
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请选择文件夹！”, 0, )
返回 ()
.如果真结束
标签1.标题 ＝ “（” ＋ 编辑框1.内容 ＋ “）” ＋ “该目录下的所有子目录：”
标签2.标题 ＝ “（” ＋ 编辑框1.内容 ＋ “）” ＋ “该目录下的所有TXT文件：”
搜索 (编辑框1.内容)
.计次循环首 (列表框1.取项目数 (), I)
目录 ＝ 列表框1.取项目文本 (I － 1)
文件 ＝ 寻找文件 (目录 ＋ “*.txt”, )
.判断循环首 (文件 ≠ “”)
列表框2.加入项目 (目录 ＋ 文件, )
文件 ＝ 寻找文件 (, )
.判断循环尾 ()

.计次循环尾 ()
.子程序 搜索, , 公开
.参数 目录, 文本型
.局部变量 文, 文本型
.局部变量 a, 整数型
.局部变量 M, 文本型
.局部变量 所有, 文本型, , "0"
.局部变量 I, 整数型
处理事件 ()
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文 ＝ 寻找文件 (目录 ＋ “*.txt”, )
.如果 (文 ＝ “*.txt”)
返回 ()
.否则
文 ＝ 寻找文件 (目录 ＋ “*.*”, 16)
.判断循环首 (文 ≠ “”)
.如果真 (取文本左边 (文, 1) ≠ “.”)
搜索 (目录 ＋ 文)
.如果真结束
文 ＝ 寻找文件 (, 16)
.判断循环尾 ()
列表框1.加入项目 (目录, )
.如果结束
========================================================================
源码上传不了、、、、、、