lisp操作winrar 解压 压缩

434939575

1. ;isp操作winrar 解压 压缩
   

复制代码

2. 
   
3. (defun c:tt ()                ; ;解压-OK
   
4. 
   
5.   (setq path "i:\\++")
   
6.   (setq file_path "i:\\123.rar")
   
7.   (vl-mkdir path)
   
8.   (setq rar "C:\\Program Files\\WinRAR\\WinRAR.exe")
   
9.   (setq str (strcat rar " x " file_path "  " path "\"))
   
10. 
    
11.   (startapp str)
    
12. )
    
13. 
    
14. (defun c:tt1 ()                ;压缩-OK
    
15. 
    
16.   (startapp
    
17.     "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\11.txt  "
    
18.   )
    
19. 
    
20. )
    

<br /> (defun c:tt ()                ; ;解压-OK<br /> <br />   (setq path "i:\\++")<br />   (setq file_path "i:\\123.rar")<br />   (vl-mkdir path)<br />   (setq rar "C:\\Program Files\\WinRAR\\WinRAR.exe")<br />   (setq str (strcat rar " x " file_path "  " path "\"))<br /> <br />   (startapp str)<br /> )<br /> <br /> (defun c:tt1 ()                ;压缩-OK<br /> <br />   (startapp<br />     "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\11.txt  "<br />   )<br /> <br /> )<br />

自贡黄明儒

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

434939575

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

1. 
   [code=lisp]
2. (defun c:tt3 ()                                ;压缩-增加文件与上面一样
   
3. 
   
4.   (startapp
   
5.     "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\999.txt  "
   
6.   )
   
7. 
   
8. )
   
9. 
   
10. (defun c:tt4 ()                                ;删除压缩文件内文件
    
11. 
    
12.   (startapp
    
13.     "C:\\Program Files\\WinRAR\\WinRAR.exe  d i:\\ys.rar  999.txt  "
    
14.   )

<br /> [code=lisp] (defun c:tt3 ()                                ;压缩-增加文件与上面一样<br /> <br />   (startapp<br />     "C:\\Program Files\\WinRAR\\WinRAR.exe a i:\\ys.rar i:\\999.txt  "<br />   )<br /> <br /> )<br /> <br /> (defun c:tt4 ()                                ;删除压缩文件内文件<br /> <br />   (startapp<br />     "C:\\Program Files\\WinRAR\\WinRAR.exe  d i:\\ys.rar  999.txt  "<br />   )

)[/code]

chixun99

有用的知识，学习下。

guosheyang

感谢大佬分享代码！

nijiea123

不错不错 学习了

hzyhzjjzh

学习下。

mikewolf2k

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

pengfei2010

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