易语言 寻找在指定文件夹下的多个TXT文本文件中逐行寻找关键字并写出

Question

如题、指定文件夹下有若干文本文档。
例：在D:\指定文件\下有文本文档1.txt---文本文档100.txt这100个文本文档！ 被寻找关键词为：测试 我需要将文本中寻找到的改行写到编辑框1中、完了再在下一行中自动寻找。若当前这个文本文档中没有我搜索的关键词则自动跳转到下一个文本文件中继续寻找！

PS：这个指定文件夹是文件路径编辑框中的内容。谢谢 100财富值献上。如果10分钟内上传附件再加50财富值

Answer 1

.版本 2

.支持库 shell

.程序集 窗口程序集1

.程序集变量 路径, 文本型

.程序集变量 文件数, 文本型, , "0"

.程序集变量 文件名, 文本型

.程序集变量 文件内容, 文本型

.程序集变量 文件, 文本型, , "0"

.程序集变量 文件号, 整数型

.程序集变量 文本, 文本型

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

路径 ＝ 浏览文件夹 (“请点击到要搜寻的文件夹”, )

.如果真 (取文本右边 (路径, 1) ≠ “\”)

    路径 ＝ 路径 ＋ “\”

.如果真结束

文件名 ＝ 寻找文件 (路径 ＋ “*.txt”, )

.循环判断首 ()

    加入成员 (文件数, 文件名)

    文件名 ＝ 寻找文件 (, )

.循环判断尾 (文件名 ≠ “”)

........................

追问

你好 再加店功能我再追加50财富值 要求如下：
在按钮1点击后 需有个标签显示当前行的内容
另外我需要写到编辑框2.内容不要文档文件名以及关键字 比如：测试：201505181827是现在时间 我想写进去的只有201505181827
还有编辑框2.内容应该是找到一个就加进去一个 而不是最后一股脑的全部添加 谢谢了 为表诚意、财富值先追加了

追答

好吧,先看看,不行再修改...