[文本处理] [已解决]批处理怎么让文件名指定符号中间的字母不作改动，其余字母全部大写

ChenCheChe

我想让文件夹，包括子文件夹里面的文件的名称全部改成大写，
但是在这个括号 [abc] 内的字母不作改动。

比如把文件名[abc]efg123改成[abc]EFG123
子文件夹下的文件也是这个格式修改。
这个应该怎么写？

went

@echo off
set "U_L=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"
for /f "delims=" %%i in ('dir /s /b') do (
	echo %%i
	call :toUpper "%%~ni"
	call echo RENAME TO: %%newStr%%%%~xi
	call rename "%%~i" "%%newStr%%%%~xi"
	echo ----------------
)
pause&exit

:toUpper
set "s=%~1"
set "tmpStr=%s%" & set "newStr=" & set "up=1"
for %%i in (%U_L%) do for /f "tokens=1,2 delims=:" %%a in ("%%i") do call set "tmpStr=%%tmpStr:%%a=%%b%%"
	:loop
	if "%s:~0,1%"=="[" set "up=0" 
	if "%s:~0,1%"=="]" set "up=1"
	if "%up%"=="0" ( set "newStr=%newStr%%s:~0,1%"  ) else ( set "newStr=%newStr%%tmpStr:~0,1%"  )
	set "s=%s:~1%" & set "tmpStr=%tmpStr:~1%"
if not "%s%"=="" goto :loop
复制代码

WHY

$str = '[abc]d[ef]g123';
$reg = '(?<=\[[^[\]]*\]|^)[^[\]]+';
[regex]::Replace($str, $reg, {param($m), $m.Groups[0].Value.ToUpper()});
复制代码

结果：[abc]D[ef]G123

如果需要考虑括弧嵌套的问题：

$str = '[abc[w8w]]de[fg]xy123';
$reg = '\[(?:[^[\]]*|\[(?<open>)|\](?<-open>))*(?(open)(?!))\]|[^[\]]+';
[regex]::Replace($str, $reg, {param($m), $s = $m.Groups[0].Value; if($s.IndexOf('[')+1){$s}else{$s.ToUpper()}});
复制代码

结果：[abc[w8w]]DE[fg]XY123

ChenCheChe

回复 2# went


    谢谢

ChenCheChe

回复 3# WHY


    感谢