易语言调用CMD的 copy /b 命令实现将多个小文件合并成一个大文件 (返回逻辑型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 输出调试文本 (合并文件 ({ “1.txt”, “2.txt”, “3.txt”, “4.txt” }, “out.txt”))
    
14. 
    
15. 
    
16. .子程序 合并文件, 逻辑型, 公开
    
17. .参数 输入文件名, 文本型, 数组
    
18. .参数 输出文件名, 文本型
    
19. .局部变量 文件数, 整数型
    
20. .局部变量 计数, 整数型
    
21. .局部变量 命令行, 文本型
    
22. .局部变量 文件名, 文本型
    
23. .局部变量 错误输出, 文本型
    
24. .局部变量 标准输出, 文本型
    
25. 
    
26. 文件数 ＝ 取数组成员数 (输入文件名)
    
27. .如果真 (文件数 ＝ 0)
    
28.     返回 (假)
    
29. .如果真结束
    
30. 命令行 ＝ “cmd /c copy /b ”
    
31. .计次循环首 (文件数, 计数)
    
32.     文件名 ＝ 输入文件名 [计数]
    
33.     .如果真 (文件是否存在 (文件名) ＝ 假)
    
34.         返回 (假)
    
35.     .如果真结束
    
36.     .如果 (计数 ＝ 文件数)
    
37.         命令行 ＝ 命令行 ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 输出文件名 ＋ #引号
    
38.     .否则
    
39.         命令行 ＝ 命令行 ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “+”
    
40.     .如果结束
    
41. 
    
42. .计次循环尾 ()
    
43. 
    
44. .判断开始 (运行控制台程序 (命令行, 标准输出, 错误输出, ) ＝ 假)
    
45.     返回 (假)
    
46. .判断 (错误输出 ≠ “” 或 标准输出 ＝ “”)
    
47.     返回 (假)
    
48. .默认
    
49. 
    
50. .判断结束
    
51. 返回 (文件是否存在 (输出文件名))
    

复制代码