批處理重新命名特殊檔名的程式碼

NO IMAGE

[email protected]_ s%#8i 三 c.rar
h^e12 0~%l%[email protected] 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
)

描述下整體思路吧:

大家看到了題中的檔名是由字母 數字 特殊字元 漢字組成的,看起來很複雜,但我們是不是可以換個角度這樣看:檔名是由分隔符 字母組成的(將數字、特殊字元、漢字全看成分隔符),是不是簡單多了,呵呵,麻煩的還在後面。。。
那麼,我們又遇到問題了:數字、特殊字元還好說數量是有限的,漢字可是個麻煩事啊,我們總不能在delims=後面把所有漢字全寫上吧(況且這個長度是有限的)?這是不可能的,怎麼辦呢?於是,我們可以先將檔名中不是字母的字元全提出來,怎麼提?這就要用到變數替換了,將26個字母全替換為空。
有人會說了效率有問題,這裡確實存在效率問題,但大家想一下比較逐字元的判斷的效率這個還是要高一點,為什麼?假設一個檔名有十幾個a,用逐字元就要判斷十幾次,而變數替換隻一次就搞定了。
經過這樣替換後的字串中是不是只留下了不是字母的字元。現在只要把其來做為分隔符(別忘了加上空格)來提取檔名中的所有的字母了,而剩下的工作就只是技術處理了。

dishuo:

根據 pusofalse斑竹的思路,提取字元最方便的工具肯定是正規表示式,批處理命令唯一一個支援正則的就是findstr,能不能用它來提取呢?
測試成功!
滿足要求:簡潔、通用、效率不至於太低。
特點:通用性很強,只需要修改 findstr 的正則引數就能實現各種功能,舉幾個例子。
   ”[^-!-~0-9a-z]” 保留全形字元(中文、全形標點等)
   ”[a-z0-9]”   保留英文字母和數字
複製程式碼 程式碼如下:
@echo off&cls
for /f “tokens=*” %%i in (‘dir /b/a-d “*.*”‘) do (
if “%%~nxsi” neq “%~nxs0” (
set “舊檔名=%%~nxsi”&set “檔名串=%%~ni”&set “新檔名=”&set “counter=0”
del ~filenamechar.lst /q>nul 2>&1
setlocal enabledelayedexpansion
call :split
for /f “tokens=*” %%n in (‘findstr “[a-z]” ~filenamechar.lst’) do set “新檔名=!新檔名!%%n”
if “!新檔名!” neq “” (
echo ren !舊檔名! !新檔名!%%~xi
) else (
echo ^(檔案”!舊檔名!”不含字母,不能重新命名.^)
)
endlocal
)
)
del ~filenamechar.lst /q>nul 2>&1
pause&goto :eof

:split
if “!檔名串:~%counter%,1!” neq “” (
if “!檔名串:~%counter%,1!” neq ” ” echo !檔名串:~%counter%,1!>>~filenamechar.lst
set /a counter =1
goto split
)
goto :eof

您可能感興趣的文章:

如何讓“>”顯示出來批處理(dos)中的轉義符號批處理中常用的符號總結cmd批處理常用符號詳解批處理判斷是否特殊字元的實現程式碼批處理命令教學之管道符號(|)批處理常用特殊符號簡介