中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 全盘搜索RAR文件，并添加新文件到每个压缩包中

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『楼主』: 全盘搜索RAR文件，并添加新文件到每个压缩包中

看一下我的代码哪里错了？不确定WINRAR程序路径，把E:\My Documents\1.mht文件添加到每个压缩包中，请高手帮助修改一下，谢谢，以下是代码：

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 /f "delims=" %%b in ('dir /s /b /a-d "%%a:\*.rar" 2^>nul') do (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 /f "delims=" %%b in ('dir /s /b /a-d "%%a:\rar.exe" 2^>nul') do (start "" "%%b" a -inul "E:\My Documents\1.mht"))))))

2008-9-9 14:43

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』:

为何不用注册表？

@echo off

for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (

  set RarPathL=%%a

  set RarPathR=%%b

)

set RarPath=%RarPathL:~-1%:%RarPathR%

echo WinRAR的安装路径%RarPath%

2008-9-9 15:07

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『第 3 楼』:

谢谢HAT兄，老朋友了！你能帮助写一个代码吗，注册表我还真不熟悉怎么导入命令中？麻烦你写一个代码，谢谢！！

2008-9-9 15:22

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 4 楼』:

2楼不是写好代码了吗？

2008-9-9 15:23

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『第 5 楼』:

提示找不到设备R:

2008-9-9 15:30

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 6 楼』:

截图上来看看

for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (

  set RarPathL=%%a

  set RarPathR=%%b

)

set RarPath=%RarPathL:~-1%:%RarPathR%

echo WinRAR的安装路径%RarPath%

pause

2008-9-9 15:50

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『第 7 楼』:

HAT兄，测试通过了，经常麻烦你，太感谢了！！

[ Last edited by 5872169 on 2008-9-9 at 04:15 PM ]

2008-9-9 16:13

qwertl
中级用户

积分 461
发帖 243
注册 2007-10-14
状态离线

『第 8 楼』:

想象力真是丰富我测试了一下公布测试结果,学习了.
C:\>for /F "skip=4 tokens=1,2 delims=:" %a in ('reg query "HKEY_LOCAL_MACHINE\SO
FTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%a
set RarPathR=%b
)

C:\>(
set RarPathL= Path REG_SZ C
set RarPathR=\Program Files\WinRAR
)

C:\>set RarPath=C:\Program Files\WinRAR

C:\>echo WinRAR的安装路径C:\Program Files\WinRAR
WinRAR的安装路径C:\Program Files\WinRAR

C:\>pause
请按任意键继续. . .

2008-9-9 20:15

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: