使用正则表达式VB.Net验证电子邮件

时间:2008-12-15 20:07:55

标签: vb.net regex email

我正在VB.Net上开展一个小项目,我从文本框中获取输入,并需要验证这是一个电子邮件地址。

我发现这个表达“^ [_ a-z0-9 - ] +(。[_ a-z0-9 - ] +) @ [a-z0-9 - ] +(。[a-z0- 9 - ] +)(。[az] {2,4})$“,但我找不到任何方法来测试它是否通过。

我想要一些代码:

if not txtEmail.text = regexString then
    something happens..
else
    something else happens..
end if

6 个答案:

答案 0 :(得分:20)

使用System.Text.RegularExpressions.Regex类:

Function IsEmail(Byval email as string) as boolean
    Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$")

    return emailExpression.IsMatch(email)
End Function

理解这个答案最重要的是我自己没有写正则表达式。有很多错误的方法似乎是正确的,并且有几个层次的细节你可以采取这种方式。例如,您是否希望将此限制为有效的顶级域名,如果是这样,您如何解释他们现在偶尔会添加新顶级域名的事实?如果正则表达式是该测试最合适的位置,或者该检查应该有单独的代码?即使是这个答案中的表达现在也非常陈旧,因为它最初是作者创作的。

我建议找一个你知道将随时间维护的表达式的外部资源。

答案 1 :(得分:6)

my article on matching email addresses with a regex中选择您喜欢的正则表达式,并将其插入此Visual Basic代码:

If Regex.IsMatch(SubjectString, "regex") Then
    Error = False
Else
    Error = True
End If

匹配电子邮件地址的最佳正则表达式是一个有争议的话题,我不想在这里讨论。我的文章讨论了在选择正则表达式时应该注意的问题。 Joel Coehoorn的回答绝对不是一个好主意。

答案 2 :(得分:5)

有一个很棒的网站,http://regexlib.com/。它不仅有一个测试器应用程序,您可以粘贴正则表达式并对其进行测试,但是还有一个正则表达式库,您可以使用社区对其有效性的反馈等。我不是正则表达式大师,所以当我需要一个快速的正则表达式时,我会去这里。

另外,如果您正在考虑自己开发正则表达式,那么有一个名为Regex Buddy的优秀工具可以让您使用易于理解的正则表达式的英语解释来动态创建和测试您的正则表达式

答案 3 :(得分:5)

可能偏离主题,因为它不是正则表达式解决方案,但您可以使用.NET 2.0的一些内置功能:

try
{
   MailAddress email = new MailAddress(txtEmail.Text);
}
catch(FormatException fe)
{
   // output error
}

答案 4 :(得分:2)

那个正则表达式并不是真的完整......实际上......大部分都没有(查看this articlethis one)。

除非您真的很享受痛苦,否则正则表达式不是验证电子邮件地址的正确方法。

答案 5 :(得分:-2)

电子邮件地址:RFC 2822(简化) 匹配普通电子邮件地址。不检查顶级域名。 要求“不区分大小写”选项为ON。

Dim FoundMatch As Boolean
Try
    FoundMatch = Regex.IsMatch(txtEmail.text, "\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\Z", RegexOptions.IgnoreCase)
Catch ex As ArgumentException
    'Syntax error in the regular expression
End Try

If Not FoundMatch Then
   Error = True
Else
   Error = False
End If