社区 › 源码共享 › lisp操作winrar 解压 压缩

434939575 发表于 2022-9-14 20:56:59

lisp操作winrar 解压 压缩

本帖最后由 434939575 于 2022-9-14 20:58 编辑

;isp操作winrar 解压 压缩


(defun c:tt ()                ; ;解压-OK

(setq path "i:\\++")
(setq file_path "i:\\123.rar")
(vl-mkdir path)
(setq rar "C:\\Program Files\\WinRAR\\WinRAR.exe")
(setq str (strcat rar " x " file_path "" path "\\"))

(startapp str)
)

(defun c:tt1 ()                ;压缩-OK

(startapp
    "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\11.txt"
)

)

自贡黄明儒 发表于 2022-9-15 07:24:03

搞个全面的吧， 如何往压缩包内添加文件、删除文件？

434939575 发表于 2022-9-15 11:26:13

自贡黄明儒 发表于 2022-9-15 07:24
搞个全面的吧， 如何往压缩包内添加文件、删除文件？

(defun c:tt3 ()                              ;压缩-增加文件与上面一样

(startapp
    "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\999.txt"
)

)

(defun c:tt4 ()                              ;删除压缩文件内文件

(startapp
    "C:\\Program Files\\WinRAR\\WinRAR.exed i:\\ys.rar999.txt"
)


)

chixun99 发表于 2022-9-15 12:00:16

有用的知识，学习下。

guosheyang 发表于 2022-9-16 07:36:13

感谢大佬分享代码！

nijiea123 发表于 2022-9-16 09:28:03

不错不错 学习了

hzyhzjjzh 发表于 2022-9-16 12:37:03

学习下。{:1_1:}

mikewolf2k 发表于 2022-9-16 15:39:53

这个本质上就是执行一个命令，理论上可以执行任何命令。

pengfei2010 发表于 2022-9-16 16:21:47

感谢楼主的无私分享，学习了

查看完整版本: lisp操作winrar 解压 压缩