@echo off&setlocal enabledelayedexpansion
set n=0
for %%i in (零 一 二 三 四 五 六 七 八 九 十) do (
set %%i=!n!
set /a n+=1
set /a n=!n! %% 10
)

for /f %%a in (1.txt) do (
set s=%%a
set s1=!s:~0,1!
set s2=!s:~1,1!
set s3=!s:~2,1!
set s4=!s:~3,1!
call set x1=%%!s1!%%
call set x2=%%!s2!%%
call set x3=%%!s3!%%
call set x4=%%!s4!%%
if "!s3!"=="" set x3=
if "!s2!"=="百" (set x=!x1!!x3!!x4!) else (set x=!x1!!x3!)
echo !x!
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (一 二 三 四 五 六 七 八 九) do set /a n+=1&set "_%%a=!n!"
for %%a in (十-0 百-00 千-000 亿-00000000) do (
    for /f "tokens=1,2 delims=-" %%a in ("%%a") do set "_%%a=%%b"
)
for /f "delims=" %%a in (a.txt) do (
    set /a num=0&set "str=%%a"
    set "str=!str:零=!"
    for %%a in (亿 万 千 百 十) do if "!str:%%a=!" neq "!str!" call :lp %%a
    set /a num+=_!str!&echo !num!
)
pause>nul&goto :eof
:lp
if %1 neq 万 (
   for /f "tokens=1* delims=%1" %%a in ("%str%") do set /a num+=!_%%a!!_%1!&set "str=%%b"
   ) else (
   for /f "tokens=1,2 delims=万" %%a in ("!str!") do set "var=%%a"&set "str=%%b"
   for %%a in (千 百 十) do if "!var:%%a=!" neq "!var!" call :loop %%a
   set /a num+=_!var!*10000
)
goto :eof
:loop
for /f "tokens=1* delims=%1" %%a in ("%var%") do set /a num+=!_%%a!!_%1!0000&set "var=%%b"   
复制代码

一千零二十二万零四十九
二亿二千二百二十二万二千二百二十四
一
四十三
五百零九
二百七十一
一千零二
五千零八十六
二千九百零三
三千四百五十五
九十九
三百零九万零七十
九亿零三
复制代码