求助怎么取文件夹里所有文本

zippo5820

把文件夹所有文本的名称，修改日期，大小，插入到超级列表框里，然后点击超级列表框里的一行，在右边的编辑框里显示文本内容，请大神指导，谢谢

zainex

使用 驱动器框 + 目录框 组件：

  

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

子程序名	返回值类型	公开	备 注
_驱动器框1_驱动器被改变

目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”

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

变量名	类 型	静态	数组	备 注
文件名	文本型
索引	整数型
时间	日期时间型
文本	文本型
大小	整数型

超级列表框1.全部删除 ()
目录 ＝ 目录框1.目录
调试输出 (目录)
文件名 ＝ 寻找文件 (目录 ＋ “\*.txt”, )
判断循环首 (文件名 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
时间 ＝ 取文件时间 (目录 ＋ “\” ＋ 文件名)
文本 ＝ 格式化日期 (时间, “%y/%m/%d”)
文本 ＝ 格式化文本 (“%s %2d:%2d”, 文本, 取小时 (时间), 取分钟 (时间))
超级列表框1.置标题 (索引, 1, 文本)
大小 ＝ 取文件尺寸 (目录 ＋ “\” ＋ 文件名)
超级列表框1.置标题 (索引, 2, 格式化文本 (“%0.2lf MB”, 大小 ÷ 1024 ÷ 1024))
文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

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

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

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
CnCalendar	农历日期支持库
eAPI	应用接口支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 CnCalendar<br /> .支持库 eAPI<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 目录, 文本型<br /> <br /> .子程序 _驱动器框1_驱动器被改变<br /> <br /> 目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”<br /> <br /> <br /> .子程序 _目录框1_目录被改变<br /> .局部变量 文件名, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 文本, 文本型<br /> .局部变量 大小, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 目录 ＝ 目录框1.目录<br /> 调试输出 (目录)<br /> 文件名 ＝ 寻找文件 (目录 ＋ “\*.txt”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )<br />     时间 ＝ 取文件时间 (目录 ＋ “\” ＋ 文件名)<br />     文本 ＝ 格式化日期 (时间, “%y/%m/%d”)<br />     文本 ＝ 格式化文本 (“%s %2d:%2d”, 文本, 取小时 (时间), 取分钟 (时间))<br />     超级列表框1.置标题 (索引, 1, 文本)<br />     大小 ＝ 取文件尺寸 (目录 ＋ “\” ＋ 文件名)<br />     超级列表框1.置标题 (索引, 2, 格式化文本 (“%0.2lf MB”, 大小 ÷ 1024 ÷ 1024))<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 文件, 字节集<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     调试输出 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br />     文件 ＝ 读入文件 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br />     编辑框1.内容 ＝ 到文本 (编码转换 (文件, #编码_UTF_8, #编码_GBK, ))<br />     .如果真 (编辑框1.内容 ＝ “”)<br />         编辑框1.内容 ＝ 到文本 (文件)<br />     .如果真结束<br /> <br /> .如果真结束

完整例子.zip (2.17 KB, 下载次数: 2)

昨天 19:30 上传

点击文件名下载附件

花间一壶酒

用 文件_枚举 命令 读取文件夹中的所有 *.txt 文件  然后超级列表框.置标题   再在超级列表框的单击事件里  读入文本   文本路径就是超级列表框.取标题  也就是之前枚举出来的路径

补充内容 (2026-2-13 18:57):
文件_枚举  是精易模块的命令

haoren1212

把文件夹所有文本的名称，修改日期，大小，插入到超级列表框里（枚举文件夹内文件路径，取文件信息，置标题。），然后点击超级列表框里的一行，在右边的编辑框里显示文本内容（通过前面的操作读文件内容）

是永乐哟

给你写了个列子，按照你自己要求改

列子1.e (957.43 KB, 下载次数: 2)

昨天 19:07 上传

点击文件名下载附件