下面的代码示例设置一个 Boolean 变量,该变量指明字符串是否代表有效的电子邮件地址。
示例
Function ValidateEmail(ByVal email As String) As Boolean
Dim emailRegex As New System.Text.RegularExpressions.Regex(
"^(?<user>[^@]+)@(?<host>.+)$")
Dim emailMatch As System.Text.RegularExpressions.Match =
emailRegex.Match(email)
Return emailMatch.Success
End Function
编译代码
通过传递包含电子邮件地址的字符串来调用此方法。
可靠编程
此方法验证电子邮件地址的格式是否为“someone@example.com”。
在尝试将字符串用作电子邮件地址之前,请使用此代码来验证字符串。 这可以防止在运行时出现其他错误。