提取字符函数（正则）

henterwu

函数有两个参数，第一个参数：导入的字符；第二个参数：1、中文，2、英文，3、数字



Function CatchChar(str As String, para As Byte) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    Select Case para
    Case Is = 1
    regEx.Pattern = "[\u4e00-\u9fa5]+" ' 匹配中文字符
    Case Is = 2
    regEx.Pattern = "[a-zA-Z]+" ' 匹配英文字符
    Case Is = 3
    regEx.Pattern = "\d+" ' 匹配数字
    End Select
    regEx.Global = True
   
    If regEx.Test(str) Then
        CatchChar = regEx.Execute(str)(0)
    Else
        CatchChar = ""
    End If
End Function