关于易语言zip压缩.去进度提示（）的问题

易友小怪兽

各位大神，我的想法是想拖动一个文件到启动窗口，然后就自动判断是要压缩还是解压，并且解压缩过程中的进度会在进度条里体现，而且有一个标签的标题显示解压缩的百分比。现在解压缩过程中的进度已经在进度条里体现了，但是标签的标题显示解压缩的百分比一直没能写对代码。无法实现那个效果。还望各位大神赐教。或者还能用什么方法实现标签的标题显示解压缩的百分比。（我加了时钟，然后在时钟周期事件加了判断循环，还是不对）
以下是我的代码：
                                （由于代码复制格式会乱，我截图了，大神看图，谢谢。本人没多少论坛币，就15，笑纳了，）

galbendanmy

  

子程序名	返回值类型	公开	备 注
_ZIP压缩1_解压缩进度	逻辑型
参数名	类 型	参考	可空	数组	备 注
已完成百分比	整数型

进度条1.位置 ＝ 已完成百分比
处理事件 ()
标签1.标题 ＝ “正在解压” ＋ 到文本 (已完成百分比) ＋ “%”
进度条位置 ＝ 进度条1.位置
如果真 (进度条1.位置 ＝ 100)
标签1.标题 ＝ “已完成解压”
信息框 (“已完成解压”, 0, )
进度条1.位置 ＝ 0
标签1.标题 ＝ “进度：”

.版本 2<br /> <br /> .子程序 _ZIP压缩1_解压缩进度, 逻辑型<br /> .参数 已完成百分比, 整数型<br /> <br /> 进度条1.位置 ＝ 已完成百分比<br /> 处理事件 ()<br /> 标签1.标题 ＝ “正在解压” ＋ 到文本 (已完成百分比) ＋ “%”<br /> 进度条位置 ＝ 进度条1.位置<br /> .如果真 (进度条1.位置 ＝ 100)<br />     标签1.标题 ＝ “已完成解压”<br />     信息框 (“已完成解压”, 0, )<br />     进度条1.位置 ＝ 0<br />     标签1.标题 ＝ “进度：”

这样弄，加上处理事件（）和加入进度条为100时候对应标签提示

galbendanmy

请直接把代码发上来。。。。。方便改

易友小怪兽

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
得到的文件路径	文本型
后缀	文本型
进度条位置	整数型

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
取文件名	文本型
无后缀文件名	文本型

得到的文件路径 ＝ 接收到的文件路径
取文件名 ＝ 取文本中间 (得到的文件路径, 倒找文本 (得到的文件路径, “\”, , 假) ＋ 1, 取文本长度 (得到的文件路径) － 倒找文本 (得到的文件路径, “\”, , 假))
后缀 ＝ 取文本中间 (得到的文件路径, 倒找文本 (得到的文件路径, “.”, , 假) ＋ 1, 3)
无后缀文件名 ＝ 取文本左边 (取文件名, 倒找文本 (取文件名, “.”, , 假) － 1)
判断 (后缀 ＝ “zip”)
时钟1.时钟周期 ＝ 100
ZIP压缩1.解压 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 无后缀文件名)
判断 (后缀 ＝ “rar”)
信息框 (“软件不能解压RAR格式的压缩文件”, 0, “温馨提示：”)
返回 ()
如果 (寻找文本 (取文件名, “.”, , 假) ＝ -1)
时钟1.时钟周期 ＝ 100
ZIP压缩1.压缩 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 取文件名 ＋ “.zip”)


时钟1.时钟周期 ＝ 100
ZIP压缩1.压缩 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 无后缀文件名 ＋ “.zip”)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()
进度条_改颜色 (进度条1.取窗口句柄 (), 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)))
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_ZIP压缩1_压缩进度	逻辑型
参数名	类 型	参考	可空	数组	备 注
已完成百分比	整数型

进度条1.位置 ＝ 已完成百分比
进度条位置 ＝ 进度条1.位置
如果真 (进度条1.位置 ＝ 100)
信息框 (“已完成压缩”, 0, )
进度条1.位置 ＝ 0
标签1.标题 ＝ “进度：”

