FileMaker Pro Custom Functions

/* Format: LineWrap ( text ; margin ) This function uses a recursive routine to re-format a supplied block of text so that it falls within a specified margin width. It ensures that there is a line break (¶) before the specified number of characters is reached on each line but it keeps words together.
 If the input text contains no carriage returns, they will be inserted at the appropriate positions so that the text wraps within the defined text block size. Any number of line breaks (¶) in the original text are preserved for the output. The results may vary depending on the font used: proportional-spaced fonts (without fixed character width) may exhibit a more variable result than mono-spaced fonts. I use this function to break text into a specified length of lines in order to afterwards create a tree column layout with the CF "ColumWrap" that can also be found on briandunning.com. The idea and the basic setup comes from the CF "Abscind" by Ray Cologon, NightWing Enterprises. I made it easier and modifyed it, so it calculates correctly and also supports multiple line breaks. Martin D. Brunner - www.mdb.bz */ Let ([ S1 = Substitute ( text; ["¶"; "‡"] ) ; P1 = Position ( S1; " "; margin; -1 ) ; P2 = Position ( S1; "‡"; margin; -1 ) ; P3 = Case ( P2; P2 ; P1 ) ; Result = If ( Length ( text ) > margin and margin > Length ( LeftWords ( text; 1 )); Left ( S1; P3 - 1 ) & "¶" & LineWrap ( Right ( S1; Length ( S1 ) - P3 ) ; margin ) ; text ) ]; Substitute ( Result; ["‡"; "¶"] ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.