一b!a!1235@_ s%#8i 三 c.rar h^e12 0~%l%!p!@. s321-的文件.txt %o%%% !O!ffi9~ ce$- Wor8d29 文檔.docx 重命名.bat 圖1： 要求運行批處理將這三個文件文件名中的數字、漢字、特殊字符全部(含空格)去掉，而重命名為只含字母的文件，但 后綴名不能更改，同時批處理自身名字不能更改，重命名后： basic.rar helps.txt oOfficeWor.docx 重命名.bat 圖2： 要求：代碼簡潔、通用、效率不至于太低。 pusofalse： 代碼如下: @echo off for %%a in (*.*) do ( if "%%~nxa" neq "%~nx0" ( set "name=%%~na" setlocal enabledelayedexpansion set name1=!name! call :lp ren "!name!%%~xa" "!nam!%%~xa" set "nam=" endlocal ) ) pause :lp if defined name1 ( set "var=!name1:~,1!" if "!var!" leq "Z" ( if "!var!" geq "a" ( set "nam=!nam!!var!" )) set "name1=!name1:~1!" goto lp )
batman： 代碼如下: @echo off set "code=a b c d e f g h i j k l m n o p q r s t u v w x y z" for /f "delims=" %%a in ('dir /s /a-d /b') do ( if "%%~nxa" neq "重命名.bat" ( set "str=%%~na"&set "file=%%a"&set "var=%%~na" setlocal enabledelayedexpansion for %%i in (%code%) do set "str=!str:%%i=!" set "str=!str: =!"&call :lp ren "!file!" !files!%%~xa endlocal )) goto :eof :lp set /a n+=1 for /f "tokens=%n% delims=%str% " %%a in ("%var%") do ( if "%%a" neq "" set "files=!files!%%a"&goto lp )
