批处理之家 » BAT求助&讨论 » 修改压缩文件内容的批处理错误在哪里？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 13
积分: 22
技术: 0
捐助: 0
注册时间: 2010-7-28

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-7-29 10:32 | 只看该作者

[其他] 修改压缩文件内容的批处理错误在哪里？

下面的代码运行后会出错，弹出对话框“没有找到压缩文件”，“文件名、目录名或卷标语法不正确”

@Echo Off&SetLocal EnableDelayedExpansion
If NOT Exist temp Md temp
Set "RpStr=原内容1-现在内容1 原内容2-现在内容2 原内容3-现在内容3 原内容4-现在内容4"
For /F tokens^=2delims^=^" %%A In ('Ftype winrar') Do Set "Mrar=%%A" 
For /F "delims=" %%A IN ('Dir /a-d /b /s *.rar') Do (
  "%Mrar%" x "%~dp0\%%A" "%~dp0\temp"
  Del "%~dp0\%%A"
  For /R temp %%I IN (*.txt) Do (
    (For /F "Usebackq Delims=" %%J IN ("%%I") Do (
       Set "Str=%%J"
       For %%K In ("%RpStr%") Do (
         For /F "tokens=1,2 delims=-" %%L In ("%%K") Do Set "Str=!Str:%%L=%%M!"
       )
       Echo,!Str!
    ))>"%%~dpI\tem"
    Move "%%~dpI\tem" "%%I"
    "%Mrar%" a -ep -dw "%~dp0\%%A" "%%I"
  )
)
Rd temp
复制代码

Rank: 7 Rank: 7 Rank: 7

帖子: 1023
积分: 3120
技术: 230
捐助: 160
注册时间: 2010-12-22

2楼

发表于 2011-7-29 14:56 | 只看该作者

本帖最后由 tmplinshi 于 2011-7-29 15:00 编辑

@Echo Off&SetLocal EnableDelayedExpansion
If NOT Exist temp Md temp
Set "RpStr=原内容1-现在内容1 原内容2-现在内容2 原内容3-现在内容3 原内容4-现在内容4"
For /F tokens^=2delims^=^" %%A In ('Ftype winrar') Do Set "Mrar=%%A"
For /F "delims=" %%A IN ('Dir /a-d /b /s *.rar') Do (
  "%Mrar%" x "%~dp0\%%A" "%~dp0\temp"
  Del "%~dp0\%%A"
  For /R temp %%I IN (*.txt) Do (
(For /F "Usebackq Delims=" %%J IN ("%%I") Do (
   Set "Str=%%J"
   For %%K In ("%RpStr%") Do (
      For /F "tokens=1,2 delims=-" %%L In ("%%K") Do Set "Str=!Str:%%L=%%M!"
   )
   Echo,!Str!
))>"%%~dpI\tem"
Move "%%~dpI\tem" "%%I"
"%Mrar%" a -ep -dw "%~dp0\%%A" "%%I"
  )
)

Rd temp

%~dp0 是路径，%%A 是完整路径。
"%~dp0\%%A" → "盘符:\路径\盘符:\路径\文件名" → - -|||

Rank: 1

帖子: 13
积分: 22
技术: 0
捐助: 0
注册时间: 2010-7-28

3楼

发表于 2011-7-30 11:32 | 只看该作者

@Echo Off&SetLocal EnableDelayedExpansion
If NOT Exist temp Md temp
Set "RpStr=原内容1-现在内容1 原内容2-现在内容2 原内容3-现在内容3 原内容4-现在内容4"
For /F tokens^=2delims^=^" %%A In ('Ftype winrar') Do Set "Mrar=%%A" 
For /F "delims=" %%A IN ('Dir /a-d /b /s *.rar') Do (
  "%Mrar%" x "%%A" "%~dp0\temp"
  Del "%%A"
  For /R temp %%I IN (*.txt) Do (
    (For /F "Usebackq Delims=" %%J IN ("%%I") Do (
       Set "Str=%%J"
       For %%K In ("%RpStr%") Do (
         For /F "tokens=1,2 delims=-" %%L In ("%%K") Do Set "Str=!Str:%%L=%%M!"
       )
       Echo,!Str!
    ))>"%%~dpI\tem"
    Move "%%~dpI\tem" "%%I"
    "%Mrar%" a -ep -dw "%%A" "%%I"
  )
)
Rd temp
复制代码

删掉那几处%~dp0了，可以运行了，但是不能替换内容，能帮忙看看是什么原因吗？

Rank: 8 Rank: 8

帖子: 1726
积分: 4476
技术: 95
捐助: 0
注册时间: 2008-12-21

4楼

发表于 2011-7-30 11:39 | 只看该作者

谁写的找谁去。不过"%~dp0\%%A" 通常也做“"%~dp0%%A" ”后面不用反斜杠，强制指程序所在目录。

寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

Rank: 12

帖子: 14938
积分: 46145
技术: 857
捐助: 745
注册时间: 2008-6-9

5楼

发表于 2011-7-30 11:45 | 只看该作者

回复 3# mengpm

把@Echo Off删掉，多加几行echo和pause，自己先看看哪一步出错了。

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html