FileMaker Pro Custom Functions

/* a customFunction for hiliting text in a field with following advantages: - not case sensitive - skipped/disordered words in a search string originally developed by Felix Hausberner, Germany textstyle added by Martin D. Brunner, Switzerland syntax: cfHiliteText( text; searchText; colorRGB ; textStyle ) calling: cfHiliteText("This is no JavaScript"; "java is"; RGB( 255 ; 0; 0 ) ; bold) result: "This {is} no {Java}Script" where values in curly braces are red and bold. */ Let( [ //------ definition ----------------- vCnt = WordCount ( searchText ) ; vWord = LeftWords ( searchText; 1 ) ; vWordCs = Proper ( vWord ) ; vWordUp = Upper ( vWord ) ; vWordLw = Lower ( vWord ) ; //----- core ----------------------- vNew = Substitute( text ; [ vWord; TextStyleAdd ( TextColor ( vWord; colorRGB ) ; TextStyle ) ] ; [ vWordCs; TextStyleAdd ( TextColor ( vWordCs; colorRGB ) ; TextStyle ) ] ; [ vWordUp; TextStyleAdd ( TextColor ( vWordUp; colorRGB ) ; TextStyle ) ] ; [ vWordLw; TextStyleAdd ( TextColor ( vWordLw; colorRGB ) ; TextStyle ) ] ); vFinal = If ( vCnt>0; cfHiliteText( vNew; RightWords ( searchText; vCnt-1 ) ; colorRGB ; textStyle ) ; vNew ) ]; vFinal )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.