求一个批量删除文件后缀中文的bat脚本

U0BXS3

求助大神，有一需求是将同一目录下的所有文件（不包括文件夹）的后缀中的中文删除，例如将“file.7中z文”变为“file.7z”
中文可能存在在不同位置，将其删除后保持原后缀顺序即可，例如，可能存在：
"file1.7中z文"
"file2.z有i中p文"
"file3.rar中文在这"
运行后期望得到：
"file1.7z"
"file2.zip"
"file3.rar"
希望大神能不吝赐教，感谢！

aloha20200628

回复 1# U0BXS3

1. 
   
2. @echo off &for /f "delims=" %%F in ('dir/b/s/a-d') do (
   
3.         set "F=%%F"&set "nF=%%~nF"&set "xF=%%~xF" &setlocal enabledelayedexpansion
   
4.         set "xH=" & (call :cutHZ "!xF!" xH)
   
5.         if defined xH if "!xF!" neq "!xH!" (ren "!F!" "!nF!!xH!" 2>nul)
   
6.         endlocal
   
7. )
   
8. pause&exit/b
   
9. :cutHZ // 删除扩展名中包含的全部中文字符 限定扩展名最大长度=16（可自定义即修改下面一行中的数字16）
   
10.         set "$s=%~1"&set "_s="&for /L %%n in (0 1 16) do (
    
11.            set "c=!$s:~%%n,1!" &if "!c!"=="" set "%~2=!_s!" &exit/b
    
12.            if "!c!" leq "Z" set "_s=!_s!!c!"
    
13.         )
    
14.         exit/b
    

复制代码

aloha20200628

回复 1# U0BXS3

再给一个不用限定扩展名长度的版本

1. 
   
2. @echo off &for /f "delims=" %%F in ('dir/b/s/a-d') do (
   
3.         set "F=%%F"&set "nF=%%~nF"&set "xF=%%~xF"&setlocal enabledelayedexpansion
   
4.         set "xH="&set "_xF=!xF!" & (call :cutHZ)
   
5.         if defined xH if "!xF!" neq "!xH!" (echo,ren "!F!" "!nF!!xH!" 2>nul)
   
6.         endlocal
   
7. )
   
8. pause&exit/b
   
9. :cutHZ // 删除扩展名中包含的全部中文字符
   
10.         if "!_xF!"=="" (exit/b) else (
    
11.                 set "c=!_xF:~,1!" &if "!c!" leq "Z" (set "xH=!xH!!c!")
    
12.                 set "_xF=!_xF:~1!" &goto :cutHZ
    
13.         )
    
14.         exit/b
    

复制代码

U0BXS3

回复 2# aloha20200628


    非常感谢大神，谢谢！