关于易语言计次循环找文件加入超级列表框表项的问题

冷明少

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&取文件, , )

子程序名	返回值类型	公开	备 注
取文件

变量名	类 型	静态	数组	备 注
文件A	文本型
分割文本	文本型		0
计次	整数型
分割	文本型		0
文本	文本型
i	整数型
到文本	文本型
文件	文本型
a	整数型

文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )  ' 第一次搜索文件，要指定正确的目录和扩展名
如果真 (文件 ≠ “”)
文件 ＝ 寻找文件 (, )
判断循环首 (文件 ≠ “”)
文件 ＝ 寻找文件 (, )  ' 再搜索时不需要指定
如果真 (文件 ≠ “”)
分割文本 ＝ 分割文本 (文件, #换行符, )
计次循环首 (取数组成员数 (分割文本), a)
分割 ＝ 分割文本 (分割文本 [1], #换行符, )
如果真 (取数组成员数 (分割) ＝ 1)
计次 ＝ 超级列表框3.插入表项 (, 到文本 (计次), , , , )
超级列表框3.置标题 (计次, 1, 分割 [a])
调试输出 (计次)

计次循环尾 ()

判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&取文件, , )<br /> <br /> .子程序 取文件<br /> .局部变量 文件A, 文本型<br /> .局部变量 分割文本, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 到文本, 文本型<br /> .局部变量 文件, 文本型<br /> .局部变量 a, 整数型<br /> <br /> 文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )  ' 第一次搜索文件，要指定正确的目录和扩展名<br /> .如果真 (文件 ≠ “”)<br />     文件 ＝ 寻找文件 (, )<br /> .如果真结束<br /> .判断循环首 (文件 ≠ “”)<br />     文件 ＝ 寻找文件 (, )  ' 再搜索时不需要指定<br />     .如果真 (文件 ≠ “”)<br />         分割文本 ＝ 分割文本 (文件, #换行符, )<br />         .计次循环首 (取数组成员数 (分割文本), a)<br />             分割 ＝ 分割文本 (分割文本 [1], #换行符, )<br />             .如果真 (取数组成员数 (分割) ＝ 1)<br />                 计次 ＝ 超级列表框3.插入表项 (, 到文本 (计次), , , , )<br />                 超级列表框3.置标题 (计次, 1, 分割 [a])<br />                 调试输出 (计次)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

求解决方案。

0010101

没懂什么意思

Farmer°

  

文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )
判断循环首 (文件 ≠ “”)
分割文本 ＝ 分割文本 (到文本 (读入文件 (文件)), #换行符, )
计次循环首 (取数组成员数 (分割文本), a)
计次 ＝ 超级列表框3.插入表项 (, 到文本 ( 超级列表框3.取表项数 ()+a), , , , )
超级列表框3.置标题 (计次, 1, 分割文本[a])
调试输出 (计次)
计次循环尾 ()
文件 ＝ 寻找文件 (, )
判断循环尾 ()

文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, ) <br /> 判断循环首 (文件 ≠ “”)<br /> 分割文本 ＝ 分割文本 (到文本(读入文件(文件)), #换行符, )<br /> 计次循环首 (取数组成员数 (分割文本), a)<br /> 计次 ＝ 超级列表框3.插入表项 (, 到文本 ( 超级列表框3.取表项数()+a), , , , )<br /> 超级列表框3.置标题 (计次, 1, 分割文本[a])<br /> 调试输出 (计次)<br /> <br /> 计次循环尾 ()<br /> 文件 ＝ 寻找文件 (, ) <br /> 判断循环尾 ()

不知道是不是楼主想要的

Farmer°

文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )
判断循环首 (文件 ≠ “”)
分割文本 ＝ 分割文本 (到文本(读入文件(文件)), #换行符, )
计次循环首 (取数组成员数 (分割文本), a)
计次 ＝ 超级列表框3.插入表项 (, 到文本 ( 超级列表框3.取表项数()+a), , , , )
超级列表框3.置标题 (计次, 1, 分割文本[a])
调试输出 (计次)
计次循环尾 ()
文件 ＝ 寻找文件 (, )
判断循环尾 ()

怎么有乱码....

冷明少

Farmer° 发表于 2015-2-7 10:11
文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )
判断循环首 (文件 ≠ “”)
分割文本 ＝  ...

