Como: Analisar endereços de email no Visual Basic
Este exemplo demonstra um expressão regular simples para analisar um email.
Exemplo
Este exemplo usa a expressão regular (\S+)@([^\. \s]+)(?:\.([^\. \s]+))+, which means:
Conjunto de um ou mais caracteres (capturados) não espaço, seguidos por
O caractere "@", seguido por
Conjunto de um ou mais caracteres (capturados) que não são ponto(.), seguidos por
Um ou mais dos seguintes:
O caractere ".", seguido por
Conjunto de um ou mais caracteres (capturados) não espaço e que não são ponto(.).
A expressão regular Match retorn um objeto Match que contém informações sobre todas as partes da string de entrada que é compatível com a expressão regular.
''' <summary>
''' Parses an e-mail address into its parts.
''' </summary>
''' <param name="emailString">E-mail address to parse.</param>
''' <remarks> For example, this method displays the following
''' text when called with "someone@mail.contoso.com":
''' User name: someone
''' Address part: mail
''' Address part: contoso
''' Address part: com
''' </remarks>
Sub ParseEmailAddress(ByVal emailString As String)
Dim emailRegEx As New Regex("(\S+)@([^\.\s]+)(?:\.([^\.\s]+))+")
Dim m As Match = emailRegEx.Match(emailString)
If m.Success Then
Dim output As String = ""
output &= "User name: " & m.Groups(1).Value & vbCrLf
For i As Integer = 2 To m.Groups.Count - 1
Dim g As Group = m.Groups(i)
For Each c As Capture In g.Captures
output &= "Address part: " & c.Value & vbCrLf
Next
Next
MsgBox(output)
Else
MsgBox("The e-mail address cannot be parsed.")
End If
End Sub
Esse exemplo exige que você use a declaração Imports para importar o namespace System.Text.RegularExpressions.Para obter mais informações, consulte Declaração Imports (Tipo e Namespace .NET).
Consulte também
Tarefas
Como: Verifique se que seqüências de caracteres que estão no Formatarar de email válido