apang

回复 3# xp3000


    给一个测试样本，具体说明需要修改成什么样子

apang

Dim str, fso, file, f, txt
str = "零一二三四五六七八九十百千"
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder(".").Files
    If LCase(Right(file, 4)) = ".txt" Then
        Set f = fso.OpenTextFile(file, 1)
        txt = f.ReadAll
        f.Close : Set f = Nothing
        fso.OpenTextFile(file, 2).Write RegEx(txt)
    End If
Next
Set fso = Nothing

MsgBox "OK"

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)
    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
复制代码

第2个，把function部分换成：

Function RegEx(txt)
    Dim re, s
    Set re = New RegExp
    re.Pattern = "【(\d+)】"
    If Not re.Test(txt) Then RegEx = txt : Exit Function
    s = re.Execute(txt)(0).SubMatches(0)
    s = Right("0000" & s, 4)
    RegEx = re.Replace(txt, "第" & s & "节")
End Function
复制代码

apang

回复 7# xp3000


    第19行：

re.Pattern = "(第)([" & str & "两]+)(节)"
复制代码

第21行：

s = re.Execute(txt)(0).SubMatches(1) : s = Replace(s, "两", "二")
复制代码

话说测试样本中没见到“两”字
108 可以叫 一百单八，可以叫 百又八，可以叫 一百零八，等
总之中文数字叫法很多，如果要求代码兼容所有叫法，估计有难度，具体问题具体分析吧