ExtractingEmails ( TheText ; Separator )

Extract address eMail, what there is before and after the @ with the predefined separators. ( No to verify address )

Average rating: 4.6 (27 votes) Log in to vote

Agnes Barouh - Show more from this author
Tic Tac
http://www.tictac.fr/CoinFileMaker/Page.html

Sample input:

ExtractingEmails ( "3 @ddress to extract
-------------

ExtractingEmails ( "*j.og@domain.com+address@mail.com*fr@com.net+@other*" ; "* + " )

Sample output:

j.og@domain.com
address@mail.com
fr@com.net

-------------

j.og@domain.com
address@mail.com
fr@com.net

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

// ExtractingEmails ( TheText ; Separator ) v1.1
//
//              to extract eM@ils 
// ExtractingEmails is not recursive function
//
// -> No to verify address eMail, just extract what there is before and after the @ with the predefined separators.
/*
//---------------------------------- Parameter

• TheText : Texte or List we contains eMail
• Separator : add your separator words, always separator followed by a space [sep][space][sep][space] etc
     - by défault : # & 	 ^ < \ > ¶ ( ! ) ; , : " " ”" “" ' ‘ ’ « » ? / ! [ ]
                                  ^
                                   l_ "tab"
 
//---------------------------------- Example

ExtractingEmails ( "3 @ddress to extract <j.og@domain.com and [address@mail.com; fr@com.net, and @other" ; "" )
       > Result : j.og@domain.com¶address@mail.com¶fr@com.net
ExtractingEmails ( "*j.og@domain.com+address@mail.com*fr@com.net+@other*" ; "* + " )
       > Result : j.og@domain.com¶address@mail.com¶fr@com.net
*/
//————————--—---------------------——————-————
// @ Agnès -   November 2014- BugReport 
// Substitute ( filemaker§tictac.fr ; § ; @ )
//—————---------------------———————-———-————-

Let ([

$Txt = TheText ;
S = "# & 	 ^ < \\\ > \¶ ( ! ) ; , : \"\" \”\" \“\" \' \‘ \’ « » ? / ! [ ] " & Separator ;
Cean = "#" & Evaluate ( "Substitute ( $Txt ; [\"" & Substitute ( S ; [ "@" & " " ; "" ] ; [ " " ; "\" ; \" \"] ; [\"" ]) & " \" ; \"\¶#\"])" ) ;
//----------------------------------------------------- End Clean

R = Substitute ( Cean ; [ "@¶#" ; "#" ] ; ["#@"; "#" ] ; [ "@" ; "@¶@" ] ) ;
Fb = Substitute (  R ; ["¶" ;  "#¶"]  ; [ "@#" ; "@" ] )  & "#" ;
D = FilterValues ( R ; Substitute ( R ; "#" ; ""  ) )
];
Substitute ( FilterValues ( R ; Fb & ¶ & D ) & "[end]" ; [ "#¶" ; "" ] ; [ "¶[end]" ; "" ] ; [ "#" ; "" ] ; [ "@¶@" ; "@" ] ; [ ".¶" ; ¶ ] )
)

ExtractingEmails ( TheText ; Separator ) v1.1
//----------------------------------------------
to extract eM@ils
ExtractingEmails it is not a recursive function

-> No to verify address eMail, just extract what there is before and after the @ with the predefined separators.

//---------------------------------- Parameter

• TheText : Texte or List we contains eMail
• Separator : add your separator words, always separator followed by a space [sep][space][sep][space] etc
- by défault : # & ^ < \ > ¶ ( ! ) ; , : " " ”" “" ' ‘ ’ « » ? / ! [ ]
^
l_ "tab"

Comments

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

ExtractingEmails ( TheText ; Separator )

Comments

Support this website.

Support this website.