【升级优化版】压缩包源码模块V3 - 精易论坛

[JavaScript] 纯文本查看 复制代码

.版本 2

.支持库 edroptarget

.支持库 shell

.支持库 spec

.支持库 EThread



.程序集 窗口程序集_启动窗口

.程序集变量 y, 压缩解压类

.程序集变量 局_, 包内文件信息, , "0"

.程序集变量 a, 整数型

.程序集变量 局_读入, 字节集



.子程序 __启动窗口_创建完毕



拖放对象1.注册拖放控件 (取窗口句柄 ())

' 昀离.皮肤加载 (1, 99, 99, 99, )



.子程序 _拖放对象1_得到文件

.参数 接收到的文件路径, 文本型



.如果真 (选择框1.选中 ＝ 真)

    编辑框1.内容 ＝ 接收到的文件路径

.如果真结束









.子程序 子程序1



y.置切片大小 (50)

y.置包密钥 (“8x8x”)

y.文件打包 (编辑框1.内容, 取特定目录 (#系统桌面) ＋ “昀离.xcy”, 状态条1, 进度条2, 进度条1)

调试输出 (y.取包内文件信息 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, 局_))

.计次循环首 (取数组成员数 (局_), a)

    调试输出 (局_ [a].文件名, 局_ [a].目录名, 字节长度转MB长度 (局_ [a].压缩前文件大小), 字节长度转MB长度 (局_ [a].压缩后文件大小), 局_ [a].文件切片数, 到文本 (压缩率计算 (局_ [a].压缩前文件大小, 局_ [a].压缩后文件大小)) ＋ “%”)

.计次循环尾 ()





.子程序 _按钮1_被单击



.判断开始 (编辑框1.内容 ≠ “”)

    启动线程 (&子程序1, , )

.默认

    _启动窗口.标题 ＝ “内容为空”

.判断结束





.子程序 _按钮2_被单击



y.置包密钥 (“8x8x”)

y.解包文件 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, 编辑框1.内容, , 状态条1, 进度条1, 进度条2)

' y.取包内某文件 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, “_asyncio.pyd”, “C:\Users\Administrator\Desktop\测试文件夹\把所需要打包的文件放进来然后复制地址\”)

' 局_读入 ＝ y.取包内某文件_字节集 (取特定目录 (#系统桌面) ＋ “昀离.xcy”, “_asyncio.pyd”)

' 写到文件 (“C:\Users\Administrator\Desktop\测试文件夹\把所需要打包的文件放进来然后复制地址\” ＋ “_asyncio.pyd”, 局_读入)

' 输出调试文本 (局_读入)