如何读取运行目录内的所有txt文本内容到超级列表框

千城偶吧

如何读取运行目录内的所有txt文本内容依次插入到超级列表框？并且所有的txt内容格式一样！人在秒回

dc244399752

这样就可以了

千城偶吧

有没有大佬搞一份例子学习一下

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0
总文本	文本型
文本	文本型
分割	文本型		0
分割2	文本型		0
n	整数型
q	整数型
索引	整数型

文件_枚举 (取运行目录 (), “*.txt”, 文件组, 真)
计次循环首 (取数组成员数 (文件组), n)
文本 ＝ 到文本 (读入文件 (文件组 [n]))
如果 (取文本右边 (文本, 2) ＝ #换行符 )
总文本 ＝ 总文本 ＋ 文本
总文本 ＝ 总文本 ＋ 文本 ＋ #换行符

计次循环尾 ()
分割 ＝ 分割文本 (总文本, #换行符, )
计次循环首 (取数组成员数 (分割), n)
分割2 ＝ 分割文本 (分割 [n], “----”, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (取数组成员数 (分割2), q)
超级列表框1.置标题 (索引, q － 1, 分割2 [q])
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件组, 文本型, , "0"<br /> .局部变量 总文本, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 分割2, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 q, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 文件_枚举 (取运行目录 (), “*.txt”, 文件组, 真)<br /> .计次循环首 (取数组成员数 (文件组), n)<br />     文本 ＝ 到文本 (读入文件 (文件组 [n]))<br />     .如果 (取文本右边 (文本, 2) ＝ #换行符)<br />         总文本 ＝ 总文本 ＋ 文本<br />     .否则<br />         总文本 ＝ 总文本 ＋ 文本 ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 分割 ＝ 分割文本 (总文本, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), n)<br />     分割2 ＝ 分割文本 (分割 [n], “----”, )<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     .计次循环首 (取数组成员数 (分割2), q)<br />         超级列表框1.置标题 (索引, q － 1, 分割2 [q])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

千城偶吧

LEOONL 发表于 2024-10-3 18:07
[e=0].版本 2
.支持库 iext

没有分割插入到1 2  3