如何用VB实现.net框架下的电子邮件格式验证？

本文共计331个文字，预计阅读时间需要2分钟。

我想要检查电子邮件地址是否有效。在VB中，如何使用正则表达式验证电子邮件地址？

使用正则表达式在VB中验证电子邮件地址，可以使用以下模式：

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

示例代码如下：

vbFunction IsValidEmail(email As String) As Boolean Dim regex As New Regex(^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,7}$) Return regex.IsMatch(email)End Function

' 使用示例Dim email As String=example@example.comIf IsValidEmail(email) Then Console.WriteLine(电子邮件地址有效)Else Console.WriteLine(电子邮件地址无效)End If

MSDN 文章：如何：验证电子邮件是否为有效的电子邮件格式示例方法调用：验证电子邮件格式

我想检查电子邮件地址是否有效.

如何使用正则表达式在VB中验证电子邮件地址？

([\w-+]+(?:\.[\w-+]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}) MSDN文章： How to: Verify That Email are in Valid E-Mail Format

此示例方法调用Regex.IsMatch(String,String)方法以验证字符串是否符合正则表达式模式.

Function IsValidEmailFormat(ByVal s As String) As Boolean Return Regex.IsMatch(s, "^([0-9a-zA-Z]([-\.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$") End Function