VB.NET全角半角check

    ''' <summary>
    ''' 半角英数のチェック
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function f_IsAlphameric(ByVal str As String) As Boolean
        Return Regex.IsMatch(str, "^[a-zA-Z0-9]+$")
    End Function

    ''' <summary>
    ''' 半角カタカナ
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function f_IsHankakuKana(ByVal str As String) As Boolean
        Return Regex.IsMatch(str, "[\uFF61-\uFF9F]")
    End Function

    ''' <summary>
    ''' 半角記号
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function f_IsHankakuKigou(ByVal str As String) As Boolean
        Return Regex.IsMatch(str, "^[ -/:-@\[-\`\{-\~]+$")
    End Function

    ''' <summary>
    ''' 半角ｶﾅ・半角英数字・半角記号チェック
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function f_IsHankakuKanaOrAlphamericOrKigou(ByVal str As String)
        For Each s_code As String In str
            If Not (f_IsHankakuKana(s_code) OrElse f_IsAlphameric(s_code) OrElse f_IsHankakuKigou(s_code)) Then
                Return False
            End If
        Next
        Return True
    End Function

    ''' <summary>
    ''' 全角チェック
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function f_IsZenkaku(ByVal str As String) As Boolean
        Return Regex.IsMatch(str, "^[^ -~｡-ﾟ]+$")
    End Function

转载于:https://www.cnblogs.com/justinsun/archive/2011/10/14/2211206.html