|
本帖最后由 CNWTEPRG 于 2020-2-12 18:21 编辑
- .版本 2
- .常量 程序路径_7z, "“E:\Program Files\7-Zip\7z.exe”"
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- 输出调试文本 (压缩包测试 (“D:\Test.zip”))
- 输出调试文本 (压缩包测试_字节集 (读入文件 (“D:\Test.zip”)))
- .子程序 压缩包测试, 逻辑型, , 压缩包存在数据错误返回假,否则返回真。
- .参数 路径, 文本型, , 支持.rar .zip .7z .bz2 .tar 等7-Zip支持的格式
- .局部变量 输出文本, 文本型
- .局部变量 分割, 文本型, , "0"
- .局部变量 计数, 整数型
- .判断开始 (文件是否存在 (#程序路径_7z) = 假)
- 输出调试文本 (“文件 ” + #程序路径_7z + “ 不存在!请确认7-Zip是否已正确安装。”)
- 返回 (假)
- .判断 (文件是否存在 (路径) = 假)
- 输出调试文本 (“文件 ” + 路径 + “ 不存在!”)
- 返回 (假)
- .判断 (运行控制台程序 (#引号 + #程序路径_7z + #引号 + “ t ” + #引号 + 路径 + #引号, 输出文本, , ) = 假)
- 输出调试文本 (“运行控制台程序失败!”)
- 返回 (假)
- .默认
- .判断结束
- 分割 = 分割文本 (输出文本, #换行符, )
- .计次循环首 (取数组成员数 (分割), 计数)
- .如果真 (分割 [计数] = “Everything is Ok”)
- 返回 (真)
- .如果真结束
- .计次循环尾 ()
- 返回 (假)
- .子程序 压缩包测试_字节集, 逻辑型
- .参数 字节集数据, 字节集
- .局部变量 文件名, 文本型
- .局部变量 返回值, 逻辑型
- 文件名 = 取临时文件名 ()
- 写到文件 (文件名, 字节集数据)
- 返回值 = 压缩包测试 (文件名)
- 删除文件 (文件名)
- 返回 (返回值)
复制代码 |
|