易语言怎么全盘搜索指定文件?

发布网友发布时间：2022-04-25 04:59

共2个回答

热心网友时间：2023-10-27 21:23

.版本 2
.支持库 eAPI
.子程序 __启动窗口_创建完毕
.局部变量磁盘, 文本型, , "0"
.局部变量 I, 整数型
磁盘＝取驱动器列表 (#接口常量.硬盘驱动器)
.计次循环首 (取数组成员数 (磁盘), I)
文件搜索 (磁盘 [I], “1.txt”) ' 这里是关键
.计次循环尾 ()
信息框 (“删除完毕”, 0, )

.子程序文件搜索
.参数目录, 文本型
.参数文件名, 文本型
.局部变量局部文件名, 文本型
.局部变量子目录, 文本型
.局部变量内容, 文本型
目录＝目录＋ “\”
处理事件 ()
局部文件名＝寻找文件 (目录＋ “*.*”, 39)
.判断循环首 (局部文件名 ≠ “”)
.如果真 (局部文件名＝文件名)
删除文件 (目录＋文件名) ' 这里也是关键
返回 ()
.如果真结束
局部文件名＝寻找文件 (, )
.判断循环尾 ()
子目录＝寻找文件 (目录＋ “*.*”, 16)
.判断循环首 (子目录 ≠ “”)
.如果真 (子目录 ≠ “.” 且子目录 ≠ “..”)
文件搜索 (目录＋子目录, 文件名)
.如果真结束
子目录＝寻找文件 (, #子目录)
.判断循环尾 ()追问- - 能不能把你写的代码给我截图发过来？568470332@qqcom

麻烦你了

追答代码已发 Q号为 545303380 如果还有什么疑问的可以追问哦

热心网友时间：2023-10-27 21:24

用易语言模块
.版本 2
.支持库 RegEx
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
文件_搜索 (“要找的盘符”, “要找的文件”, 标签1, , 真)
.如果真 (真)
.如果真结束
编辑框4.内容＝标签1.标题
.子程序 _按钮1_被单击
.局部变量内容, 字节集
.局部变量路径, 文本型
.局部变量正则表达式1, 正则表达式
.局部变量新文本, 文本型
.局部变量信息1, 文本型
.局部变量信息2, 文本型
信息1 ＝编辑框2.内容
信息2 ＝编辑框3.内容
路径＝编辑框4.内容
.如果真 (文件是否存在 (路径))
内容＝读入文件 (路径)
新文本＝到文本 (内容)
正则表达式1.创建 (“加入的文本”, )
新文本＝正则表达式1.替换 (新文本, “要加入的内容” ＋ #换行符＋ “加入文本”, 1, , 真, 真)
.如果真 (新文本 ≠ “”)
写到文件 (路径, 到字节集 (新文本))
.如果真结束
信息框 (信息2, 0, )
销毁 ()
.如果真结束
.如果 (假)
.否则
.如果结束
信息框 (信息1, 0, )
销毁 ()