Question

易语言列表框读取和保存文件标题

列表框读取文件夹里面的TXT文件名.这个文件夹下所有TXT标题列到列表框里.则么实现.还有.保存.

Answer 1

.版本 2
.支持库 shell

.程序集 窗口程序集1
.程序集变量 文件目录, 文本型
.程序集变量 文件名, 文本型
.程序集变量 文件, 文本型

.子程序 __启动窗口_创建完毕

文件目录 ＝ 浏览文件夹 (“请选择目录:”, 假)
.如果 (文件目录 ≠ “”)
文件目录 ＝ 文件目录 ＋ “\”
.否则
文件目录 ＝ 取运行目录 () ＋ “\”
.如果结束
文件名 ＝ 寻找文件 (文件目录 ＋ “*.txt”, )
.判断循环首 (文件名 ≠ “”)
列表框1.加入项目 (文件名, )
文件 ＝ 文件 ＋ 文件名 ＋ #换行符
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 _按钮1_被单击

写到文件 (文件目录 ＋ “保存.ini”, 到字节集 (文件))