Question

我在E-mail Sender工作。我想在@之前进行检查，例如：

If Nothing at left side of "@" Then
MsgBox("Wrong e-mail")
End If

但我不知道我怎么能这样做，这有可能吗？

Answer 1

在电子邮件地址中检查@的最有效方法是检查索引吗？

dim email as string = "test@test.com"
dim index as integer = email.IndexOf("@")
if index = -1 OrElse index = 0 then
    MsgBox("Wrong e-mail")
End If

未找到-1时，它不应该是索引0。

注意：这不会检查@之前是否有任何内容，但它会对您尝试实现的内容进行基本检查。

Answer 2

我使用正则表达式并检查不仅仅是@，以便更加彻底地确保输入实际的电子邮件地址：

Function IsValidEmail(emailAddress As String) As Boolean
    Dim regEx As New Regex("^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$")
    Return regEx.IsMatch(emailAddress)
End Function

如何检查是“@”之前的事情

2 个答案: