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

2024-12-03 20:58:09
推荐回答(1个)
回答1:

.版本 2

.支持库 shell


.程序集 窗口程序集1

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

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

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

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

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

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

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


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


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

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

    路径 = 路径 + “\”

.如果真结束

文件名 = 寻找文件 (路径 + “*.txt”, )

.循环判断首 ()

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

    文件名 = 寻找文件 (, )

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

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