Nalazenje eMail adrese u stringu

Code:

            // Define a regular expression for repeated words.
            Regex rx = new Regex(@"\w+@\w+.\w+",
              RegexOptions.Compiled | RegexOptions.IgnoreCase);

            // Define a test string.        
            string text = TvojUlazniString;

            // Find matches.
            MatchCollection matches = rx.Matches(text);

            // Report on each match.
            foreach (Match match in matches)
            {
                string emailAdresa = match.Value;
            }

Code:

 Regex rx = new Regex(@"\w+@\w+.\w+", RegexOptions.Compiled | RegexOptions.IgnoreCase);

Code:

 Regex rx = new Regex(@"[A-Za-z0-9_.]+@\w+.\w+", RegexOptions.Compiled | RegexOptions.IgnoreCase);

Code:
"[A-z0-9_.-]+@[A-z0-9_.-]+[A-z]{2,4}"

Code:

[\w.%-]+@([\w-]+\.)+[\w]{2,6}

Code:

[\w.%-]+@([\w-]+\.)+[\w]{2,6}

Code:

' neka Funkcija koja ce da vrati emial adresu
' mada ni ovo nije neko 100 % resenje ali moze lako da se izvede....

    Public Function VratiEmail(ByVal str As String) As String
        str = Regex.Replace(str, "[^\w\.@-_]", " ")
        Dim EmailArray() As String = Split(str)
        Dim LastNonEmpty As Integer = -1
        For i As Integer = 0 To EmailArray.Length - 1
            If EmailArray(i) <> "" And (InStr(EmailArray(i), "@") And InStr(EmailArray(i), ".")) Then
                LastNonEmpty += 1
                EmailArray(LastNonEmpty) = EmailArray(i)
            End If
        Next
        Return EmailArray(LastNonEmpty)
    End Function

Code:


        Dim str As String = "dddd ddddd dddd [email protected] >[email protected]/> sasasas sas@dfs fdf"

        'Treba da vrati [email protected]
        MsgBox(VratiEmail(str))

'Jedini problem je ako se nadje jos jedan email ili kombinacija stringa gde ima @ i .