RegexでVB.NET電子メールの検証

Question

入力が有効な電子メールであっても、誤った一致を返すような、かなり単純な電子メール検証機能を実装しようとしました。私は既存の正規表現の問題を検索しましたが、正しいと思われます。

一致が偽の値を返すにもかかわらず、プログラムは次の妥当性検査レベルにステップしています。

ここに電子メール検証機能があります。

Function EmailAddressChecker(ByVal emailAddress As String) As Boolean 
     Dim regExPattern As String = "^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$" 
     Dim emailAddressMatch As Match = Regex.Match(emailAddress, regExPattern) 
     If emailAddressMatch.Success Then 
      Return True 
     Else 
      Return False 
     End If 
End Function 

電子メール検証機能を呼び出すフォーム検証用です。

If (String.IsNullOrEmpty(EmailTextBox.Text) OrElse EmailAddressChecker(EmailTextBox.ToString)) Then 
      MessageBox.Show("Please enter a valid email addresss") 
      Return False 
End If 

すべてのフィールドが設定されているかどうかを確認するためにIfステートメントを深刻にカスケードするトリガとなるクリックイベントでこのすべてが呼び出されます。

clickイベントは、「AreFieldsSet <> True」かどうかを尋ねます。 「AreFieldsSet」関数の内部には、複数の入力に対するすべての検証が含まれています。そのうちの1つは電子メール検証のif文です。

Answer 1

メールはUpperCaseにありますか？そうでない場合、一致しません。あなたはそれが大文字小文字を区別しませんになるように正規表現を変更したい場合は

、これを使用する：

"^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4}$" 

Answer 2

あなたは正規表現オブジェクトのIsMatch関数を使用する必要がある電子メールアドレスを検証するには、それがエントリーかどうかを評価します電子メールアドレスは有効です。

Function EmailAddressChecker(ByVal emailAddress As String) As Boolean 
    Dim r As System.Text.RegularExpressions.Regex = Nothing 
    Dim regExPattern As String = "^[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}$" 

    If r.IsMatch(emailAddress ,regExPattern) Then 
     Return True 
    Else 
     Return False 
    End If 
End Function 

Answer 3

あなたは私たちは、これがで呼び出されたコンテキストを参照する必要があなたのフォーム検証If (String.IsNullOrEmpty(EmailTextBox.Text) OrElse EmailAddressChecker(EmailTextBox.ToString)<>true) Then MessageBox.Show("Please enter a valid email addresss") Return False End If

Answer 4

Public Shared Function ValidEmailAddress(ByVal emailAddress As String, ByRef errorMessage As String) As Boolean  

     If emailAddress.IndexOf("@") > -1 Then 
     If (emailAddress.IndexOf(".", emailAddress.IndexOf("@")) > emailAddress.IndexOf("@")) AndAlso emailAddress.Split(".").Length > 0 AndAlso emailAddress.Split(".")(1) <> "" Then 
      errorMessage = "" 
      Return True 
     End If 
    End If  
    Return False 
End Function