中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 全盘搜索RAR文件，并添加新文件到每个压缩包中
作者:
标题: 全盘搜索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
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023