FileMaker Pro Custom Functions

/* cscf_CSStoFMText (text) by Christopher Gauntt, Cordega Solutions, www.cordega.com Oct. 09, 2008 This takes CSS styled text and converts it back to FileMaker Pro formatting. The Hex to RGB converter calc was supplied by Klemens Müller, www.klemenso.de, 05.07.2006 Note: I don't have the fontScript variable figured out yet. I couldn't find anything in CSS documentation that seemed equivalent. But the variable is there in case someone else figures it out. */ Let ([ // Grabs SPAN string $_SpanStart = Position ( text ; "<SPAN" ; 0 ; 1 ) ; $_SpanEnd = Position ( text ; ">" ; $_SpanStart ; 1 ) +1 ; $_Span = Middle ( text ; $_SpanStart ; $_SpanEnd - $_SpanStart ) // Grabs Full SPAN string between SPAN tags ; $_FullSpanStart = Position ( text ; "<SPAN" ; 0 ; 1 ) ; $_FullSpanEnd = Position ( text ; "</SPAN>" ; $_FullSpanStart ; 1 ) + 7 ; $_FullSpan = Middle ( text ; $_FullSpanStart ; $_FullSpanEnd - $_FullSpanStart ) // Grabs only text between span tags ; $_TextStart = Position ( $_FullSpan ; ">" ; 0; 1 )+1 ; $_TextEnd = Position ( $_FullSpan ; "</SPAN>" ; 0; 1 ) ; $_TextSpan = Middle ( $_FullSpan ; $_TextStart ; $_TextEnd - $_TextStart ) // swaps out breaks with FileMaker return markers ; $_Text = Substitute ( $_TextSpan ; "<BR>" ; "¶" ) // Collects Text Styles ; $_styles = If ( PatternCount ( $_Span ; "Bold" ) = 1 ; "+Bold" ; "" ) & If ( PatternCount ( $_Span ; "Italic" ) = 1 ; "+Italic" ; "" ) & If ( PatternCount ( $_Span ; "Underline" ) = 1 ; "+Underline" ; "" ) & If ( PatternCount ( $_Span ; "Condense" ) = 1 ; "+Condense" ; "" ) & If ( PatternCount ( $_Span ; "Extend" ) = 1 ; "+Extend" ; "" ) & If ( PatternCount ( $_Span ; "Strikethrough" ) = 1 ; "+Strikethrough" ; "" ) & If ( PatternCount ( $_Span ; "SmallCaps" ) = 1 ; "+SmallCaps" ; "" ) & If ( PatternCount ( $_Span ; "Superscript" ) = 1 ; "+Superscript" ; "" ) & If ( PatternCount ( $_Span ; "Subscript" ) = 1 ; "+Subscript" ; "" ) & If ( PatternCount ( $_Span ; "Uppercase" ) = 1 ; "+Uppercase" ; "" ) & If ( PatternCount ( $_Span ; "Lowercase" ) = 1 ; "+Lowercase" ; "" ) & If ( PatternCount ( $_Span ; "Titlecase" ) = 1 ; "+Titlecase" ; "" ) & If ( PatternCount ( $_Span ; "WordUnderline" ) = 1 ; "+WordUnderline" ; "" ) & If ( PatternCount ( $_Span ; "DoubleUnderline" ) = 1 ; "+DoubleUnderline" ; "" ) ; $_stylesTrue = If ( IsEmpty ($_styles) ; "plain" ; Right ($_styles ; Length ($_styles) -1) ) // Parses out font size ; $_FontSize = If ( PatternCount ($_Span ; "font-size") = 0 ; "" ; Let ( [ $_SizeStart = Position ( $_Span; "font-size"; 0; 1) ; $_SizeStop = Position ( $_Span; "px"; $_SizeStart; 1) ; $_SizeString = Middle ( $_Span; $_SizeStart ; $_SizeStop - $_SizeStart + 1 ) ]; Filter ( $_SizeString; "0123456789") ) ) // Parses out font-family ; $_FontType = If ( PatternCount ($_Span ; "font-family") = 0 ; "" ; Let ( [ $_FontStart = Position ( $_Span; "font-family"; 0; 1) ; $_FontStartTrue = Position ( $_Span; "'"; $_FontStart; 1) ; $_FontStop = Position ( $_Span; "'"; $_FontStart; 2) ]; Substitute ( Middle ( $_Span; $_FontStartTrue ; $_FontStop - $_FontStartTrue + 1 ) ; "'" ; "\"" )) ) //Converts Font Color = courtesy of Klemens Müller ; $_FontColor = If ( PatternCount ($_Span ; "color:") = 0 ; "" ; Let ( [ $_colorStart = Position ( $_Span; "#"; 0; 1) ; $_colorHex = Middle ( $_Span; $_colorStart + 1 ; 6 ) ; hex = Substitute ( $_colorHex ; [" " ; ""];["#";""] ) ; range = "0123456789ABCDEF" ; s = "; " ; r1 = Middle( hex ; 1 ; 1 ) ; r2 = Middle( hex ; 2 ; 1 ) ; g1 = Middle( hex ; 3 ; 1 ) ; g2 = Middle( hex ; 4 ; 1 ) ; b1 = Middle( hex ; 5 ; 1 ) ; b2 = Middle( hex ; 6 ; 1 ) ; r1 = Position( range ; r1 ; 1 ; 1 ) - 1 ; r2 = Position( range ; r2 ; 1 ; 1 ) - 1 ; g1 = Position( range ; g1 ; 1 ; 1 ) - 1 ; g2 = Position( range ; g2 ; 1 ; 1 ) - 1 ; b1 = Position( range ; b1 ; 1 ; 1 ) - 1 ; b2 = Position( range ; b2 ; 1 ; 1 ) - 1 ; red = r1 * 16 + r2 ; green = g1 * 16 + g2 ; blue = b1 * 16 + b2 ]; "RGB ( " & red & s & green & s & blue & ")" ) ) // converts the text string between the span tags into the filemaker conversions from the above ; $_ConvertedText = TextColor( TextFont ( TextSize ( TextStyleAdd ( $_Text ; Evaluate ($_stylesTrue) ) ; $_FontSize ) ; Evaluate ($_FontType) ; $_FontScript ) ; Evaluate ($_FontColor) ) // replaces the span string with the converted string. ; $_NewText = Substitute ( text ; $_FullSpan ; $_ConvertedText ) ]; // returns converted text, or looks for more spans to swap out. If (PatternCount ( $_NewText ; "<SPAN STYLE" ) > 0 ; cscf_CSStoFMText ( $_NewText ) ; $_NewText) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.