FileMaker Pro Custom Functions

/*AllTextCombinations(theText; stackDepth) returns all sequential character combinations for theText by recursively calling itself with one character less of theText; stackDepth should be set to 0 when used, or whatever the current stack depth is if called from another custom function. When theText is longer than (15 - stackDepth) characters long [,longer than 15 characters if called with stackDepth = 0], AllTextCombinations() will evaluate successively smaller blocks of theText independently of each other; with a beginning stackDepth = 0, AllTextCombinations() will only evaluate for the first 105 characters in theText. Should the controlled stack reach it's limit (stackDepth > 14), it will simply return theText and theText without it's right-most and left-most characters.*/ Case( //if theText is trivial (one-character long or shorter)... Length( theText) < 2; //just return theText theText; //if the function call stack is full... stackDepth > 14; //return theText and theText without it's right-most and left-most characters theText & "¶" & Left( theText; Length( theText) - 1) & "¶" & Right( theText; Length( theText) - 1); //if theText is too long... Length( theText) > 15 - stackDepth; theText & "¶" & //evaluate the first acceptable block... AllTextCombinations( Left( theText; 14 - stackDepth); stackDepth + 1 ) & "¶" & //evaluate and possibly subdivide the remaining block AllTextCombinations( Right( theText; Length( theText) - 14 + stackDepth); stackDepth + 1 ); /*if theText is not trivial, the function call stack is not full, and theText is not too long...*/ theText //return theText... & "¶" & AllTextCombinations( Left( theText; Length( theText) - 1); stackDepth + 1 ) //return all combinations of theText less the right-most character... & "¶" & AllTextCombinations( Right( theText; Length( theText) - 1); stackDepth + 1 ) //...and return all combinations of theText less the left-most character )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.