打包文件的软件包含解压缩

易语言 2020-08-23 17:02:14

打包文件的软件包含解压缩

.计次循环首 (列表框1.取项目数 (), i)
文本框1.加入文本 (“※开始解包……” + #换行符)
文本框1.加入文本 (“※读入待解包文件……” + #换行符)
文本框1.加入文本 (“※开始解压文件……” + #换行符)
文本框1.加入文本 (“※检测” + 列表框1.取项目文本 (i - 1) + “解压文件……” + #换行符)
文件号 = 打开文件 (列表框1.取项目文本 (i - 1), #读写, )
.如果真 (文件号 = 0)
文本框1.加入文本 (“※无法读取打包程序RZP文件” + 列表框1.取项目文本 (i - 1) + “的信息!” + #换行符)
文本框1.加入文本 (“※检测解压文件失败……” + #换行符)
文本框1.加入文本 (“※解压文件失败……” + #换行符)
文本框1.加入文本 (“※请确认此解压文件是RZP打包文件!!” + #换行符)
到循环尾 ()
.如果真结束
读入数据 (文件号, 文件数)
文本框1.加入文本 (“※解压文件数为:” + 到文本 (文件数) + #换行符)
重定义数组 (数据组, 假, 到数值 (文件数))
重定义数组 (扩展名组, 假, 到数值 (文件数))
移到文件首 (文件号)
读入数据 (文件号, 文件数, 数据组, 扩展名组, 版权信息)
关闭文件 (文件号)
.计次循环首 (到数值 (文件数), n)
.如果真 (写到文件 (取运行目录 () + “\” + 到文本 (扩展名组 [n]), 数据组 [n]) = 假)
文本框1.加入文本 (“※写出数据文件” + 取运行目录 () + “\” + 到文本 (扩展名组 [n]) + “失败!!不可预料的错误!!” + #换行符)
到循环尾 ()
.如果真结束
文本框1.加入文本 (“※写出数据文件:” + 取运行目录 () + “\” + 到文本 (扩展名组 [n]) + “成功!!” + #换行符)
.计次循环尾 ()
.计次循环尾 ()