嗯哼，首先是取到目录内的文件名。然后加入超级列表框，还需要计次

Farmer°

冷明少 发表于 2015-2-7 10:27
嗯哼，首先是取到目录内的文件名。然后加入超级列表框，还需要计次

就只是取文件名,加入,对吧?
文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )
判断循环首 (文件 ≠ “”)
计次 ＝ 超级列表框3.插入表项 (, 到文本 ( 超级列表框3.取表项数()+1), , , , )
超级列表框3.置标题 (计次, 1, 文件)
文件 ＝ 寻找文件 (, )
判断循环尾 ()

风行雪落

直接用精易模块里的文件_枚举 （）就行了

冷明少

自己已经解决了，代码送上

  

子程序名	返回值类型	公开	备 注
取文件

变量名	类 型	静态	数组	备 注
文件A	文本型
分割文本	文本型		0
计次	整数型
分割	文本型		0
文本	文本型
i	整数型
到文本	文本型
文件	文本型
a	整数型
b	整数型

b ＝ 1
文件 ＝ 寻找文件 (取运行目录 () ＋ “\文本内容\*.txt”, )  ' 第一次搜索文件，要指定正确的目录和扩展名
如果真 (文件 ≠ “”)
文件 ＝ 寻找文件 (, )
判断循环首 (文件 ≠ “”)
文件 ＝ 寻找文件 (, )  ' 再搜索时不需要指定
如果真 (文件 ≠ “”)
分割文本 ＝ 分割文本 (文件, #换行符, )
计次循环首 (取数组成员数 (分割文本), a)
分割 ＝ 分割文本 (分割文本 [a], #换行符, )
如果真 (取数组成员数 (分割) ＝ 1)
计次 ＝ 超级列表框3.插入表项 (, 到文本 (b), , , , )
超级列表框3.置标题 (计次, 1, 文件)
b ＝ b ＋ 1  ' 调试输出 (a)
调试输出 (b)
计次循环尾 ()

判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 取文件<br /> .局部变量 文件A, 文本型<br /> .局部变量 分割文本, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 到文本, 文本型<br /> .局部变量 文件, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> <br /> b ＝ 1<br /> 文件 ＝ 寻找文件 (取运行目录 () ＋ “\文本内容\*.txt”, )  ' 第一次搜索文件，要指定正确的目录和扩展名<br /> .如果真 (文件 ≠ “”)<br />     文件 ＝ 寻找文件 (, )<br /> .如果真结束<br /> .判断循环首 (文件 ≠ “”)<br />     文件 ＝ 寻找文件 (, )  ' 再搜索时不需要指定<br />     .如果真 (文件 ≠ “”)<br />         分割文本 ＝ 分割文本 (文件, #换行符, )<br />         .计次循环首 (取数组成员数 (分割文本), a)<br />             分割 ＝ 分割文本 (分割文本 [a], #换行符, )<br />             .如果真 (取数组成员数 (分割) ＝ 1)<br />                 计次 ＝ 超级列表框3.插入表项 (, 到文本 (b), , , , )<br />                 超级列表框3.置标题 (计次, 1, 文件)<br /> <br />             .如果真结束<br />             b ＝ b ＋ 1  ' 调试输出 (a)<br />             调试输出 (b)<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

有不懂的可以找我一起交流哦。

冷明少

Farmer° 发表于 2015-2-7 10:10
[e=0]文件 ＝ 寻找文件 (取运行目录 () ＋ “\留言内容\*.txt”, )
判断循环首 (文件 ≠ “”)
分割文本 ...

我自己已经解决了，就采纳你的了，