易语言控制台内解压模块

ClayCoffee

  最近几天我自己想做一个控制台的立刻解压的软件，但是控制台内不能添加ZIP压缩功能，我看论坛上只有一个rar的解压缩模块，还要带rar.exe,于是我就花了10分钟做了一个。
  第一个参数为 文件名。  第二个参数为 是否解压到根目录。
  第三个参数为 解压目录。
  第四个参数为 文件目录。
  用法很简单，只需要先添加本模块，然后输入
  "ZIP解压("解压的文件名")"
  默认是解压根目录的压缩文件，比如说你输入:
  "ZIP解压("abc.zip")"
  再假设，你把引用本模块编译后的软件放在E:\ABC这个文件夹里，那么本模块就会解压E:\ABC\abc.zip这个压缩文件。
  基础用法就这么简单，更多用法请看指令说明。下面是下载地址:
  1.0: 解压zip(控制台）.rar (898 Bytes, 下载次数: 25)

2017-8-19 13:09 上传

点击文件名下载附件
模块下载
  2.0: 解压zip(控制台） 2.0.rar (1.28 KB, 下载次数: 93)

2017-8-19 14:52 上传

点击文件名下载附件
2.0模块下载
拒绝伸手党，请你们回复！
  原理十分简单，所以我就不发源码了。 一个例子:

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

更新文件是否存在 ＝ 文件是否存在 (取运行目录 () ＋ “\update.zip”)
如果 (更新文件是否存在 ＝ 真)
信息框 (“文件存在，正在解压...”, 0, , )
解压ZIP (“update.zip”, 假 )
信息框 (“解压完毕！请关闭本软件。”, 0, , )
返回 (0)

信息框 (“文件不存在！请确定目录。”, 0, , )
返回 (0)
返回 (0)  ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 更新文件是否存在 ＝ 文件是否存在 (取运行目录 () ＋ “\update.zip”)<br /> <br /> .如果 (更新文件是否存在 ＝ 真)<br />     信息框 (“文件存在，正在解压...”, 0, , )<br />     解压ZIP (“update.zip”, 假 )<br />     信息框 (“解压完毕！请关闭本软件。”, 0, , )<br />     返回 (0)<br /> <br /> .否则<br />     信息框 (“文件不存在！请确定目录。”, 0, , )<br />     返回 (0)<br /> .如果结束<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

这个就是先检测根目录里是否有 update.zip,然后解压这个ZIP.
若转载请注明原处，谢谢！！




补充内容 (2017-8-19 19:59):
拒绝伸手党！请你们回复，求你们了！

补充内容 (2017-8-19 20:32):
1.0是第一版本，只支持解压到根目录，
2.0是第二版本，支持解压指定的文件到指定的目录。。

补充内容 (2017-8-20 16:41):
3.0发放下载。。。具体看3楼

ChongCi

感谢分享感谢分享

佐佐木琲世

感谢楼主 困扰了一个中午的问题终于解决了

syamd29

感谢分享感谢分享

yangxiao6

支持楼主,感谢楼主

无孔不入

支持楼主,感谢楼主

90ne

解压目录是否在根目录和文件目录是否在根目录

影流

拿走了，我不做伸手党

chf43257444

2017-8-31 14:13:52 不错 学习学习  6楼 lijunfa 2017-8-30 19:46:29 支持支持。。。。。。。。  地下 hhnwpe 2017-8-22 08:53:49 谢谢分享啊

624381630

不就是一个载入窗口，然后用里面的zip解压组件解压吗？

pomieanye

不错 学习学习