易语言实现文件去重/去除重复 (删除指定目录下所有数据内容重复相同的文件)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 dp1
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 文件名, 文本型
   
9. .局部变量 文件号, 整数型
   
10. .局部变量 文件路径, 文本型
    
11. .局部变量 MD5, 文本型
    
12. .局部变量 MD5表, 文本型, , "0"
    
13. .局部变量 数据, 字节集
    
14. .局部变量 启动时间, 整数型
    
15. .局部变量 删除, 整数型
    
16. .局部变量 删除失败, 整数型
    
17. 
    
18. 启动时间 ＝ 取启动时间 ()
    
19. 文件名 ＝ 取临时文件名 ()
    
20. .如果真 (运行 (“cmd /c dir /a /b /s file\* >” ＋ 文件名, 真, #隐藏窗口) ＝ 假)  ' 请将所有待去重文件放到file目录下 (搜索所有属性的文件以及子目录)
    
21.     输出调试文本 (“运行CMD失败!”)
    
22.     返回 (0)
    
23. .如果真结束
    
24. 文件号 ＝ 打开文件 (文件名, #读入, #禁止写)
    
25. .如果真 (文件号 ＝ 0)
    
26.     输出调试文本 (“打开文件失败”)
    
27.     返回 (0)
    
28. .如果真结束
    
29. .判断循环首 (真)
    
30.     文件路径 ＝ 读入一行 (文件号)
    
31.     .判断开始 (文件路径 ＝ “” 且 是否在文件尾 (文件号, ))
    
32.         跳出循环 ()
    
33.     .判断 (取文件尺寸 (文件路径) ≤ 0)  ' 不处理0字节文件
    
34.         到循环尾 ()
    
35.     .默认
    
36. 
    
37.     .判断结束
    
38.     数据 ＝ 读入文件 (文件路径)
    
39.     MD5 ＝ 取数据摘要 (数据)
    
40.     .如果 (文本型数组_查找 (MD5表, MD5))
    
41.         置文件属性 (文件路径, 0)
    
42.         .如果 (删除文件 (文件路径))
    
43.             删除 ＝ 删除 ＋ 1
    
44.         .否则
    
45.             删除失败 ＝ 删除失败 ＋ 1
    
46.         .如果结束
    
47. 
    
48.     .否则
    
49.         加入成员 (MD5表, MD5)
    
50.     .如果结束
    
51. 
    
52. .判断循环尾 ()
    
53. 数据 ＝ {  }
    
54. 关闭文件 (文件号)
    
55. 删除文件 (文件名)
    
56. 信息框 (“文件去重处理完成！ 耗时(秒):” ＋ 到文本 ((取启动时间 () － 启动时间) ÷ 1000) ＋ “ 删除:” ＋ 到文本 (删除) ＋ “ 删除失败:” ＋ 到文本 (删除失败), 0, , )
    
57. 
    
58. 返回 (0)  ' 可以根据您的需要返回任意数值
    
59. 
    
60. .子程序 文本型数组_查找, 逻辑型, , 在文本型数组中寻找一个文本，找到返回真，未找到返回假
    
61. .参数 数组, 文本型, 数组
    
62. .参数 文本, 文本型
    
63. .局部变量 计数, 整数型
    
64. 
    
65. .计次循环首 (取数组成员数 (数组), 计数)
    
66.     .如果真 (数组 [计数] ＝ 文本)
    
67.         返回 (真)
    
68.     .如果真结束
    
69. 
    
70. .计次循环尾 ()
    
71. 返回 (假)
    

复制代码