来个大神 把代码简化 优化一下 纯小白 谢谢

a12064892

来个大神 把代码简化 优化一下 纯小白 谢谢
来个大神 把代码简化 优化一下 纯小白 谢谢

wangchen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
源文件	文本型
目录	文本型
许可	整数型

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

许可 ＝ 创建进入许可证 ()
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

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

源文件 ＝ 接收到的文件路径
目录 ＝ 文件_取目录 (源文件)
调试输出 (源文件, 目录)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

rar_初始化 (“C:\Program Files\WinRAR\WinRAR.exe”)
计次循环首 (到整数 (编辑框1.内容), i)
线程_启动 (&解压文件, i)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
解压文件
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
ret	文本型
解压目录	文本型

解压目录 ＝ 目录 ＋ 到文本 (参数)
如果真 (创建目录 (解压目录))
进入许可区 (许可)
rar_解压 (源文件, 解压目录, , 真, 假, 假)
循环判断首 ()
程序_延时 (100)
循环判断尾 (文件_枚举 (目录, “*.*”) ＝ 0)
退出许可区 (许可)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除进入许可证 (许可)

i支持库列表	支持库注释
EThread	多线程支持库
edroptarget	拖放支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 edroptarget<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 源文件, 文本型<br /> .程序集变量 目录, 文本型<br /> .程序集变量 许可, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 许可 ＝ 创建进入许可证 ()<br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 源文件 ＝ 接收到的文件路径<br /> 目录 ＝ 文件_取目录 (源文件)<br /> 调试输出 (源文件, 目录)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> <br /> rar_初始化 (“C:\Program Files\WinRAR\WinRAR.exe”)<br /> .计次循环首 (到整数 (编辑框1.内容), i)<br />     线程_启动 (&解压文件, i)<br /> .计次循环尾 ()<br /> <br /> .子程序 解压文件<br /> .参数 参数, 整数型<br /> .局部变量 ret, 文本型<br /> .局部变量 解压目录, 文本型<br /> <br /> 解压目录 ＝ 目录 ＋ 到文本 (参数)<br /> .如果真 (创建目录 (解压目录))<br />     进入许可区 (许可)<br />     rar_解压 (源文件, 解压目录, , 真, 假, 假)<br />     .循环判断首 ()<br />         程序_延时 (100)<br />     .循环判断尾 (文件_枚举 (目录, “*.*”) ＝ 0)<br />     退出许可区 (许可)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (许可)

解压.e (963.2 KB, 下载次数: 4)

2025-9-27 15:29 上传

点击文件名下载附件


你那源码实在是没看懂 给你写了一个

zainex

标记组件 + 事件转移, 可以减少代码量:
因为我这边没有安装rar程序, 所以把调用rar解压的步骤注释掉了:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
数	整数型
编辑框	编辑框
拖放对象	拖放对象

