Alle E-Mail Adressen aus einem String bzw. Text filtern

Sprache: VB

Diese Funktion ließt aus einem String bzw. Text alle E-Mail Adressen aus und gibt diese in einer Liste zurück.

''' <summary>
''' Diese Funktion ließt aus einem String alle E-Mail Adressen
''' aus und gibt diese in einer Liste zurück.
''' </summary>
Public Function GetAllEMailAddresses(ByVal Input As String) As List(Of String)
    Dim Results As New List(Of String)


    Dim MC As Text.RegularExpressions.MatchCollection = _
    System.Text.RegularExpressions.Regex.Matches(Input, _
    "w+([-+.']w+)*@w+([-.]w+)*.w+([-.]w+)*")

    For i As Integer = 0 To MC.Count - 1
        If Results.Contains(MC(i).Value) = False Then
            Results.Add(MC(i).Value)
        End If
    Next

    Return Results
End Function

''' <summary>
''' Diese Funktion ließt aus einem String alle E-Mail Adressen
''' aus und gibt diese in einer Liste zurück.
''' </summary>
Public Function GetAllEMailAddresses(ByVal Input As String) As List(Of String)
    Dim Results As New List(Of String)


    Dim MC As Text.RegularExpressions.MatchCollection = _
    System.Text.RegularExpressions.Regex.Matches(Input, _
    "w+([-+.']w+)*@w+([-.]w+)*.w+([-.]w+)*")

    For i As Integer = 0 To MC.Count - 1
        If Results.Contains(MC(i).Value) = False Then
            Results.Add(MC(i).Value)
        End If
    Next

    Return Results
End Function

Abgelegt unter E-Mail Mail regex

Alte URL: /snippet/alle-e-mail-adressen-aus-einem-string-bzw-text-filtern/758

1 Kommentar