自定义的从字符串中提取字母及数字的VBA函数

时　间:2017-11-05 11:56:32
作　者:Big Young   ID：252  城市：襄阳
摘　要:自定义的从字符串中提取字母及数字的VBA函数。
正　文:

自定义的从字符串中提取字母及数字的VBA函数：

'提取所有字母及数字（包括全角及半角）：

Function ExtractAlphanumeric(strText As String) As String
    Dim lngI As Long
    Dim strChar As String
    Dim strTemp As String
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If strChar Like "[A-z0-9]" Then
            strTemp = strTemp & strChar
        End If
    Next
    ExtractAlphanumeric = strTemp
End Function




'只提取半角字母及数字：
Function ExtractAsciiAlphanumeric(strText As String) As String
    Dim lngI As Long
    Dim strChar As String
    Dim strTemp As String
    For lngI = 1 To Len(strText)
        strChar = Mid$(strText, lngI, 1)
        If (Asc(strChar) >= 65 And Asc(strChar) <= 90) or (Asc(strChar) >= 97 And Asc(strChar) <= 


122) or (Asc(strChar) >= 48 And Asc(strChar) <= 57) Then
            strTemp = strTemp & strChar
        End If
    Next
    ExtractAsciiAlphanumeric = strTemp
End Function


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店