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

mengpm

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

@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
复制代码

mengpm

@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了，可以运行了，但是不能替换内容，能帮忙看看是什么原因吗？