标题: [求助]批处理直接调用winrar程序 [打印本页]
作者: kongzi 时间: 2008-11-16 14:06 标题: [求助]批处理直接调用winrar程序
如何使用批处理直接调用系统的winrar程序，无论压缩程序安装到哪个盘都可以直接调用！！！
作者: balinger 时间: 2008-11-16 14:36
@echo off
for /f "tokens=1,2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /ve') do set "rar=%%k"
echo %rar%
pause
作者: kongzi 时间: 2008-11-16 15:22
非常感谢balinger，但是我运行了一下，为什么按任意键继续后就退出了，没有运行winrar程序呀!
作者: tireless 时间: 2008-11-16 15:41
@echo off
if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
del tmp.reg
goto next
)
)
:next
start "" "%WinRAR_Path%" d "压缩包文件名" "要删除的文件名"
可恶的 reg.exe 的 BUG...直接 reg query 会缺字符，没办法只能先导出。if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
del tmp.reg
goto next
)
)
:next
start "" "%WinRAR_Path%" d "压缩包文件名" "要删除的文件名"
[ Last edited by tireless on 2008-11-16 at 17:38 ]
作者: kongzi 时间: 2008-11-16 15:46
我是想写一个批处理遍历系统的rar压缩包，调用winrar命令行删除rar压缩包里的某一个文件。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。
[ Last edited by kongzi on 2008-11-16 at 15:48 ]
作者: tireless 时间: 2008-11-16 15:49 标题: Re 5楼
4 楼代码已更新。
[ Last edited by tireless on 2008-11-16 at 15:54 ]
作者: kongzi 时间: 2008-11-16 16:00
我运行了一下报错。：（
作者: tireless 时间: 2008-11-16 16:01 标题: Re 7楼
报错信息是？
作者: kongzi 时间: 2008-11-16 16:02
我再说的具体点想写一个批处理遍历系统的rar压缩包，如果压缩包里有1.exe调用winrar命令行删除rar压缩包里的1.exe这个程序。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。
作者: kongzi 时间: 2008-11-16 16:05
| Quote: | |
|
---------------------------
C:\Program
---------------------------
Windows 找不到文件 'C:\Program'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始」按钮，然后单击“搜索”。
---------------------------
确定
---------------------------
作者: kongzi 时间: 2008-11-16 16:07
for /d %%i in (C,D,E,F,G,H,I,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z\*.rar) do (
IF exist %%i: (
winrar.exe d %%c\*.rar 1.exe
)
)
这是我写的肯定不对，这个只是遍历磁盘根目录下的压缩包文件。
作者: tireless 时间: 2008-11-16 16:09
| Quote: | |
|
不好意思，弄错了个地方。再试试 4 楼的代码。
作者: kongzi 时间: 2008-11-16 16:24
非常感谢tireless程序可以运行了，但是好像没有实现我的预期的效果。
作者: kongzi 时间: 2008-11-16 16:41 标题: 我结合了一下，好像不行，那位高人给调试一下
for /d %%i in (C,D,E,F,G,H,I,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z\*.rar) do (
IF exist %%i: (if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg
>nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
goto next
)
)
:next
start "" "%WinRAR_Path%" d "%%c\*.rar" "1.exe"
del tmp.reg
)
)
作者: tireless 时间: 2008-11-16 17:13
这个是只搜索盘符根目录下的 .rar 文件：
@echo off
if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
del tmp.reg
goto next
)
)
:next
for %%A in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
if exist %%A: (
for %%a in (%%A:\*.rar) do (
start "" "%WinRAR_Path%" d -INUL "%%a" "1.exe"
)
)
)
如果要搜索包括子目录的 .rar 文件，将：if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
del tmp.reg
goto next
)
)
:next
for %%A in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
if exist %%A: (
for %%a in (%%A:\*.rar) do (
start "" "%WinRAR_Path%" d -INUL "%%a" "1.exe"
)
)
)
for %%a in (%%A:\*.rar)
改为：
for /r %%A: %%a in (*.rar)
[ Last edited by tireless on 2008-11-16 at 17:35 ]