提取字符串中数字、中文、英文字符…

提取字符串中数字、中文、英文字符的自定义函数

Function MyGet(Srg As String, Optional n As Integer = False)

'n为1，取汉字，n为2，取字母，n为0，取数字

    Dim i As
Integer

    Dim s,
MyString As String

    Dim Bol As
Boolean

  

    For i = 1 To
Len(Srg)

       
s = Mid(Srg, i, 1)

       
If n = 1 Then

           
Bol = Asc(s) <
0    '文字

       
ElseIf n = 2 Then

           
Bol = s Like
"[a-z,A-Z]"   
'字母

       
ElseIf n = 0 Then

           
Bol = s Like
"#"    '数字

       
End If

       
If Bol Then MyString = MyString & s

    Next

  

    MyGet =
IIf(n = 1 Or n = 2, MyString, Val(MyString))

  

End Function