计次循环首 (9, 数)
编辑框 ＝ 取标记组件 (数)
拖放对象 ＝ 取标记组件 (数 ＋ 10)
拖放对象.注册拖放控件 (编辑框.取窗口句柄 ())
如果真 (数 ＝ 9)  ' 9 == 拖放对象1
到循环尾 ()
事件转移 (拖放对象, 拖放对象1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
拖放对象	拖放对象
编辑框	编辑框

拖放对象 ＝ 取事件组件 ()
编辑框 ＝ 取标记组件 (到整数 (拖放对象.标记) － 10)
编辑框.内容 ＝ 接收到的文件路径

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

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

子程序名	返回值类型	公开	备 注
_按钮3_被单击

按钮1.禁止 ＝ 真
如果 (编辑框1.内容 ＝ “”)
信息框 (“源文件目录路径不能为空,请查看是否正确!”, 0, , )
启动线程 (&总线程, , )

子程序名	返回值类型	公开	备 注
总线程

变量名	类 型	静态	数组	备 注
文件名带路径	文本型		0
计次	整数型
路径	文本型

文件_枚举 (编辑框1.内容 ＋ “/”, “*.*”, 文件名带路径, 真)
调试输出 (文件名带路径)
计次循环首 (取数组成员数 (文件名带路径), 计次)
路径 ＝ 文件名带路径 [计次]
解压 (路径)
计次循环尾 ()
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
解压
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
数	整数型
编辑框	编辑框

' rar_初始化 (“C:\Program Files\WinRAR\WinRAR.exe”)
计次循环首 (8, 数)
编辑框 ＝ 取标记组件 (数)
如果真 (编辑框.内容 ＝ “”)
返回 ()
' rar_解压 (路径, 编辑框.内容)
调试输出 (“正在解压到”, 编辑框.内容)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数	整数型

计次循环首 (8, 数)
创建目录 (取特定目录 ( #系统桌面 ) ＋ 到文本 (数))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
数	整数型
编辑框	编辑框

计次循环首 (8, 数)
编辑框 ＝ 取标记组件 (数)
编辑框.内容 ＝ 取特定目录 ( #系统桌面 ) ＋ 到文本 (数)
计次循环尾 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
EThread	多线程支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数, 整数型<br /> .局部变量 编辑框, 编辑框<br /> .局部变量 拖放对象, 拖放对象<br /> <br /> .计次循环首 (9, 数)<br />     编辑框 ＝ 取标记组件 (数)<br />     拖放对象 ＝ 取标记组件 (数 ＋ 10)<br />     拖放对象.注册拖放控件 (编辑框.取窗口句柄 ())<br />     .如果真 (数 ＝ 9)  ' 9 == 拖放对象1<br />         到循环尾 ()<br />     .如果真结束<br />     事件转移 (拖放对象, 拖放对象1)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 拖放对象, 拖放对象<br /> .局部变量 编辑框, 编辑框<br /> <br /> 拖放对象 ＝ 取事件组件 ()<br /> 编辑框 ＝ 取标记组件 (到整数 (拖放对象.标记) － 10)<br /> 编辑框.内容 ＝ 接收到的文件路径<br /> <br /> <br /> .子程序 _拖放对象9_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 编辑框9.内容 ＝ 接收到的文件路径<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 按钮1.禁止 ＝ 真<br /> .如果 (编辑框1.内容 ＝ “”)<br />     信息框 (“源文件目录路径不能为空,请查看是否正确!”, 0, , )<br /> .否则<br />     启动线程 (&总线程, , )<br /> .如果结束<br /> <br /> <br /> .子程序 总线程<br /> .局部变量 文件名带路径, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 路径, 文本型<br /> <br /> 文件_枚举 (编辑框1.内容 ＋ “/”, “*.*”, 文件名带路径, 真)<br /> 调试输出 (文件名带路径)<br /> .计次循环首 (取数组成员数 (文件名带路径), 计次)<br />     路径 ＝ 文件名带路径 [计次]<br />     解压 (路径)<br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假<br /> <br /> <br /> .子程序 解压<br /> .参数 路径, 文本型<br /> .局部变量 数, 整数型<br /> .局部变量 编辑框, 编辑框<br /> <br /> ' rar_初始化 (“C:\Program Files\WinRAR\WinRAR.exe”)<br /> .计次循环首 (8, 数)<br />     编辑框 ＝ 取标记组件 (数)<br />     .如果真 (编辑框.内容 ＝ “”)<br />         返回 ()<br />     .如果真结束<br />     ' rar_解压 (路径, 编辑框.内容)<br />     调试输出 (“正在解压到”, 编辑框.内容)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> <br /> .计次循环首 (8, 数)<br />     创建目录 (取特定目录 (#系统桌面) ＋ 到文本 (数))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数, 整数型<br /> .局部变量 编辑框, 编辑框<br /> <br /> .计次循环首 (8, 数)<br />     编辑框 ＝ 取标记组件 (数)<br />     编辑框.内容 ＝ 取特定目录 (#系统桌面) ＋ 到文本 (数)<br /> .计次循环尾 ()

例子.zip (67.31 KB, 下载次数: 9)

2025-9-27 15:30 上传

点击文件名下载附件