易语言实现比较两个文件数据内容是否等于一致相同模块源码 (返回逻辑型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 信息框 (等于_文件 (“V:\1.bin”, “V:\2.bin”), 0, , )
    
15. 
    
16. .子程序 等于_文件, 逻辑型, 公开, 被比较文件与比较文件内容相同时返回真，否则返回假。
    
17. .参数 被比较文件, 文本型
    
18. .参数 比较文件, 文本型
    
19. .参数 缓存大小, 整数型, 可空, 缓存大小影响读写读取速度，单位字节 留空默认256MB
    
20. .局部变量 被比较文件号, 整数型
    
21. .局部变量 比较文件号, 整数型
    
22. 
    
23. .如果真 (是否为空 (缓存大小) 或 缓存大小 ≤ 0)
    
24.     缓存大小 ＝ 268435456
    
25. .如果真结束
    
26. .如果真 (文件是否存在 (被比较文件) ＝ 假 或 文件是否存在 (比较文件) ＝ 假)
    
27.     返回 (假)
    
28. .如果真结束
    
29. .如果真 (被比较文件 ＝ 比较文件)
    
30.     返回 (真)
    
31. .如果真结束
    
32. .如果真 (取文件尺寸 (被比较文件) ≠ 取文件尺寸 (被比较文件))
    
33.     返回 (假)
    
34. .如果真结束
    
35. 被比较文件号 ＝ 打开文件 (被比较文件, #读入, #禁止写)
    
36. 比较文件号 ＝ 打开文件 (比较文件, #读入, #禁止写)
    
37. .如果真 (被比较文件号 ＝ 0 或 比较文件号 ＝ 0)
    
38.     关闭文件 (被比较文件号)
    
39.     关闭文件 (比较文件号)
    
40.     返回 (假)
    
41. .如果真结束
    
42. .如果真 (移动读写位置 (被比较文件号, #文件首, 0) ＝ 假 或 移动读写位置 (比较文件号, #文件首, 0) ＝ 假)
    
43.     关闭文件 (被比较文件号)
    
44.     关闭文件 (比较文件号)
    
45.     返回 (假)
    
46. .如果真结束
    
47. .判断循环首 (真)
    
48.     .如果真 (是否在文件尾 (被比较文件号, ) 且 是否在文件尾 (比较文件号, ))
    
49.         跳出循环 ()
    
50.     .如果真结束
    
51.     .如果真 (读入字节集 (被比较文件号, 缓存大小) ≠ 读入字节集 (比较文件号, 缓存大小))
    
52.         关闭文件 (被比较文件号)
    
53.         关闭文件 (比较文件号)
    
54.         返回 (假)
    
55.     .如果真结束
    
56. 
    
57. .判断循环尾 ()
    
58. 关闭文件 (被比较文件号)
    
59. 关闭文件 (比较文件号)
    
60. 返回 (真)
    
61. 
    
62. 
    
63. 
    

复制代码