ファイル名の文字列を感嘆符とアンパサンドでバッチを使用して置換する

Question

バッチスクリプトを使用してファイル名の文字列を置き換えようとしていますが、ファイルに感嘆符またはアンパサンドが含まれていると問題になります。

Setlocal enabledelayedexpansion 
Set "Pattern=[String_A]" 
Set "Replace=[B_String]" 
For %%a in (*.*) Do (
    Set "File=%%~a" 
    Ren "%%a" "!File:%Pattern%=%Replace%!" 
) 

上記のコードは、ファイル名がなくても動作しますが、残りの部分は助けが必要です。

これは複数回実行する必要がある（より大きなスクリプトの一部です）。

何か助けていただければ幸いです。

Answer 1

遅延拡張を無効にすると、set "file=%%~aの拡張が安全になるという問題があります。
解決方法は、遅延拡張モードを切り替えることです。

Setlocal DisableDelayedExpansion 
Set "Pattern=[String_A]" 
Set "Replace=[B_String]" 
For %%a in (*.*) Do (
    Set "File=%%~a" 
    Setlocal EnableDelayedExpansion 
    Ren "!file!" "!File:%Pattern%=%Replace%!" 
    endlocal 
)