易语言快速提取释放程序自身末尾的GB级数据到文件 (用于自解压安装包,不支持独立编译)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型
   
7. 
   
8. .如果真 (是否为调试版 ())
   
9.     信息框 (“请编译后运行！”, 0, , )
   
10.     返回 (0)
    
11. .如果真结束
    
12. .如果 (取自身末尾数据到文件 (“数据.bin”, 1073741824))
    
13.     信息框 (“提取成功！”, 0, , )
    
14. .否则
    
15.     信息框 (“提取失败！”, 0, , )
    
16. .如果结束
    
17. 
    
18. 
    
19. 返回 (0)  ' 可以根据您的需要返回任意数值
    
20. 
    
21. .子程序 取自身末尾数据到文件, 逻辑型, 公开, 编译后使用cmd的copy /b 命令将数据与自身程序合并 (静态编译若无法运行请更换链接器,不支持独立编译)
    
22. .参数 文件名, 文本型, , 如果文件存在将清除并覆盖
    
23. .参数 末尾字节数, 整数型
    
24. .局部变量 自身文件名, 文本型
    
25. .局部变量 自身文件号, 整数型
    
26. .局部变量 自身长度, 整数型
    
27. .局部变量 输出文件号, 整数型
    
28. .局部变量 字节集缓存, 字节集
    
29. .局部变量 缓存大小, 整数型
    
30. 
    
31. 自身文件名 ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ()
    
32. 自身长度 ＝ 取文件尺寸 (自身文件名)
    
33. .如果真 (末尾字节数 ＞ 自身长度 或 末尾字节数 ≤ 0 或 文件名 ＝ “” 或 是否为调试版 ())
    
34.     返回 (假)
    
35. .如果真结束
    
36. 自身文件号 ＝ 打开文件 (自身文件名, #读入, #禁止写)
    
37. .如果真 (自身文件号 ＝ 0)
    
38.     返回 (假)
    
39. .如果真结束
    
40. .如果真 (移动读写位置 (自身文件号, #文件首, 取文件长度 (自身文件号) － 末尾字节数) ＝ 假)
    
41.     关闭文件 (自身文件号)
    
42.     返回 (假)
    
43. .如果真结束
    
44. 输出文件号 ＝ 打开文件 (文件名, #重写, #禁止写)
    
45. .如果真 (输出文件号 ＝ 0)
    
46.     关闭文件 (自身文件号)
    
47.     删除文件 (文件名)
    
48.     返回 (假)
    
49. .如果真结束
    
50. .判断循环首 (真)
    
51.     字节集缓存 ＝ 读入字节集 (自身文件号, 16777216)
    
52.     .如果真 (取字节集长度 (字节集缓存) ＝ 0)
    
53.         跳出循环 ()
    
54.     .如果真结束
    
55.     .如果真 (写出字节集 (输出文件号, 字节集缓存) ＝ 假)
    
56.         关闭文件 (输出文件号)
    
57.         关闭文件 (自身文件号)
    
58.         删除文件 (文件名)
    
59.         返回 (假)
    
60.     .如果真结束
    
61. 
    
62. .判断循环尾 ()
    
63. 关闭文件 (输出文件号)
    
64. 关闭文件 (自身文件号)
    
65. 返回 (真)
    

复制代码