大哥们帮我看看，我想把搜索到的文件解压出来。。。

y1c3y2

就是将目录下的zip文件搜索出来，显示到列表框上，然后选中列表框里面的zip文件，在解压出来，现在卡解压这一步了，

一曲离歌

  

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

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0
X	整数型
索引	整数型

目录 ＝ 取运行目录 () ＋ “\yasuo”
文件_枚举 (目录, “*.zip”, 文件组)
调试输出 (“文件组：”, 取数组成员数 (文件组))
计次循环首 (取数组成员数 (文件组), X)
' 超级列表框1加入内容
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (X))
超级列表框1.置标题 (索引, 1, 文件组 [X])
' 列表加入内容
列表框1.加入项目 (文件组 [X], )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
当前索引	整数型
返回值	整数型

当前索引 ＝ 超级列表框1.现行选中项
文件名 ＝ 目录 ＋ “\” ＋ 超级列表框1.取标题 (当前索引, 1)
调试输出 (“当前索引”, 当前索引, “当前文件名”, 文件名)
如果真 (文件_是否存在 (文件名) ＝ 真)
删除目录 (取运行目录 () ＋ “\jieya”)
返回值 ＝ ZIP压缩1.解压 (文件名, 取运行目录 () ＋ “\jieya”)
调试输出 (“压缩返回值”, 返回值)

子程序名	返回值类型	公开	备 注
_列表框1_双击选择

变量名	类 型	静态	数组	备 注
文件名	文本型
当前索引	整数型
返回值	整数型

' 调试输出 (列表框1.现行选中项)
当前索引 ＝ 列表框1.现行选中项
文件名 ＝ 目录 ＋ “\” ＋ 列表框1.取项目文本 (当前索引)
调试输出 (“当前索引”, 当前索引, “当前文件名”, 文件名)
如果真 (文件_是否存在 (文件名) ＝ 真)
删除目录 (取运行目录 () ＋ “\jieya”)
返回值 ＝ ZIP压缩1.解压 (文件名, 取运行目录 () ＋ “\jieya”)
调试输出 (“压缩返回值”, 返回值)

子程序名	返回值类型	公开	备 注
贴文_错误代码

' 列表框1.选择项目 (, ) -----》 返回逻辑型参数
' 调用格式： 〈逻辑型〉 对象．选择项目 （整数型 欲选择或取消选择的项目索引，［逻辑型 欲置入的项目选择状态］） - 系统核心支持库->列表框
' 英文名称：select
' 选择或取消选择指定项目。成功返回真，失败返回假。本命令为初级对象成员命令。
' 参数<1>的名称为“欲选择或取消选择的项目索引”，类型为“整数型（int）”。0 为项目一，1 为项目二，如此类推。
' 参数<2>的名称为“欲置入的项目选择状态”，类型为“逻辑型（bool）”，可以被省略。如果省略本参数或者参数值为真，则选择该项目，否则取消对该项目的选择。
' ZIP压缩1.解压（） '————>第一个参数应为 文本型 （路径），所以不该使用 列表框1.选择项目（）命令

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一
eCompress	压缩解压支持库

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> .支持库 eCompress<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 目录, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件组, 文本型, , "0"<br /> .局部变量 X, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 目录 ＝ 取运行目录 () ＋ “\yasuo”<br /> 文件_枚举 (目录, “*.zip”, 文件组)<br /> 调试输出 (“文件组：”, 取数组成员数 (文件组))<br /> <br /> .计次循环首 (取数组成员数 (文件组), X)<br /> <br />     ' 超级列表框1加入内容<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (X))<br />     超级列表框1.置标题 (索引, 1, 文件组 [X])<br /> <br />     ' 列表加入内容<br />     列表框1.加入项目 (文件组 [X], )<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 当前索引, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> 当前索引 ＝ 超级列表框1.现行选中项<br /> 文件名 ＝ 目录 ＋ “\” ＋ 超级列表框1.取标题 (当前索引, 1)<br /> 调试输出 (“当前索引”, 当前索引, “当前文件名”, 文件名)<br /> .如果真 (文件_是否存在 (文件名) ＝ 真)<br />     删除目录 (取运行目录 () ＋ “\jieya”)<br /> <br />     返回值 ＝ ZIP压缩1.解压 (文件名, 取运行目录 () ＋ “\jieya”)<br />     调试输出 (“压缩返回值”, 返回值)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _列表框1_双击选择<br /> .局部变量 文件名, 文本型<br /> .局部变量 当前索引, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> ' 调试输出 (列表框1.现行选中项)<br /> <br /> 当前索引 ＝ 列表框1.现行选中项<br /> 文件名 ＝ 目录 ＋ “\” ＋ 列表框1.取项目文本 (当前索引)<br /> 调试输出 (“当前索引”, 当前索引, “当前文件名”, 文件名)<br /> .如果真 (文件_是否存在 (文件名) ＝ 真)<br />     删除目录 (取运行目录 () ＋ “\jieya”)<br /> <br />     返回值 ＝ ZIP压缩1.解压 (文件名, 取运行目录 () ＋ “\jieya”)<br />     调试输出 (“压缩返回值”, 返回值)<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 贴文_错误代码<br /> <br /> <br /> ' 列表框1.选择项目 (, ) -----》 返回逻辑型参数<br /> <br /> ' 调用格式： 〈逻辑型〉 对象．选择项目 （整数型 欲选择或取消选择的项目索引，［逻辑型 欲置入的项目选择状态］） - 系统核心支持库->列表框<br /> ' 英文名称：select<br /> ' 选择或取消选择指定项目。成功返回真，失败返回假。本命令为初级对象成员命令。<br /> ' 参数<1>的名称为“欲选择或取消选择的项目索引”，类型为“整数型（int）”。0 为项目一，1 为项目二，如此类推。<br /> ' 参数<2>的名称为“欲置入的项目选择状态”，类型为“逻辑型（bool）”，可以被省略。如果省略本参数或者参数值为真，则选择该项目，否则取消对该项目的选择。<br /> <br /> ' ZIP压缩1.解压（） '————>第一个参数应为 文本型 （路径），所以不该使用 列表框1.选择项目（）命令

