idwma

回复 3# qixiaobin0715


    看了前辈们的受益良多,来练习一下

@echo off
setlocal enabledelayedexpansion
set str=九万九千九百九十九
set _零=0
for %%i in (一 二 三 四 五 六 七 八 九) do (
    set /a x+=1
    set _%%i=!x!
)
set x=1
for %%i in (十 百 千 万) do (
    set /a x*=10
    set _%%i=!x!
)

set x=0
:to
set /a xx=x+1
set m1=!str:~%x%,1!
set m2=!str:~%xx%,1!
if "%m1%"=="" (
    echo %n%
    pause
    goto :eof
)
if "%m2%"=="十" (
    set /a n+=!_%m1%!*!_%m2%!
    set /a x+=2
) else if "%m2%"=="百" (
    set /a n+=!_%m1%!*!_%m2%!
    set /a x+=2
) else if "%m2%"=="千" (
    set /a n+=!_%m1%!*!_%m2%!
    set /a x+=2
) else if "%m2%"=="万" (
    set /a n+=!_%m1%!*!_%m2%!
    set /a x+=2
) else (
    set m1=!str:~%x%,1!
    set /a n+=!_%m1%!
    set /a x+=1
)
goto :to
复制代码

idwma

回复 10# aloha20200628


    是不是可以按千分号分段,算完把每段按顺序用字符的方法拼起来,就不受数字上限了

idwma

回复 12# aloha20200628


    按千分段的想法大概像这样,就拿0751这个来改一下

@echo off
setlocal enabledelayedexpansion
set strr=九千九百九十九亿九千九百九十九万九千九百九十九
set strr=!strr:零=!
for %%i in (一 二 三 四 五 六 七 八 九) do (
    set /a x+=1
    set _%%i=!x!
)
set x=1
for %%i in (十 百 千 万 亿) do (
    set /a x*=10
    set #%%i=!x!
    set %%i=1
)
set #万=1000
set #亿=1000

for %%a in (%strr:千= %) do (
set str=%%a
set str=!str:万=千!
set str=!str:亿=千!
for /l %%i in (0,2,8) do (
    set var=!str:~%%i,2!
    if not "!var!"=="" (
        if not "!var:~1!"=="" set /a m1=!var:~1!
        set /a m2=!var:~,1!
        if "!m1!"=="1" (
            set /a n+=_!var:~,1!*#!var:~1!
        ) else if "!m2!"=="1" (
            set /a n+=#!var:~,1!+_!var:~1!
        ) else (
            set /a n+=_!var!
        )
        set m1=
        set m2=
    )
)
set nn=!nn!!n!
set n=
)
echo,!nn!
pause
复制代码