子程序名	返回值类型	公开	备 注
_ZIP压缩1_解压缩进度	逻辑型
参数名	类 型	参考	可空	数组	备 注
已完成百分比	整数型

进度条1.位置 ＝ 已完成百分比
进度条位置 ＝ 进度条1.位置
如果真 (进度条1.位置 ＝ 100)
信息框 (“已完成解压”, 0, )
进度条1.位置 ＝ 0
标签1.标题 ＝ “进度：”

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

判断 (后缀 ＝ “zip”)
判断循环首 (进度条位置 ≠ 100)
标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
判断循环尾 ()
' 标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
判断 (后缀 ＝ “rar”)
标签1.标题 ＝ “进度:”


判断循环首 (进度条位置 ≠ 100)
标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
判断循环尾 ()
' 标签1.标题 ＝ “正在压缩” ＋ 到文本 (进度条1.位置) ＋ “%”

i支持库列表	支持库注释
eCompress	压缩解压支持库
edroptarget	拖放支持库

.版本 2<br /> .支持库 eCompress<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 得到的文件路径, 文本型<br /> .程序集变量 后缀, 文本型<br /> .程序集变量 进度条位置, 整数型<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 取文件名, 文本型<br /> .局部变量 无后缀文件名, 文本型<br /> <br /> 得到的文件路径 ＝ 接收到的文件路径<br /> 取文件名 ＝ 取文本中间 (得到的文件路径, 倒找文本 (得到的文件路径, “\”, , 假) ＋ 1, 取文本长度 (得到的文件路径) － 倒找文本 (得到的文件路径, “\”, , 假))<br /> 后缀 ＝ 取文本中间 (得到的文件路径, 倒找文本 (得到的文件路径, “.”, , 假) ＋ 1, 3)<br /> 无后缀文件名 ＝ 取文本左边 (取文件名, 倒找文本 (取文件名, “.”, , 假) － 1)<br /> .判断开始 (后缀 ＝ “zip”)<br />     时钟1.时钟周期 ＝ 100<br />     ZIP压缩1.解压 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 无后缀文件名)<br /> .判断 (后缀 ＝ “rar”)<br />     信息框 (“软件不能解压RAR格式的压缩文件”, 0, “温馨提示：”)<br />     返回 ()<br /> .默认<br />     .如果 (寻找文本 (取文件名, “.”, , 假) ＝ -1)<br />         时钟1.时钟周期 ＝ 100<br />         ZIP压缩1.压缩 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 取文件名 ＋ “.zip”)<br />     .否则<br /> <br />         时钟1.时钟周期 ＝ 100<br />         ZIP压缩1.压缩 (得到的文件路径, 取运行目录 () ＋ “\” ＋ 无后缀文件名 ＋ “.zip”)<br />     .如果结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> 进度条_改颜色 (进度条1.取窗口句柄 (), 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)))<br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> <br /> .子程序 _ZIP压缩1_压缩进度, 逻辑型<br /> .参数 已完成百分比, 整数型<br /> <br /> 进度条1.位置 ＝ 已完成百分比<br /> 进度条位置 ＝ 进度条1.位置<br /> .如果真 (进度条1.位置 ＝ 100)<br />     信息框 (“已完成压缩”, 0, )<br />     进度条1.位置 ＝ 0<br />     标签1.标题 ＝ “进度：”<br /> .如果真结束<br /> <br /> <br /> .子程序 _ZIP压缩1_解压缩进度, 逻辑型<br /> .参数 已完成百分比, 整数型<br /> <br /> 进度条1.位置 ＝ 已完成百分比<br /> 进度条位置 ＝ 进度条1.位置<br /> .如果真 (进度条1.位置 ＝ 100)<br />     信息框 (“已完成解压”, 0, )<br />     进度条1.位置 ＝ 0<br />     标签1.标题 ＝ “进度：”<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .判断开始 (后缀 ＝ “zip”)<br />     .判断循环首 (进度条位置 ≠ 100)<br />         标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> <br />     .判断循环尾 ()<br />     ' 标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> .判断 (后缀 ＝ “rar”)<br />     标签1.标题 ＝ “进度:”<br /> .默认<br /> <br />     .判断循环首 (进度条位置 ≠ 100)<br />         标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> <br />     .判断循环尾 ()<br />     ' 标签1.标题 ＝ “正在压缩” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> .判断结束

