超简单文件打包解包系统1.0版 - 可将目录中的多个文件与文件名打包成一个文件/字节集

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. 
    
15. ' 文件打包解包数据格式: 开头为文件名(文本型不含路径) 遇到空字符终止，接下来4字节为数据长度，再继续为文件数据，以此类推。
    
16. 
    
17. 写到文件 (“font.bin”, 文件打包 (“C:\WINDOWS\Fonts”))
    
18. 创建目录 (“font”)
    
19. 文件解包 (“font”, 读入文件 (“font.bin”))
    
20. 
    
21. 
    
22. .子程序 枚举文件, 文本型
    
23. .参数 目录, 文本型
    
24. .局部变量 目录表, 文本型
    
25. 
    
26. .如果真 (运行控制台程序 (“cmd /c dir /b ” ＋ #引号 ＋ 目录 ＋ “\*” ＋ #引号, 目录表, , ) ＝ 假)
    
27.     返回 (“”)
    
28. .如果真结束
    
29. 返回 (目录表)
    
30. 
    
31. 
    
32. .子程序 文件打包, 字节集, 公开, 将一个目录中的多个文件以及文件名打包成一个文件
    
33. .参数 目录路径, 文本型, , 不支持子目录以及文件属性，末尾不含斜杠
    
34. .局部变量 文件列表, 文本型, , "0"
    
35. .局部变量 文件数, 整数型
    
36. .局部变量 计数, 整数型
    
37. .局部变量 数据长度, 整数型
    
38. .局部变量 文件长度, 整数型
    
39. .局部变量 内存首地址, 整数型
    
40. .局部变量 当前指针, 整数型
    
41. .局部变量 返回值, 字节集
    
42. .局部变量 数据, 字节集
    
43. .局部变量 长度, 整数型
    
44. 
    
45. 目录路径 ＝ 子文本替换 (目录路径, “/”, “\”, , , 真)
    
46. 文件列表 ＝ 分割文本 (枚举文件 (目录路径), #换行符, )
    
47. 文件数 ＝ 取数组成员数 (文件列表)
    
48. 数据长度 ＝ 0
    
49. .计次循环首 (文件数, 计数)
    
50.     文件长度 ＝ 取文件尺寸 (目录路径 ＋ “\” ＋ 文件列表 [计数])
    
51.     .如果真 (文件长度 ≥ 0)
    
52.         数据长度 ＝ 数据长度 ＋ 取文本长度 (文件列表 [计数]) ＋ 1 ＋ 文件长度 ＋ 4
    
53.     .如果真结束
    
54. 
    
55. .计次循环尾 ()
    
56. 内存首地址 ＝ 申请内存 (数据长度, 真)
    
57. 当前指针 ＝ 内存首地址
    
58. .计次循环首 (文件数, 计数)
    
59.     数据 ＝ 读入文件 (目录路径 ＋ “\” ＋ 文件列表 [计数])
    
60.     长度 ＝ 取字节集长度 (数据)
    
61.     写到内存 (文件列表 [计数], 当前指针, )
    
62.     当前指针 ＝ 当前指针 ＋ 取文本长度 (文件列表 [计数]) ＋ 1
    
63.     写到内存 (长度, 当前指针, )
    
64.     当前指针 ＝ 当前指针 ＋ 4
    
65.     写到内存 (数据, 当前指针, )
    
66.     当前指针 ＝ 当前指针 ＋ 长度
    
67. .计次循环尾 ()
    
68. 返回值 ＝ 指针到字节集 (内存首地址, 数据长度)
    
69. 释放内存 (内存首地址)
    
70. 返回 (返回值)
    
71. 
    
72. .子程序 文件解包, 逻辑型, 公开, 将一个文件解包成多个文件到指定目录
    
73. .参数 目录名, 文本型, , 末尾不含斜杠
    
74. .参数 数据, 字节集, , 提供打包后的数据
    
75. .局部变量 指针, 整数型
    
76. .局部变量 结束指针, 整数型
    
77. .局部变量 当前指针, 整数型
    
78. .局部变量 文件名, 文本型
    
79. .局部变量 数据长度, 整数型
    
80. .局部变量 文件数据, 字节集
    
81. 
    
82. 指针 ＝ 取变量数据地址 (数据)
    
83. 当前指针 ＝ 指针
    
84. 结束指针 ＝ 指针 ＋ 取字节集长度 (数据)
    
85. .循环判断首 ()
    
86.     文件名 ＝ 指针到文本 (当前指针)
    
87.     当前指针 ＝ 当前指针 ＋ 取文本长度 (文件名) ＋ 1
    
88.     数据长度 ＝ 指针到整数 (当前指针)
    
89.     当前指针 ＝ 当前指针 ＋ 4
    
90.     文件数据 ＝ 指针到字节集 (当前指针, 数据长度)
    
91.     当前指针 ＝ 当前指针 ＋ 数据长度
    
92.     .如果真 (写到文件 (目录名 ＋ “\” ＋ 文件名, 文件数据) ＝ 假)
    
93.         返回 (假)
    
94.     .如果真结束
    
95. 
    
96. .循环判断尾 (当前指针 ＜ 结束指针)
    
97. 返回 (真)
    
98. 
    

复制代码

1心1亿

谢谢分享了