新手求助怎么列出所有文件名

zippo5820

大概就是想实现：点击下方按钮后，能在左边的列表框里，列出所有文本文件的名，然后双击其中一个文件名，右边的编辑框显示出内容。

请大神指导一下，谢谢

zainex

易语言中有一个 目录框 组件，可以用它实现：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
目录	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件名称	文本型

列表框1.清空 ()
目录 ＝ 取运行目录 () ＋ “\ceshi”
文件名称 ＝ 寻找文件 (目录 ＋ “\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀
判断循环首 (文件名称 ≠ “”)
列表框1.加入项目 (文件名称, )
文件名称 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

变量名	类 型	静态	数组	备 注
文件	字节集

如果真 (列表框1.现行选中项 ≠ -1)
调试输出 (目录 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))
文件 ＝ 读入文件 (目录 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))
编辑框1.内容 ＝ 到文本 (编码转换 (文件, #编码_UTF_8, #编码_GBK, ))
如果真 (编辑框1.内容 ＝ “”)
编辑框1.内容 ＝ 到文本 (文件)

子程序名	返回值类型	公开	备 注
_目录框1_目录被改变

变量名	类 型	静态	数组	备 注
文件名称	文本型

调试输出 (目录框1.目录)
列表框1.清空 ()
目录 ＝ 目录框1.目录
文件名称 ＝ 寻找文件 (目录 ＋ “\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀
判断循环首 (文件名称 ≠ “”)
列表框1.加入项目 (文件名称, )
文件名称 ＝ 寻找文件 (, )
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 spec<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 目录, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名称, 文本型<br /> <br /> 列表框1.清空 ()<br /> 目录 ＝ 取运行目录 () ＋ “\ceshi”<br /> 文件名称 ＝ 寻找文件 (目录 ＋ “\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀<br /> .判断循环首 (文件名称 ≠ “”)<br />     列表框1.加入项目 (文件名称, )<br />     文件名称 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> .局部变量 文件, 字节集<br /> <br /> .如果真 (列表框1.现行选中项 ≠ -1)<br />     调试输出 (目录 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))<br />     文件 ＝ 读入文件 (目录 ＋ “\” ＋ 列表框1.取项目文本 (列表框1.现行选中项))<br />     编辑框1.内容 ＝ 到文本 (编码转换 (文件, #编码_UTF_8, #编码_GBK, ))<br />     .如果真 (编辑框1.内容 ＝ “”)<br />         编辑框1.内容 ＝ 到文本 (文件)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _目录框1_目录被改变<br /> .局部变量 文件名称, 文本型<br /> <br /> 调试输出 (目录框1.目录)<br /> 列表框1.清空 ()<br /> 目录 ＝ 目录框1.目录<br /> 文件名称 ＝ 寻找文件 (目录 ＋ “\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀<br /> .判断循环首 (文件名称 ≠ “”)<br />     列表框1.加入项目 (文件名称, )<br />     文件名称 ＝ 寻找文件 (, )<br /> .判断循环尾 ()

例子.zip (2.44 KB, 下载次数: 2)

2026-2-13 11:10 上传

点击文件名下载附件

zippo5820

如果点开后目录默认是C:\aa,但也可以选择，就更好

xiao黄鸭

111111111111

zippo5820

xiao黄鸭 发表于 2026-2-13 05:19
111111111111

测试了一下，还差一点点，就是选中一个文件名时，右边的编辑框内容没有变化，麻烦帮再看一下，您可以随便改个文本的内容与其它不一样，然后测试一下

zippo5820

zippo5820 发表于 2026-2-13 10:06
测试了一下，还差一点点，就是选中一个文件名时，右边的编辑框内容没有变化，麻烦帮再看一下，您可以随便 ...

还有就是再点导入时，会重复再次导入

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件名称	文本型

列表框1.清空 ()
文件名称 ＝ 寻找文件 (取运行目录 () ＋ “\ceshi\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀
判断循环首 (文件名称 ≠ “”)
列表框1.加入项目 (文件名称, )
文件名称 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

如果真 (列表框1.现行选中项 ≠ -1)
编辑框1.内容 ＝ 到文本 (编码转换 (读入文件 (取运行目录 () ＋ “\ceshi\” ＋ 列表框1.取项目文本 (列表框1.现行选中项)), #编码_UTF_8, #编码_GBK, ))

i支持库列表	支持库注释
iconv	编码转换支持库

.版本 2<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名称, 文本型<br /> <br /> 列表框1.清空 ()<br /> 文件名称 ＝ 寻找文件 (取运行目录 () ＋ “\ceshi\*.txt*”, )  ' 可筛选欲选择文件后缀，*.*为所有文件后缀<br /> .判断循环首 (文件名称 ≠ “”)<br />     列表框1.加入项目 (文件名称, )<br />     文件名称 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> .如果真 (列表框1.现行选中项 ≠ -1)<br />     编辑框1.内容 ＝ 到文本 (编码转换 (读入文件 (取运行目录 () ＋ “\ceshi\” ＋ 列表框1.取项目文本 (列表框1.现行选中项)), #编码_UTF_8, #编码_GBK, ))<br /> .如果真结束

效果：

例子.zip (2.41 KB, 下载次数: 1)

2026-2-13 10:29 上传

点击文件名下载附件

zippo5820

zainex 发表于 2026-2-13 10:29
[e=1].版本 2
.支持库 iconv

补充的非常好，固定的那个目录保留，能不能再加个浏览文件夹的选项