@echo off
setlocal

echo 创建文件列表...
(for /r %%a in (*.ape) do (
    echo %%a
)) >file_list.t

:: 把文件列表转为简体...
concmd /o:gbk file_list.t file_list.s >nul

:: 合并简繁体文件
findstr /n . file_list.? | sort /+12 >file_list.2

:: 统计文件个数
for /f %%a in (' "find /c /v "" <file_list.t" ') do (
    set total=%%a
)

echo 重命名...
set new_name=
set count=0
for /f "delims=: tokens=2,*" %%a in (file_list.2) do (
    if not defined new_name (
        set new_name=%%~nxb
    ) else (
        set /a count += 1
        set file=%%b
        setlocal enabledelayedexpansion
        ren "!file!" "!new_name!"
        title !count! / %total%
        endlocal
        set new_name=
    )
)

echo 完毕
del file_list.t file_list.s file_list.2
set /p =按回车键退出...
复制代码