易语言如何解压

ZIP

压缩

解压的话就是这个命令。

调用格式：

〈整数型〉

对象．解压

（文本型

ZIP文件名，文本型

文件夹名）

-

压缩解压支持库->ZIP压缩

英文名称：ZipToFolder

将ZIP文件解压缩到一个文件夹中。返回1为成功，0为失败，-1为参数错误。本命令为初级对象成员命令。

参数<1>的名称为“ZIP文件名”，类型为“文本型（text）”。本参数提供欲解压缩的ZIP文件名，如果该文件不存在将出错。

参数<2>的名称为“文件夹名”，类型为“文本型（text）”。本参数提供欲将ZIP压缩包内文件解压缩到的文件夹名称。

*** 作系统需求：

Windows

但可行

觉得拷贝无聊者请忽略

'代码定义了两个子程序一个解压一个压缩

.版本

2

.子程序

压缩_WinRAR_压缩,

文本型,

公开,

本命令需要安装WinRAR

.参数

被压缩的文件,

文本型,

数组,

文件和文件夹都可以

.参数

压缩到文件,

文本型,

,

全路径和rar\zip文件名

.参数

WinRAR地址,

文本型,

可空,

如果注册表内没有WinRAR的信息。但是安装了的。就需要写

例：C:\Program

Files\WinRAR\WinRAR.exe

.局部变量

易团俊,

整数型

.局部变量

被压缩信息,

文本型

易团俊

＝

0

被压缩信息

＝

“”

.如果真

(是否为空

(WinRAR地址))

WinRAR地址

＝

取文本注册项

(#本地机器,

“SOFTWARE\Microsoft\Windows\CurrentVersion\App

Paths\WinRAR.exe\”,

)

.如果真结束

.如果真

(WinRAR地址

＝

“”)

返回

(“找不到WinRAR目录”)

.如果真结束

.计次循环首

(取数组成员数

(被压缩的文件),

易团俊)

被压缩信息

＝

被压缩信息

＋

“

”

＋

被压缩的文件

[易团俊]

.计次循环尾

()

运行

(WinRAR地址

＋

“

a

-ep1

-scul

-r0

-iext

”

＋

压缩到文件

＋

被压缩信息,

真,

)

返回

(“”)

.子程序

压缩_WinRAR_解压,

文本型,

公开,

本命令需要安装WinRAR

.参数

压缩文件,

文本型,

,

全路径和rar\zip文件名

.参数

解压到文件夹,

文本型,

,

文件夹全路径

.参数

WinRAR地址,

文本型,

可空,

如果注册表内没有WinRAR的信息。但是安装了的。就需要写

例：C:\Program

Files\WinRAR\WinRAR.exe

.如果真

(是否为空

(WinRAR地址))

WinRAR地址

＝

取文本注册项

(#本地机器,

“SOFTWARE\Microsoft\Windows\CurrentVersion\App

Paths\WinRAR.exe\”,

)

.如果真结束

.如果真

(WinRAR地址

＝

“”)

返回

(“找不到WinRAR目录”)

.如果真结束

运行

(WinRAR地址

＋

“

x

-iext

-ow

-er

”

＋

压缩文件

＋

“

”

＋

解压到文件夹,

真,

)

返回

(“”)