求一个自动解压RC资源里的压缩文件到指定文件夹的代码

allen2020 · 发表于 2021-8-13 10:08:46

马上加入TC

您需要登录才可以下载或查看，没有帐号？立即注册

x

本人初学TC 求大神帮写一个自动解压rc资源里的zip压缩文件到指定文件夹的代码

小弟在此感激不尽

bestkakkoii · 发表于 2021-8-13 11:23:42

本帖最后由 bestkakkoii 于 2021-8-16 12:49 编辑

function fUnzipFile(szFileName, szDropLocation = "", nDelay = 2000)
var szFullFileName = getrcpath("rc:" & szFileName)
var szAddCmd = ""
if(strlen(strDropLocation) > 0)
szAddCmd = " --directory " & szDropLocation & ""
end
szAddCmd = strformat("tar -x -z -v -f %s%s", szFileName, szAddCmd)
return cmdex(szAddCmd, nDelay)
end

OOOO · 发表于 2021-8-13 15:12:00

bestkakkoii 发表于 2021-8-13 11:23

windows有默认没有tar命令,你帮人帮到底吧

bestkakkoii · 发表于 2021-8-13 16:15:50

本帖最后由 bestkakkoii 于 2021-8-13 16:21 编辑

OOOO 发表于 2021-8-13 15:12
windows有默认没有tar命令,你帮人帮到底吧

我自己的可以用来着.....

不然就要改调用rar 7z了...

OOOO · 发表于 2021-8-13 16:51:33

那可以找我定制插件

allen2020 · 发表于 2021-8-16 11:28:54

bestkakkoii 发表于 2021-8-13 11:23

能写个中文的吗？大佬、英文有点懵逼。。看不懂

bestkakkoii · 发表于 2021-8-16 12:45:39

本帖最后由 bestkakkoii 于 2021-8-16 12:47 编辑

功能解(名, 存 = "", 延 = 2000)
变量路径 = 获取资源路径("rc:" & 名)
变量扩命 = ""
如果(字符串长度(存) > 0)
扩命 = " --directory " & 存 & ""
结束
变量全命 = 字符串格式化("tar -x -z -v -f %s%s", 路径, 扩命)
返回命令ex(全命, 延)
结束

英文的部分只是个名字而已命令本身TC可以直接转换的

allen2020 · 发表于 2021-8-16 22:10:25

bestkakkoii 发表于 2021-8-16 12:45
英文的部分只是个名字而已命令本身TC可以直接转换的

谢谢

帐号		自动登录	找回密码
密码			立即注册

[已解决] 求一个自动解压RC资源里的压缩文件到指定文件夹的代码

马上加入TC

推荐 /2

[已解决] 求一个 自动解压RC资源里的压缩文件到指定文件夹的代码

马上加入TC

推荐 /2

[已解决] 求一个自动解压RC资源里的压缩文件到指定文件夹的代码