[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  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. :toUpper
  12. set "s=%~1"
  13. set "tmpStr=%s%" & set "newStr=" & set "up=1"
  14. for %%i in (%U_L%) do for /f "tokens=1,2 delims=:" %%a in ("%%i") do call set "tmpStr=%%tmpStr:%%a=%%b%%"
  15. :loop
  16. if "%s:~0,1%"=="[" set "up=0"
  17. if "%s:~0,1%"=="]" set "up=1"
  18. if "%up%"=="0" ( set "newStr=%newStr%%s:~0,1%"  ) else ( set "newStr=%newStr%%tmpStr:~0,1%"  )
  19. set "s=%s:~1%" & set "tmpStr=%tmpStr:~1%"
  20. if not "%s%"=="" goto :loop
复制代码

TOP

返回列表