FileMaker Pro Custom Functions

/* 2008-08-14: Re-uploaded as the website was mangling the entities */ /* Overview: --------- Wrap any bold text in the input text with square brackets, and italic text with curly: ‘plain [bold] {italic} [{both}]’ Example: -------- If a field contains ‘plain’ in plain text, followed by ‘bold’ in bold, ‘italic’ in italic, and ‘both’ with bold + italic (spaces between the words are plain), GetAsCSS in v9 returns: <SPAN STYLE= "" >plain </SPAN><SPAN STYLE= "font-weight: bold;" >bold</SPAN><SPAN STYLE= "" > </SPAN><SPAN STYLE= "font-style:italic;" >italic</SPAN><SPAN STYLE= "" > </SPAN><SPAN STYLE= "font-weight: bold;font-style:italic;" >both</SPAN> v8 and 8.5 were slightly different with carriage returns and a blank preceding them: <SPAN STYLE= "" >plain </SPAN> <SPAN STYLE= "font-weight: bold;" >bold</SPAN> <SPAN STYLE= "" > </SPAN> <SPAN STYLE= "font-style:italic;" >italic</SPAN> <SPAN STYLE= "" > </SPAN> <SPAN STYLE= "font-weight: bold;font-style:italic;" >both</SPAN> BoldItalicEncode replaces each starting SPAN with a ‘let’ and whole lot of substitution code, and the ending SPAN with a close quote. This gives us output similar to the Enigma machine (improved here for readability): Let( [ w="\"\" >PLAIN "; <- formatting info & actual text p=Position(w;">";1;1); <- position of the ‘>’ s=Left(w;p-2); <- style portion of the SPAN t=Right(w;Length(w)-p); <- text portion of the SPAN b=PatternCount(s;"font-weight: bold"); <- flag for bold (0=no, 1=yes) i=PatternCount(s;"font-style:italic") <- ditto italic ]; Choose(2*b+i;"";"{";"[";"[{")& <- plain=0, italic=1, bold=2, BI=3 t& Choose(2*b+i;"";"}";"]";"}]"))& Let( [ w="\"font-weight: bold;\" >BOLD"; p=Position(w;">";1;1); s=Left(w;p-2); t=Right(w;Length(w)-p); b=PatternCount(s;"font-weight: bold"); i=PatternCount(s;"font-style:italic") ]; Choose(2*b+i;"";"{";"[";"[{")& t& Choose(2*b+i;"";"}";"]";"}]"))& […] After that we execute the whole mess and remove some encoded characters, resulting in: plain [bold] {italic} [{both}] Author: ------- Mind-job of using ‘evaluate’ from Rob Weaver’s RTF Text Tags Example 2006-11-25 Tom Robinson <http://www.tomrobinson.co.nz/> 2007-09-20 Fix when running under v9 (thanks to Orlando Antonio Sánchez for bringing to my attention and initial investigation) */ Substitute( /* 1. Convert the text to CSS 2. Prepare for execute by encoding quotes and convert any fancy brackets which already appear in text to normal brackets 3. Each line generated has a trailing ampersand (ready for the next line), so at the end we add a null string */ /* The code we’re generating uses: w=whole text p=position of ‘>’ s=style portion of text t=text portion of text b=bold flag i=italic flag */ Evaluate(Substitute(GetAsCSS(Text); ["\"";"\\\""]; ["[";"("]; ["]";")"]; ["{";"("]; ["}";")"]; ["<SPAN STYLE= ";"Let([w=\""]; ["</SPAN>";"\"; p=Position(w;\">\";1;1); s=Left(w;p-2); t=Right(w;Length(w)-p); b=PatternCount(s;\"font-weight: bold\"); i=PatternCount(s;\"font-style:italic\")]; Choose(2*b+i;\"\";\"{\";\"[\";\"[{\")&t&Choose(2*b+i;\"\";\"}\";\"]\";\"}]\"))&"])&"\"\""); /* Now revert the other stuff we didn’t actually want encoded (list will be bigger than this, stick to what’s common) */ ["<BR>";"¶"]; ["&amp;";"&"]; ["&eacute;";"é"]; ["&gt;";">"]; ["&hellip;";"…"]; ["&iuml;";"ï"]; ["&lsquo;";"‘"]; ["&ldquo;";"\“"]; ["&lt;";"<"]; ["&mdash;";"—"]; ["&ndash;";"–"]; ["&quot;";"\""]; ["&rsquo;";"’"]; ["&rdquo;";"\”"] )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.