（已解决）+30求助，批量去除子文件夹中照片名的英文字母

hxc1995

+30求助，批量去除子文件夹中照片名的英文字母

Batcher

回复 1# hxc1995

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /s /a-d *.jpg *.png') do (
    set "FileName=%%~ni"
    for %%j in (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) do (
        set "FileName=!FileName:%%j=!"
    )
    if "%%~nxi" neq "!FileName!%%~xi" (
        ren "%%i" "!FileName!%%~xi"
    )
)COPY

请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ

zaqmlp

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=3000
rem 另存为ANSI编码
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$path=get-item -literal ".";
$files=@(dir -liter $path -recurse|?{(@('.jpg','.jpeg','.bmp','.png','.tif') -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $base=($files[$i].BaseName -replace '[a-z]','').trim();
    if(($base -ne '') -and ($base -ne $files[$i].BaseName)){
        $newname=$base+$files[$i].Extension;
        $newfile=$files[$i].Directory.FullName+'\'+$newname;
        $n=2;
        while(test-path -literal $newfile){
            $newname=$base+' ('+$n.toString()+')'+$files[$i].Extension;
            $newfile=$files[$i].Directory.FullName+'\'+$newname;
            $n++;
        }
        write-host ($files[$i].FullName+' --> '+$newname);
        move-Item -liter $files[$i].FullName $newfile -force -ErrorAction SilentlyContinue;
    }
}COPY

hxc1995

回复 2# Batcher


    感谢管理大大