[文本处理] 批处理用递归实现中文数字解析为阿拉伯数字

yiwuyun

前几天看到论坛的一个朋友写了一个中文数字解析为阿拉伯数字的程序，觉得可用递归一写，但从没试过用批处理写递归，也就思考了几天，今天动手写，
没想到一下就成功了。当时那种感觉不错。因为只是写耍，因此文本中只能含中文数字符号，就只能解析中文数字，其他功能没有。最大支持一亿久千万
好像是批处理支持的最大数，如果要想支持更大的数，可以改写，但不想怎了。其实目的只有一个，练练批处理中的递归。不多说了，出代码。

@echo off
setlocal EnableDelayedExpansion
set __yiwuyun.txt=___yiwuyun.txt
for /f "delims=" %%a in ('type 1.txt') do (
  set "string=%%a"
  echo String Before Parse:!string!
  set "string=!string:零=!"
  call :ParseString
  echo String After Parse: !total!
)
exit /b 0


:ParseString
call :DisposeYi
exit /b 0


:DisposeYi
setlocal
call :GetTokenTextNAndCount "^!string^!" "亿"
if !tokenTextCount! equ 1 (
  call :DisposeWan
) else (
  if not "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a yiLeft=!total!*100000000
  set string=!tokenText2!
  call :ParseString
  set /a total=!total!+!yiLeft!
  )
  if not "!tokenText1!"=="" if "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a total=!total!*100000000
  )
)
endlocal&set /a total=%total%
exit /b 0


:DisposeWan
setlocal
call :GetTokenTextNAndCount "^!string^!" "万"
if !tokenTextCount! equ 1 (
  call :DisposeQian
) else (
  if not "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a wanLeft=!total!*10000
  set string=!tokenText2!
  call :ParseString
  set /a total=!total!+!wanleft!
  )
  if not "!tokenText1!"=="" if "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a total=!total!*10000
  )
)
endlocal&set /a total=%total%
exit /b 0


:DisposeQian
setlocal
call :GetTokenTextNAndCount "^!string^!" "千"
if !tokenTextCount! equ 1 (
  call :DisposeBai
) else (
  if not "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a qianLeft=!total!*1000
  set string=!tokenText2!
  call :ParseString
  set /a total=!total!+!qianLeft!
  )
  if not "!tokenText1!"=="" if "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a total=!total!*1000
  )
)
endlocal&set /a total=%total%
exit /b 0


:DisposeBai
setlocal
call :GetTokenTextNAndCount "^!string^!" "百"
if !tokenTextCount! equ 1 (
  call :DisposeShi
) else (
  if not "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a baiLeft=!total!*100
  set string=!tokenText2!
  call :ParseString
  set /a total=!baiLeft!+!total!
  )
  if not "!tokenText1!"=="" if "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a total=!total!*100
  )
)
endlocal&set /a total=%total%
exit /b 0



:DisposeShi
setlocal
call :GetTokenTextNAndCount "^!string^!" "十"
if !tokenTextCount! equ 1 (
  call :DisposeGe
) else (
  if not "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a shiLeft=!total!*10
  set string=!tokenText2!
  call :ParseString
  set /a shiRight=!total!
  set /a total=!shiLeft!+!shiRight!
  )
  if not "!tokenText1!"=="" if "!tokenText2!"=="" (
  set string=!tokenText1!
  call :ParseString
  set /a total=!total!*10
  )
  if "!tokenText1!"=="" if not "!tokenText2!"=="" (
  set string=!tokenText2!
  call :ParseString
  set /a total=!total!+10
  )
)
endlocal&set /a total=%total%
exit /b 0

:DisposeGe
setlocal
call :ParseDigit !string!
set /a total=!num!
endlocal&set /a total=%total%
exit /b 0


:ParseDigit
setlocal
if "%1"=="零" (
  set /a num=0
) else if "%1"=="一" (
  set /a num=1
) else if "%1"=="二" (
  set /a num=2
) else if "%1"=="三" (
  set /a num=3
) else if "%1"=="四" (
  set /a num=4
) else if "%1"=="五" (
  set /a num=5
) else if "%1"=="六" (
  set /a num=6
) else if "%1"=="七" (
  set /a num=7
) else if "%1"=="八" (
  set /a num=8
) else if "%1"=="九" (
  set /a num=9
) else (
  echo 不是中文纯数字符号,解析的结果可能不正确。
  set /a num=0
)
endlocal&set /a num=%num%
exit /b 0



:GetStringLength
setlocal
set string=!string!
set /a n=0
:startGetStringLength
if not "!string!"=="" (
  set string=!string:~1!
  set /a n=!n!+1
  goto startGetStringLength
)
set /a stringLength=!n!
endlocal&set stringLength=%stringLength%
exit /b 0


:GetTokenPlaceNAndCount
setlocal
set "string=%~1"
set "secondParameter=%~2"
call :GetStringLength
set /a nGetTokenPlaceNAndCount=!stringLength!-1
set /a nToken=1
set /a tokenPlace0=-1
for /l %%a in (0,1,!nGetTokenPlaceNAndCount!) do (
  if "!string:~%%a,1!"=="!secondParameter!" (
     set /a tokenPlace!nToken!=%%a
     set /a nToken+=1
  )
)
set /a tokenPlace!nToken!=!stringLength!
set /a tokenCount=!nToken!-1
type nul>!__yiwuyun.txt!
for /l %%a in (0,1,!nToken!) do (
   echo set /a tokenPlace%%a=!tokenPlace%%a!>>!__yiwuyun.txt!
)
echo set /a tokenCount=!tokenCount!>>!__yiwuyun.txt!
endlocal
for /f "tokens=1 delims=" %%a in ('type !__yiwuyun.txt!') do (
  rem echo %%a
  %%a
)
if exist !__yiwuyun.txt! del !__yiwuyun.txt!
exit /b 0


:GetTokenTextNAndCount
setlocal
set "string=%~1"
set "___secondParameter=%~2"
call :GetTokenPlaceNAndCount "^!string^!" "^!___secondParameter^!"
set /a ___next=0
set /a tokenTextCount=!tokenCount!+1
set /a ___n=0
:startGetTokenTextNAndCount
  set /a ___beforePlace=!tokenPlace%___next%!
  set /a ___first=!___beforePlace!+1
  set /a ___next=!___next!+1
  set /a ___afterPlace=!tokenPlace%___next%!
  set /a ___second=!___afterPlace!-!___beforePlace!-1
  set /a ___n=!___n!+1
  if "!string!"=="" (
    set "tokenText!___n!="
  ) else (
    set tokenText!___n!=!string:~%___first%,%___second%!
  )
if !___n! lss !tokenTextCount! goto startGetTokenTextNAndCount
type nul>!__yiwuyun.txt!
for /l %%a in (1,1,!tokenTextCount!) do (
  echo set "tokenText%%a=!tokenText%%a!">>!__yiwuyun.txt!
)
echo set /a tokenTextCount=!tokenTextCount!>>!__yiwuyun.txt!
endlocal
for /f "tokens=1 delims=" %%a in ('type %__yiwuyun.txt%') do (
  rem echo %%a
  %%a
)
if exist %__yiwuyun.txt% del %__yiwuyun.txt%
exit /b 0
复制代码