如何批量判断MD5值

kurt

最近在学习过程中遇到一个问题，判断文件有没有重复的，我想批量判断文件的MD5来实现

就是假如一个文件夹下有多个TXT文件：1、2、3、4、5

1、4、5 MD5值一样，我最终只输出1、2、3（或2、3、4 或 2、3、5）文件到新的文件夹，这个应该怎么做？

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件名	文本型
文件目录	文本型
分割文本	文本型		0
i	整数型
文本	文本型
前	整数型

文件目录 ＝ 浏览文件夹 (“寻找文件”, )
如果真 (文件目录 ≠ “”)
文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 32)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
编辑框1.加入文本 (文件目录 ＋ 文件名 ＋ #换行符 ＋ “MD5：” ＋ 到文本 (取数据摘要 (读入文件 (文件目录 ＋ 文件名))) ＋ #换行符 )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 dp1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件目录, 文本型<br /> .局部变量 分割文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 前, 整数型<br /> <br /> 文件目录 ＝ 浏览文件夹 (“寻找文件”, )<br /> .如果真 (文件目录 ≠ “”)<br />     文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)<br />     文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 32)<br />     .判断循环首 (文件名 ≠ “”)<br />         .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />             编辑框1.加入文本 (文件目录 ＋ 文件名 ＋ #换行符 ＋ “MD5：” ＋ 到文本 (取数据摘要 (读入文件 (文件目录 ＋ 文件名))) ＋ #换行符)<br />         .如果真结束<br />         文件名 ＝ 寻找文件 (, )<br />     .判断循环尾 ()

补充内容 (2022-2-15 16:05):
晕了，感觉这个逻辑很简单，但是我就转不过来

补充内容 (2022-2-15 16:21):
如果1、2、3、4、5这五个文件在不同文件夹，应该怎么实现，批量计算MD5呢？我上面这段，只能计算当前文件夹的。。。。。。。。。。。。。。。。...

补充内容 (2022-2-15 18:42):
研究出来了，现在还有个问题：就是怎么把一个文件夹子文件夹里的所有文件都移动到一个文件夹下啊。。。各位大佬。。。

kurt

研究出来了，现在还有个问题：就是怎么把一个文件夹子文件夹里的所有文件都移动到一个文件夹下啊。。。各位大佬。。。

eavesyang

kurt 发表于 2022-2-15 18:42
研究出来了，现在还有个问题：就是怎么把一个文件夹子文件夹里的所有文件都移动到一个文件夹下啊。。。各位 ...

子程序名：目录_复制
    参数<1>的名称为“源目录”，类型为“文本型”。注明：如：C:\001\002。
    参数<2>的名称为“目标目录”，类型为“文本型”。注明：复制支：d:\2543\545。