Newest functions Upload a function Leave a tip My account

There are 2,522 functions in this library.

GetEmailAddr ( Text )

Extracts email addresses from text

  Average rating: 4.7 (22 votes) Log in to vote

Denham Morgan NeuroScience Associates http://http://www.neuroscienceassociates.com/

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

/* GetEmailAddr Text Updated Daniele Raybaudi's GetEmail by Denham Morgan II */ Let([ filteredText = Substitute ( Text ; [" " ; ":"] ; [":" ; " "] ; ["[" ; " "] ; ["]" ; " "] ; ["<" ; " "] ; [">" ; " "] ; [";" ; " "] ; ["," ; " "] ; ["'" ; " "] ; [")" ; " "] ; ["(" ; " "] ; [" " ; " "] ; ["\"" ; " "]); adjustedText = Substitute ( filteredText ; "¶" ; " " ); 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 & "¶" & GetEmailAddr ( nextText ); count = 1; word; "" ) ) Click to copy

Adapted from Daniele Raybaudi's GetEmail function.
It extracts all email addresses from text.
Added a substitution filter for common characters found surrounding email addresses. Recursive function.

Thanks, Daniele Raybaudi for GetEmail!

12/17/2013 Added some more characters to filter out and fixed GetEmailAddr ( nextText )

10/22/2014 Corrected for blank line if no email addresses.

 

Comments

		Bruce Robertson Dec 17, 2013
Small correction, toward the end GetEmail ( nextText ) should be GetEmailAddr ( nextText )

		Till Seelemann, Leipzig, Germany Oct 16, 2014
If you have only one address in the text, a blank line appears at the end of the result. Solution: Case (   count > 1; word & "¶" & GetEmailAddr (next text);   count = 1; word;   "" )

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: