@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (1.txt) do (if "%%i"=="" (echo.) else (set "n=%%i"&call :chg))>>new_1.txt
pause
exit
:chg
set "n=!n:九十=90!"
set "n=!n:八十=80!"
set "n=!n:七十=70!"
set "n=!n:六十=60!"
set "n=!n:五十=50!"
set "n=!n:四十=40!"
set "n=!n:三十=30!"
set "n=!n:二十=20!"
set "n=!n:十一=11!"
set "n=!n:十二=12!"
set "n=!n:十三=13!"
set "n=!n:十四=14!"
set "n=!n:十五=15!"
set "n=!n:十六=16!"
set "n=!n:十七=17!"
set "n=!n:十八=18!"
set "n=!n:十九=19!"
set "n=!n:十=10!"
set "n=!n:九=9!"
set "n=!n:八=8!"
set "n=!n:七=7!"
set "n=!n:六=6!"
set "n=!n:五=5!"
set "n=!n:四=4!"
set "n=!n:三=3!"
set "n=!n:二=2!"
set "n=!n:一=1!"
set "n=!n:零=0!"
set "n=!n:09=9!"
set "n=!n:08=8!"
set "n=!n:07=7!"
set "n=!n:06=6!"
set "n=!n:05=5!"
set "n=!n:04=4!"
set "n=!n:03=3!"
set "n=!n:02=2!"
set "n=!n:01=1!"
echo !n!
goto :eof
复制代码

Function RegEx(txt)
    Dim re, s, i, s1, ss
    Set re = New RegExp
    re.Pattern = "(第)([" & str & "]+)(章)"
    If Not re.Test(txt) Then RegEx = txt : Exit Function
           s = re.Execute(txt)(0).SubMatches(1) : s = Replace(s, "两", "二")
    If Left(s, 1) = "十" Then s = "一" & s
    For i = 1 to Len(s)
        s1 = Mid(s, i, 1)
        If InStr(str, s1) > 10 Then
            ss = ss & "*10^" & (InStr(str, s1)-10) & "+"
        Else ss = ss & (InStr(str, s1)-1)
        End If
    Next
    s = Right("0000" & eval(ss & "+0"), 4)
    RegEx = re.Replace(txt, "$1" & s & "$3")
End Function
复制代码