图示：




解压例子：




解压例子.rar (217.43 KB, 下载次数: 3)

2023-6-15 05:44 上传

点击文件名下载附件

chboy

建议帖代码~

汉族

/   \  别搞反了

y1c3y2

chboy 发表于 2023-6-14 21:38
建议帖代码~

.版本 2
.支持库 eCompress

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

列表框1.清空 ()
搜寻 (“C:\Users\16682\Desktop\akb”)

.子程序 搜寻, , , 如提供搜索目录路径，将会搜索此目录所有在内的文件。
.参数 目录, 文本型, , 目录，如“C:\”盘。
.局部变量 文件名, 文本型

处理事件 ()  ' 给出机会以接收停止按钮事件，搜索时会占用程序的资源，使得延时处理其它事件，所要用：“处理事件（）”。
.如果真 (取文本右边 (目录, 1) ≠ “\”)  ' 判断当前目录的格式是否正确。如“C:”,这格式是不正确的,改为"C:\"。
    目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.zip”, )  ' “*.mp3”搜索MP3文件，“*.*”搜索所有文件。
.判断循环首 (文件名 ≠ “”)  ' 判断文件名是否有效，有效向下执行搜索。
    列表框1.加入项目 (文件名, )
    ' 输出调试文本 (目录 ＋ 文件名)  ' 当前搜索到的文件路径
    文件名 ＝ 寻找文件 (, )  ' 继续搜寻文件
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)  ' 搜寻目录文件，包括子目录。
.判断循环首 (文件名 ≠ “”)  ' 判断目录名是否有效，有效向下执行搜索。
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)
        搜寻 (目录 ＋ 文件名)  ' 如果寻找到目录路径就搜继续搜索文件。
    .如果真结束
    文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

.子程序 _列表框1_列表项被选择

.如果 (列表框1.选择项目 (列表框1.现行选中项, ))
    删除目录 (“C:\Users\16682\Desktop\akb\teleports\”)
    ZIP压缩1.解压 (列表框1.选择项目 (列表框1.现行选中项, ), “C:\Users\16682\Desktop\akb\teleports\”)

.否则

y1c3y2

汉族 发表于 2023-6-14 21:48
/   \  别搞反了

正反好像不影响的

y1c3y2

汉族 发表于 2023-6-14 21:48
/   \  别搞反了

现在就是输出有问题，选中列表框的zip文件，没法解压出来