易语言实现交换两个文件中的字节集数据(属性)，支持强制交换只读文件 (返回逻辑型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 输出调试文本 (交换文件数据 (“1.txt”, “2.txt”, 真, 真))
    
16. 
    
17. 
    
18. .子程序 交换文件属性, 逻辑型, 公开, 交换两个文件的属性，成功返回真，失败返回假。
    
19. .参数 文件名A, 文本型
    
20. .参数 文件名B, 文本型
    
21. .局部变量 A属性, 整数型
    
22. .局部变量 B属性, 整数型
    
23. 
    
24. .如果真 (文件是否存在 (文件名A) ＝ 假 或 文件是否存在 (文件名B) ＝ 假)
    
25.     返回 (假)
    
26. .如果真结束
    
27. A属性 ＝ 取文件属性 (文件名A)
    
28. B属性 ＝ 取文件属性 (文件名B)
    
29. .如果真 (A属性 ＝ -1 或 B属性 ＝ -1)
    
30.     返回 (假)
    
31. .如果真结束
    
32. .如果真 (置文件属性 (文件名A, B属性) ＝ 假 或 置文件属性 (文件名B, A属性) ＝ 假)
    
33.     返回 (假)
    
34. .如果真结束
    
35. 返回 (真)
    
36. 
    
37. .子程序 交换文件数据, 逻辑型, 公开, 交换两个文件的数据，成功返回真，失败返回假。
    
38. .参数 文件名A, 文本型
    
39. .参数 文件名B, 文本型
    
40. .参数 强制交换, 逻辑型, 可空, 强制交换只读文件
    
41. .参数 交换属性, 逻辑型, 可空, 是否交换两个文件的属性
    
42. .局部变量 A属性, 整数型
    
43. .局部变量 B属性, 整数型
    
44. .局部变量 A数据, 字节集
    
45. .局部变量 B数据, 字节集
    
46. 
    
47. .如果真 (文件是否存在 (文件名A) ＝ 假 或 文件是否存在 (文件名B) ＝ 假)
    
48.     返回 (假)
    
49. .如果真结束
    
50. A属性 ＝ 取文件属性 (文件名A)
    
51. B属性 ＝ 取文件属性 (文件名B)
    
52. .如果真 (A属性 ＝ -1 或 B属性 ＝ -1)
    
53.     返回 (假)
    
54. .如果真结束
    
55. .如果 (强制交换)
    
56.     .如果真 (置文件属性 (文件名A, 0) ＝ 假 或 置文件属性 (文件名B, 0) ＝ 假)
    
57.         返回 (假)
    
58.     .如果真结束
    
59. 
    
60. .否则
    
61.     .如果真 (位与 (A属性, 1) ＝ 1 或 位与 (B属性, 1) ＝ 1)
    
62.         返回 (假)
    
63.     .如果真结束
    
64. 
    
65. .如果结束
    
66. 
    
67. A数据 ＝ 读入文件 (文件名A)
    
68. B数据 ＝ 读入文件 (文件名B)
    
69. .如果真 (写到文件 (文件名A, B数据) ＝ 假 或 写到文件 (文件名B, A数据) ＝ 假)
    
70.     返回 (假)
    
71. .如果真结束
    
72. .如果真 (强制交换 且 (置文件属性 (文件名A, A属性) ＝ 假 或 置文件属性 (文件名B, B属性) ＝ 假))
    
73.     返回 (假)
    
74. .如果真结束
    
75. .如果真 (交换属性 且 交换文件属性 (文件名A, 文件名B) ＝ 假)
    
76.     返回 (假)
    
77. .如果真结束
    
78. 返回 (真)
    
79. 
    
80. 
    

复制代码

朵朵

沙发，进来看看