使用Regex进行VB.NET电子邮件验证

即使匹配返回错误值,程序也会步入下一个验证级别(它不应该).

这是电子邮件验证功能.

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

所有这一切的调用都发生在一个click事件上,该事件触发了一系列严重的If语句,检查是否设置了所有字段.

跳过一大块代码,click事件会询问“AreFieldsSet<> True”. “AreFieldsSet”函数内部包含多个输入的所有验证;其中一个是电子邮件验证if语句.