ExtractEmails ( Text )

Extracts list of e-mails found in Text

Average rating: 4.4 (32 votes) Log in to vote

Ilya Shuvalov
SUI Solutions
http://filemaker.suisolutions.com

Sample input:

ExtractEmails("^john_smith@work.com; and some other email;marysmith@home.com? and one more please##bill.smith@hotmail.com,,,")

Sample output:

john_smith@work.com
marysmith@home.com
bill.smith@hotmail.com

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Let([
adjustedText =If( $Already_Sub="yes";Text; Substitute ( text ; "¶" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; ";" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "," ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "<" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; ">" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "!" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "\\" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "\"" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "#" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "$" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "%" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "&" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "'" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "*" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "/" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; ":" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "?" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "[" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "]" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "^" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "{" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "}" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "|" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "~" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "`" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; "(" ; " " ));
adjustedText = If( $Already_Sub="yes";adjustedText; Substitute ( adjustedText ; ")" ; " " ));
$Result = If( $Already_Sub="yes";$Result; "¶");
$Already_Sub = "yes";
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  );
email = Middle ( adjustedText ; startWord ; endWord - startWord );
$Result =If( 
                    PatternCount (email;"@"  ) = 1 and 
                    Position ( email ; "@"; 1 ; 1 ) > 1 and 
                    Position ( email ; "."; 1 ; 1 ) > 1 and 
                    Position( email; ".."; 1 ; 1 ) = 0 and
                    Position ( email ; "."; Length ( email ) ; -1 )  > Position ( email ; "@" ; 1 ; 1 ) + 1 and 
                    Position ( email ; "."; Length ( email ) ; -1 )   ≤   Length ( email ) - 2 and
                    PatternCount ($Result; "¶" & email & "¶") = 0 and          
                    Position ( email ; "."; Length ( email ) ; -1 ) < Length ( email ); $Result&email&¶; $Result);
adjustedText = Replace ( adjustedText ; startWord; Length ( email ) ; "" );
count = PatternCount ( adjustedText ; "@" )
];
If(count ≠ 0; ExtractEmails(adjustedText);Middle($Result; 2; Length ($Result )-2)))

Extracts from Text the list of all e-mails separated by carriage returns

Comments

		Drew, Littleton, CO Jul 15, 2009
This function did quite work as I expected it to. I passed text like this... first1 last1 <account@domain> first2 last2 <> It returned the following... <account@domain> first2

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ExtractEmails ( Text )

Comments

Support this website.

Support this website.