FileMaker Pro Custom Functions

/* Name: AddConstantToString( string; fillchar; posit ; direction; iter) History: Created by Martti Tumanto, Martinova Oy www.martinova.fi Creation Date: 4.9.2009 Last Modified Date: 4.9.2009 Purpose: Formats string by adding given "fillchar" between each nth position, given by param "posit", Parameters: string : any text string fillchar : sting to be added , often space: " " posit : number of chars/digits between "fillchars" direction : start from Right(default) or Left iter : number of iteration, initially 0 (just to make easier to handle the recursion) Result : String including fillchar after "posit" chars Examples: AddConstantToString (123456789 ; "-" ; 5; "Right";0 ) --> 1234-56789 AddConstantToString (123456789 ; " " ; 5; "Left";0 ) --> 12345 6789 Requires Other Custom Functions: None Other Notes: Used to group long digits/charstrings ( f.eg. Finnish Bankreference Number) more comfortable to read Options: None */ Let ( [ dir = Case (Lower(Left(direction; 1)) = "l" ; "L" ; ""); dir1 = Case (dir = "l" ; Left( string; 1); Right( string ; 1)) ; char = Mod (iter ; posit+1) ≠ 0 ; iter = iter + 1 ; stringout = Case (iter = 1 ; "" ; char ; dir1 ; fillchar ); l = Length ( string) ; remaining = Case (dir = "l" ; Right (string ; l - char) ; Left (string ; l - char) ) ; continue = not IsEmpty(remaining) ] ; If (continue; If ( dir = "l" ; stringout & AddConstantToString (remaining ; fillchar ; posit ; direction ; iter ) ; AddConstantToString (remaining ; fillchar ; posit ; direction ; iter ) & stringout ) ; stringout) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.