Dos批处理文件标题大写并删除特殊字符

Question

@Echo Off
SetLocal EnableDelayedExpansion
Set _ScrFldr=%~dp0
PushD %_ScrFldr%

:: You can add other extensions to do multiple file types
For /F "Delims=" %%A In ('Dir /A-D /B *.txt') Do (

:: The space after the = is needed so we can Proper Case the first word
Set _FileName= %%A

:: Remove (, replace ( with _, replace - with _-_ , 
:: replace _ with space, and a first pass at removing multiple spaces
For %%I In ("%%~xA=" ".= " ")=" "(=_" "-=_-_" "_= " "  = " **"!="**) Do Call Set 
"_FileName=%%_FileName:%%~I%%"

:: Now make it all lower case, and another pass at removing multiple spaces
For %%I In ("A=a" "B=b" "C=c" "D=d" "E=e" "F=f" "G=g" "H=h" "I=i" "J=j" "K=k" "L=l" "M=m" "N=n" "O=o" "P=p" "Q=q" "R=r" "S=s" "T=t" "U=u" "V=v" "W=w" "X=x" "Y=y" "Z=z" "  = ") Do Call Set "_FileName=%%_FileName:%%~I%%"

:: Proper Case and again remove multiple spaces
For %%I In (" a= A" " b= B" " c= C" " d= D" " e= E" " f= F" " g= G" " h= H" " i= I" " j= J" " k= K" " l= L" " m= M" " n= N" " o= O" " p= P" " q= Q" " r= R" " s= S" " t= T" " u= U" " v= V" " w= W" " x= X" " y= Y" " z= Z" "  = ") Do Call Set "_FileName=%%_FileName:%%~I%%"

:: Last check for multiple spaces
Call :RmLoop
Set _FileName=!_FileName: = !

:: Remove any trailing underscore
Set _FileName=!_FileName:_%%~xA=%%~xA!
Ren "%%A" "!_FileName:~1!%%~xA"
)
PopD

Goto :EOF

:::::::::::::::::::::::::::::::::::::::::::::::

:RmLoop
Call Set "_FileName=%%_FileName:  = %%"
Echo !_FileName!|Findstr /C:"  ">Nul
If !ErrorLevel!==0 Goto RmLoop

---

这应该做的是从文件名和标题大小写中删除某些字符，即

some_filename = Some Filename
filename number 2 = Filename Number 2

大多数工作正常，例如更改大小写和删除多余的空格和下划线

但我在处理特殊字符时遇到问题，例如 ! (代码向下 10 行） 如果文件名为 ie 文件！ 2 它被忽略

尝试使用 "^!=" ^"!=" 但无济于事

Answer 1

当您展开 FOR 变量（如 %%A）时，如果该变量包含 ! 或 ^，则无法启用延迟展开。延迟扩展会破坏该值，因为单个 ! 被剥离，两个 ! 会将其间的字符解释为变量并将其扩展（可能为零），并且 ^ 将被剥离，因为它用于转义 !。

最简单的解决方案是将顶部更改为 SETLOCAL DisableDelayedExpansion，并将所有延迟扩展替换为您已在其他地方使用的 CALL 命令%%VAR%% 技巧。 CALL 技巧比延迟扩展慢得多，因此通常我会建议切换延迟扩展。但我认为在你的情况下切换可能会变得复杂。

我还建议您更改 :RmLoop 定义

:RmLoop
Call Set "_FileName2=%%_FileName:  = %%"
If "%_FileName2%" neq "%_FileName%" (
  set "_FileName=%_FileName2%"
  goto :RmLoop
)

另外，我不明白为什么在调用 :RmLoop 后将空格替换为自身？

我不确定 **"!="** 替换正在尝试什么。也许可以删除它？

Answer 2

谢谢
设法对其进行排序，将其添加到文件顶部

ps "!=" 只是为了标记出错的地方。

@Echo Off

SetLocal DisableDelayedExpansion
  For /F "Tokens=*" %%J In ('Dir /B *.txt^|Findstr "!"') Do Call :Renamee "%%J"

..

..

..

..

..

::This at the very bottom

:Renamee

Set _FileTemp=%~1

Set _FileTemp=%_FileTemp:!=%

Ren "%~1" "%_FileTemp%"