ESTRARRE MAIL DA UNA STRINGA

Question

Salve,

avrei bisogno di estrarre de mail da un DB composto da vario testo nella stessa cella diviso da ritorni a capo.

In rete ho trovato questo comando:

Public Function f(ByVal v As Variant) As String

    Dim s() As String

    Dim lng As Long

    f = "Nessuna email"

    s = Split(v, " ")

    For lng = 0 To UBound(s)

        If InStr(s(lng), "@") Then

            f = s(lng)

            Exit For

        End If

    Next

End Function

Funziona però sul testo diviso da spazio e non da ritorno a capo.

Qualcuno conosce la versione per i ritorni a capo?

Grazie

ciao

Answer 1

Commerciale Cialdamia,

avrei bisogno di estrarre de mail da un DB composto da vario testo nella stessa cella diviso da ritorni a capo.

In rete ho trovato questo comando:

Public Function f(ByVal v As Variant) As String

    Dim s() As String

    Dim lng As Long

    f = "Nessuna email"

    s = Split(v, " ")

    For lng = 0 To UBound(s)

        If InStr(s(lng), "@") Then

            f = s(lng)

            Exit For

        End If

    Next

End Function

Funziona però sul testo diviso da spazio e non da ritorno a capo.

Qualcuno conosce la versione per i ritorni a capo?

Sostituisci:

       s = Split(v, " ")

con;

      s = Split(v, vbNewline)

===

Regards,

Norman

Answer 2

Ciao Commerciale Cialdamia,

Grazie mille,

gentilissimo!

Risolto,

Ti ringrazio per il cortese riscontro.

Per chiudere questo thread, vorrei chiederti gentilmente di controllare l'opzione

Contrassegna come risposta" dal menu a discesa - Strumenti avanzati, sotto la mia risposta.

In questo modo, le risposte convalidate saranno promosse immediatamente al di sotto della domanda iniziale, e tutti gli altri lettori che hanno la stessa preoccupazione , saranno in grado di trovare più facilmente la risposta, durante la loro ricerca nel nostro forum e su internet.

===

Regards,

Norman 

Answer 3

Grazie mille,

gentilissimo!

Risolto,

buona giornata