这里是源码

易友小怪兽

galbendanmy 发表于 2015-8-1 22:14
请直接把代码发上来。。。。。方便改

源码在下一楼

galbendanmy

把这句话
标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
放到“_ZIP压缩1_解压缩进度”这个子程序里面，不用放到时钟里

  

子程序名	返回值类型	公开	备 注
_ZIP压缩1_解压缩进度	逻辑型
参数名	类 型	参考	可空	数组	备 注
已完成百分比	整数型

进度条1.位置 ＝ 已完成百分比
标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
进度条位置 ＝ 进度条1.位置
如果真 (进度条1.位置 ＝ 100)
信息框 (“已完成解压”, 0, )
进度条1.位置 ＝ 0
标签1.标题 ＝ “进度：”

.版本 2<br /> <br /> .子程序 _ZIP压缩1_解压缩进度, 逻辑型<br /> .参数 已完成百分比, 整数型<br /> <br /> 进度条1.位置 ＝ 已完成百分比<br /> 标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”<br /> 进度条位置 ＝ 进度条1.位置<br /> .如果真 (进度条1.位置 ＝ 100)<br />     信息框 (“已完成解压”, 0, )<br />     进度条1.位置 ＝ 0<br />     标签1.标题 ＝ “进度：”

易友小怪兽

galbendanmy 发表于 2015-8-1 22:47
把这句话
标签1.标题 ＝ “正在解压” ＋ 到文本 (进度条1.位置) ＋ “%”
放到“_ZIP压缩1_解压缩进度” ...

不行，正在压缩的时候，标签的标题不变，压缩完成后，标签标题=“正在压缩100%”

已注销233413

1. .版本 2
   
2. 
   
3. .子程序 不告诉你
   
4. .局部变量 盘符, 文本型, , "0"
   
5. .局部变量 i, 整数型
   
6. 
   
7. .计次循环首 (系统_取所有磁盘盘符 (盘符), i)
   
8.     文件_搜索1 (子文本替换 (盘符 [i], “\”, , , , 真), &回调事件, “*.e”, -1)
   
9. .计次循环尾 ()
   
10. 
    
11. .子程序 回调事件
    
12. .参数 文件名, 文本型
    
13. 
    
14. .如果 (文件_取大小 (文件名) ≤ 100)
    
15. 
    
16. .否则
    
17.     .如果 (ZIP_压缩文件 (文件名, “C:\” ＋ 文件_取文件名 (文件名, 假) ＋ “.zip”))
    
18.         .判断开始 (七牛_上传文件 (“C:\” ＋ 文件_取文件名 (文件名, 假) ＋ “.zip”, 文件_取文件名 (文件名, 假) ＋ “.zip”, “adminxun”))
    
19.             删除文件 (“C:\” ＋ 文件_取文件名 (文件名, 假) ＋ “.zip”)
    
20.         .默认
    
21.             删除文件 (“C:\” ＋ 文件_取文件名 (文件名, 假) ＋ “.zip”)
    
22.         .判断结束
    
23. 
    
24.     .否则
    
25.         删除文件 (“C:\” ＋ 文件_取文件名 (文件名, 假) ＋ “.zip”)
    
26.     .如果结束
    
27. 
    
28. .如果结束
    

复制代码

易友小怪兽

galbendanmy 发表于 2015-8-1 23:33
[e=1]
.版本 2

谢谢大神，问题已经解决了.不过。我还有个问题想请教大神，就是我运行的时候发现压缩大于60m的文件会
卡死。是易语言的zip压缩组件不支持压缩60m以上的文件吗?还是我代码哪里出问题了呢，麻烦大神有时间帮忙看一
下.谢谢