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

ChenCheChe

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

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

went

1. @echo off
   
2. 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"
   
3. for /f "delims=" %%i in ('dir /s /b') do (
   
4.         echo %%i
   
5.         call :toUpper "%%~ni"
   
6.         call echo RENAME TO: %%newStr%%%%~xi
   
7.         call rename "%%~i" "%%newStr%%%%~xi"
   
8.         echo ----------------
   
9. )
   
10. pause&exit
    
11. 
    
12. :toUpper
    
13. set "s=%~1"
    
14. set "tmpStr=%s%" & set "newStr=" & set "up=1"
    
15. for %%i in (%U_L%) do for /f "tokens=1,2 delims=:" %%a in ("%%i") do call set "tmpStr=%%tmpStr:%%a=%%b%%"
    
16.         :loop
    
17.         if "%s:~0,1%"=="[" set "up=0"
    
18.         if "%s:~0,1%"=="]" set "up=1"
    
19.         if "%up%"=="0" ( set "newStr=%newStr%%s:~0,1%"  ) else ( set "newStr=%newStr%%tmpStr:~0,1%"  )
    
20.         set "s=%s:~1%" & set "tmpStr=%tmpStr:~1%"
    
21. if not "%s%"=="" goto :loop

复制代码

WHY

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

复制代码

结果：[abc]D[ef]G123

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

1. $str = '[abc[w8w]]de[fg]xy123';
   
2. $reg = '\[(?:[^[\]]*|\[(?<open>)|\](?<-open>))*(?(open)(?!))\]|[^[\]]+';
   
3. [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


    感谢