GetEmail(text)

[raybaudi]

Ciao a tutti

Ho costruito una funzione personalizzata che estrae tutti gli indirizzi email contenuti in un generico testo...

Spero che a qualcuno possa essere utile.

Funzione GetEmail (text):

Codice: Seleziona tutto

/*
Author
Daniele Raybaudi
*/
Let([
adjustedText = Substitute ( text ; "¶" ; " " );
count = PatternCount ( adjustedText ; "@" );
len = Length ( adjustedText );
pos = Position ( adjustedText ; "@" ; 1 ; 1 );
startWord = Position ( adjustedText ; " " ; pos ; -1 ) + 1;
endWord = If ( Position ( adjustedText ; " " ; pos ; 1 ) ≠ 0 ; Position ( adjustedText ; " " ; pos ; 1 ) ; len + 1  );
word = Middle ( adjustedText ; startWord ; endWord - startWord );
nextText = Middle (adjustedText ; endWord + 1 ; len )
];
Case(
count ; word & "¶" & GetEmail ( nextText );
""
)
)

[marianasu]

Un'altra mitica funzione personalizzata!!!!!
CHE MITO!