Question

【易语言】验证根目录下的所有文件md5并判断

验证运行目录：

路径 ＝ 取运行目录 () ＋ “/”下所有文件

然后指定txt文本中的md5，如果有相同的，则删除掉这个文件，如果没有则直至验证完毕后则结束。
另外，能否加一个写到文件 (取运行目录 () ＋ “/test.txt”, “”, 到字节集 (“9CD8D4D69C3AA4CA2E87674E1F5BE150”)) 类似于这样的代码，自动生成一份txt，貌似语句上有问题，lz菜，实现不了。

Answer 1

.版本 2
.支持库 dp1

.子程序 __启动窗口_创建完毕
.局部变量 删文件, 文本型, , "0"
.局部变量 文件组, 文本型, , "0"
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型
.局部变量 计次, 整数型
.局部变量 文本组, 文本型, , "0"
.局部变量 文本, 文本型

文件名 ＝ 寻找文件 (取运行目录 () ＋ “\*.*”, )
.循环判断首 ()
文件名 ＝ 寻找文件 (, )
加入成员 (文件组, 文件名)
.循环判断尾 (文件名 ≠ “”)
文本 ＝ “”
.计次循环首 (取数组成员数 (文件组), 文件号)
文件名 ＝ 取数据摘要 (读入文件 (取运行目录 () ＋ “\” ＋ 文件组 [文件号]))
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (文件名 ＝ 文本组 [计次])
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果 (计次 ＞ 取数组成员数 (文本组))
加入成员 (文本组, 文件名)
文本 ＝ 文本 ＋ 文件组 [文件号] ＋ “:” ＋ 文件名 ＋ #换行符
.否则
加入成员 (删文件, 取运行目录 () ＋ “\” ＋ 文件组 [文件号])
.如果结束

.计次循环尾 ()
.如果真 (取数组成员数 (删文件) ＞ 0)
.计次循环首 (取数组成员数 (删文件), 文件号)
删除文件 (删文件 [文件号])
.计次循环尾 ()
.如果真结束
写到文件 (取运行目录 () ＋ “\test.txt”, 到字节集 (文本))
结束 ()

Answer 2

我有源码·······