[文件操作] 如何实现将文件名中的中文数字转换成阿拉伯数字并且不够指定位数的在前面添加前导0

@echo off
setlocal enabledelayedexpansion
for %%a in (*.avi) do (
    set "fn=%%~a"
    for /f "tokens=1,3 delims= " %%b in ("%%~a") do (
        for /f "tokens=1,2 delims=第章节 " %%d in ("%%b%%c") do (
            set tmpstr_d=%%dfedcba9876543210&set/a len_d=0x!tmpstr_d:~15,1!
            set tmpstr_e=%%efedcba9876543210&set/a len_e=0x!tmpstr_e:~15,1!
            call :change %%d !len_d! ret_d
            call :change %%e !len_e! ret_e
            call set fnew=%%fn:第%%d章=第!ret_d!章%%
            call set fnew=%%fnew:第%%e节=第!ret_e!节%%
            ren "%%~a" "!fnew!"
        )
    )
)
echo;处理完毕&pause>nul&exit /b

:change
set num=%1
set n=1
for %%i in (一 二 三 四 五 六 七 八 九) do (
    call set num=%%num:%%i=!n!%%
    set /a n+=1
)
if %2 equ 1 set num=%num:十=10%
if %2 equ 2 (
    set lastone=!num:~-1!
    if "!lastone!"=="十" (set num=%num:十=0%) else (set num=%num:十=1%)
)
if %2 equ 3 set num=%num:十=%
set num=000%num%
set num=%num:~-3%
endlocal&set %3=%num%&goto :eof
复制代码

@echo off
REM 开启变量延迟
setlocal enabledelayedexpansion

REM 构建基表
set "hSTRING=零一二三四五六七八九"

REM 构建0~99的汉字数字转换表
for /l %%a in (0,1,9) do (
	for /l %%b in (0,1,9) do (
		if %%b equ 0 (
			set "____!hSTRING:~%%a,1!十=%%a0"
		) else if %%a equ 0 (
			set "____!hSTRING:~%%b,1!=0%%b"
		) else if %%a equ 1 (
			set "____十!hSTRING:~%%b,1!=1%%b"
		) else if %%a gtr 1 (
			set "____!hSTRING:~%%a,1!十!hSTRING:~%%b,1!=%%a%%b"
		)
	)
)

REM 遍历子目录
for /r %%a in (*.avi) do (

	REM 获取章节
        for /f "tokens=1,2,3* delims=第章节" %%A in ("%%~nxa") do (

		REM 将章节转化为数码
		set "chapterNUM=!____%%A!"
		set "sectionNUM=!____%%C!"

		REM 真的纯数字直接凑齐两位
		if not defined chapterNUM (
			if "%%A"=="十" (
				set/a "chapterNUM=10"
			) else (
				set/a "chapterNUM=100+%%A"
			)
		)
		if not defined sectionNUM (
			if "%%C"=="十" (
				set/a "sectionNUM=10"
			) else (
				set/a "sectionNUM=100+%%C"
			)
		)

		echo 正在重命名...   "%%~nxa"
		ren "%%a" "第!chapterNUM:~-2!章%%B第!sectionNUM:~-2!节%%D"
        )
)

REM 更名完毕
pause
复制代码