中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-09 17:54
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 全盘搜索RAR文件,并添加新文件到每个压缩包中 查看 838 回复 7
楼 主 全盘搜索RAR文件,并添加新文件到每个压缩包中 发表于 2008-09-09 14:43 ·  中国 山东 济南 联通
高级用户
★★★
积分 959
发帖 474
注册 2007-10-25 10:40
18年会员
UID 100716
性别 男
状态 离线
看一下我的代码哪里错了?不确定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"))))))
2 发表于 2008-09-09 15:07 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
为何不用注册表?
@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%
3 发表于 2008-09-09 15:22 ·  中国 山东 济南 联通
高级用户
★★★
积分 959
发帖 474
注册 2007-10-25 10:40
18年会员
UID 100716
性别 男
状态 离线
谢谢HAT兄,老朋友了!你能帮助写一个代码吗,注册表我还真不熟悉怎么导入命令中?麻烦你写一个代码,谢谢!!
4 发表于 2008-09-09 15:23 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
2楼不是写好代码了吗?
5 发表于 2008-09-09 15:30 ·  中国 山东 济南 联通
高级用户
★★★
积分 959
发帖 474
注册 2007-10-25 10:40
18年会员
UID 100716
性别 男
状态 离线
提示找不到设备R:
6 发表于 2008-09-09 15:50 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
截图上来看看

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
7 发表于 2008-09-09 16:13 ·  中国 山东 济南 联通
高级用户
★★★
积分 959
发帖 474
注册 2007-10-25 10:40
18年会员
UID 100716
性别 男
状态 离线
HAT兄,测试通过了,经常麻烦你,太感谢了!!

[ Last edited by 5872169 on 2008-9-9 at 04:15 PM ]
8 发表于 2008-09-09 20:15 ·  中国 广东 东莞 电信
中级用户
★★
积分 461
发帖 243
注册 2007-10-14 16:56
18年会员
UID 99730
性别 男
状态 离线
想象力真是丰富 我测试了一下 公布测试结果,学习了.
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
请按任意键继续. . .
论坛跳转: