netbenton

学习之后再减减，不过好像少不了多少了。。。

@echo off&setlocal enabledelayedexpansion
set capital=零壹贰叁肆伍陆柒捌玖
set unit=仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分
set n=0&set en=
set /p num=输入需转换的金额（不超过万亿元）：
set int=%num:.=&set dec=%
set dec=!dec!00
set num=!int!!dec:~0,2!
if not "%int:~16%$" == "$" echo 靠！你太高估我的能力啦！&pause>nul&goto :eof
for /l %%i in (-1,-1,-18) do (
        for /f %%a in ("!num:~%%i,1!") do (
                set en=!capital:~%%a,1!!unit:~%%i,1!!en!
        )
        if "!num:~%%i!" equ "!num!" goto :ok
)
:ok
set en=!en:零角零分=整!
for %%i in (拾,佰,仟,角,零,零) do set en=!en:零%%i=零!
for %%i in (亿,万,元) do set en=!en:零%%i=%%i!
set en=!en:零分=!&set en=!en:亿万=亿!
echo %en%
pause
复制代码

netbenton

11楼一句话，又多了两句代码：

@echo off&setlocal enabledelayedexpansion
set capital=零壹贰叁肆伍陆柒捌玖
set unit=仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分
set n=0&set en=
set /p num=输入需转换的金额（不超过千万亿元）：
set int=%num:.=&set dec=%
set dec=!dec!00
set num=!int!!dec:~0,2!
if not "%int:~16%$" == "$" echo 靠！你太高估我的能力啦！&pause>nul&goto :eof
for /l %%i in (-1,-1,-18) do (
        for /f %%a in ("!num:~%%i,1!") do (
                set en=!capital:~%%a,1!!unit:~%%i,1!!en!
        )
        if "!num:~%%i!" equ "!num!" goto :ok
)
:ok
set en=@!en:零角零分=整!
for %%i in (拾,佰,仟,角,零,零) do set en=!en:零%%i=零!
for %%i in (亿,万,元) do set en=!en:零%%i=%%i!
set en=!en:零分=!&set en=!en:亿万=亿!&set en=!en:@元=@!&set en=!en:@零=@!
echo %en:@=%
pause
复制代码