需要下载 concmd: http://bathome.net/thread-12595-1-1.html- @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 =按回车键退出...
复制代码
|