如何检查“@”前的内容

Question

我正在电子邮件发件人处工作。我想打的支票，是@前面的东西，例如：

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