Estrarre tutti gli indirizzi email contenuti in una stringa

Questa funzione serve per estrarre tutti gli indirizzi email contenuti in una stringa di testo passata come argomento.
Ritorna un array contenente gli indirizzi email trovati.

Codice

Imports System.Text.RegularExpressions

Private Function TrovaEmail(ByVal testo As String) As String()

    Dim mc As MatchCollection = Regex.Matches(testo, _
        "([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})")
    Dim trovati(mc.Count - 1) As String
    For i as Integer = 0 To trovati.Length - 1
        trovati(i) = mc(i).Value
    Next
    Return trovati

End Function

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *