Question

易语言查询一个文件夹下，多个TXT文本内容。

点 查找按钮 搜索 编辑框1的内容，显示第一个满足条件的TXT内容到编辑框2中。点下一条显示下一个符合条件的TXT内容。





Answer 1

一个按钮就好了。

.版本 2
.程序集 窗口程序集1
.程序集变量 文件组, 文本型, , "0"
.程序集变量 当前文件进度, 整数型
.程序集变量 是否包含, 逻辑型
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.局部变量 A, 整数型
.如果真 (取数组成员数 (文件组) ＝ 0)
A ＝ 1
当前文件进度 ＝ 1
是否包含 ＝ 假
加入成员 (文件组, 寻找文件 (取运行目录 () ＋ “\*.txt”, ))
.判断循环首 (文件组 [A] ≠ “”)
加入成员 (文件组, 寻找文件 (, ))
A ＝ A ＋ 1
.判断循环尾 ()
.如果真结束
.如果真 (当前文件进度 ＞ 取数组成员数 (文件组))
信息框 (“所有文件搜索完毕”, 0, )
清除数组 (文件组)
返回 ()
.如果真结束
.如果 (寻找文本 (到文本 (读入文件 (文件组 [当前文件进度])), 编辑框2.内容, , 假) ＝ -1)
是否包含 ＝ 假
.否则
是否包含 ＝ 真
编辑框1.内容 ＝ 到文本 (读入文件 (文件组 [当前文件进度]))
标题 ＝ 文件组 [当前文件进度]
当前文件进度 ＝ 当前文件进度 ＋ 1
返回 ()
.如果结束
当前文件进度 ＝ 当前文件进度 ＋ 1
.判断循环首 (是否包含 ＝ 假)
.如果真 (当前文件进度 ＞ 取数组成员数 (文件组))
信息框 (“所有文件搜索完毕”, 0, )
清除数组 (文件组)
返回 ()
.如果真结束
.如果真 (寻找文本 (到文本 (读入文件 (文件组 [当前文件进度])), 编辑框2.内容, , 假) ≠ -1)
是否包含 ＝ 真
当前文件进度 ＝ 当前文件进度 ＋ 1
跳出循环 ()
.如果真结束
当前文件进度 ＝ 当前文件进度 ＋ 1
.判断循环尾 ()
标题 ＝ 文件组 [当前文件进度]
编辑框1.内容 ＝ 到文本 (读入文件 (文件组 [当前文件进度]))

追问

不管用，我好像那里做错了，我的邮箱13554245@qq.com，大神能给我发一下么。感激不尽。

追答

你得先把文件源码保存到TXT所在目录或者编译到TXT所在目录，这样才是基于程序运行目录的

Answer 2

详细说明下，满足什么？txt文件按顺序搜索吗？

追问

嗯，显示 包含关键字的TXT内容。
点下一条按钮，就会显示下一个满足条件的TXT内容。

追答

你的意思是说，txt文件里面含有编辑框里面的文字是吗？有就把txt文件的内容显示到编辑框中。
具体代码已经发布，详细在参考中。

参考资料： http://hi.baidu.com/lilei3386/item/48ff3627af992bccddf69a04

追问

我试了一下，不知道为什么查找不好用- -  大神能给我发到邮箱一个么，膜拜了。13554245@qq.com

追答

源码已经发到邮箱

Answer 3

寻找文件（取运行目录（）+“\*.txt”，#子文件）
用这个命令来搜索，可以参考易语言系统中的MP3播放器例程