易语言调用7-Zip的7z.exe命令行程序实现快速解压/抽取/提取压缩包内的某个文件

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. .程序集变量 _7z路径, 文本型
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. _7z路径 ＝ “E:\Program Files\7-Zip\7z.exe”
    
11. .如果真 (文件是否存在 (_7z路径) ＝ 假)
    
12.     信息框 (“文件 ” ＋ _7z路径 ＋ “ 不存在！ 请先安装7-Zip”, 0, , )
    
13.     返回 (0)
    
14. .如果真结束
    
15. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
16. 返回 (0)  ' 可以根据您的需要返回任意数值
    
17. 
    
18. .子程序 _临时子程序
    
19. .局部变量 模式, 整数型
    
20. .局部变量 ID, 整数型
    
21. 
    
22. 模式 ＝ 1
    
23. .判断开始 (模式 ＝ 0)
    
24.     检查 (创建目录 (“file”))
    
25.     .计次循环首 (10000, ID)
    
26.         检查 (写到文件 (“file\” ＋ 到文本 (ID) ＋ “.txt”, 到字节集 (随机密码 (256))))
    
27. 
    
28.     .计次循环尾 ()
    
29.     信息框 (“请将 file 目录下所有文件加密压缩为 file.7z (不包括目录) 解压密码:123456”, 0, , )
    
30.     返回 ()
    
31. 
    
32. .判断 (模式 ＝ 1)
    
33.     提取压缩包内文件 (“file\file.7z”, “1234.txt”, “123456”)
    
34. .默认
    
35. 
    
36. .判断结束
    
37. 
    
38. 
    
39. .子程序 随机密码, 文本型
    
40. .参数 长度, 整数型
    
41. .局部变量 A, 文本型
    
42. .局部变量 B, 文本型
    
43. 
    
44. A ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
    
45. 
    
46. .计次循环首 (长度, )
    
47.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
48. .计次循环尾 ()
    
49. 返回 (B)
    
50. 
    
51. .子程序 提取压缩包内文件
    
52. .参数 压缩包文件名, 文本型
    
53. .参数 文件名, 文本型
    
54. .参数 解压密码, 文本型, 可空
    
55. .局部变量 命令行, 文本型
    
56. 
    
57. 命令行 ＝ _7z路径 ＋ “ x ” ＋ #引号 ＋ 压缩包文件名 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 文件名 ＋ #引号
    
58. .如果真 (是否为空 (解压密码) ＝ 假)
    
59.     命令行 ＝ 命令行 ＋ “ -p” ＋ 解压密码
    
60. .如果真结束
    
61. 运行 (命令行, 真, )
    

复制代码