Feedback

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

Veröffentlicht von am 20.01.2008
(2 Bewertungen)
Diese Funktion ließt aus einem String bzw. Text alle E-Mail Adressen aus und gibt diese in einer Liste zurück.
GFU-Schulungen  [Anzeige]

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

C# Aufbaukurs

Sie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.

''' <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 RegEx, E-Mail, Mail.

1 Kommentare zum Snippet

General Bison schrieb am 09.02.2008:
Supercool ^^ THX!
Sowas such ich schon lange :)
 

Logge dich ein, um hier zu kommentieren!