|
5872169
高级用户
   
积分 959
发帖 474
注册 2007-10-25
状态 离线
|
『楼 主』:
全盘搜索RAR文件,并添加新文件到每个压缩包中
使用 LLM 解释/回答一下
看一下我的代码哪里错了?不确定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 楼』:
使用 LLM 解释/回答一下
为何不用注册表?
@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 楼』:
使用 LLM 解释/回答一下
谢谢HAT兄,老朋友了!你能帮助写一个代码吗,注册表我还真不熟悉怎么导入命令中?麻烦你写一个代码,谢谢!!
|
|
2008-9-9 15:22 |
|
|
HAT
版主
       
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
|
2008-9-9 15:23 |
|
|
5872169
高级用户
   
积分 959
发帖 474
注册 2007-10-25
状态 离线
|
|
2008-9-9 15:30 |
|
|
HAT
版主
       
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
截图上来看看
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 楼』:
使用 LLM 解释/回答一下
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 楼』:
使用 LLM 解释/回答一下
想象力真是丰富 我测试了一下 公布测试结果,学习了.
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 |
|