FileMaker Pro Custom Functions

/* DigitSequences ( text ; numberOfDigits ) Custom Function recursive Extracts all the digit sequences composed of numberOfDigits found in a string of text */ Let([ adj = Substitute ( text ; " " ; "§§§" ) ; adj = TrimAll ( Substitute ( TrimAll ( KanjiNumeral ( adj ) ; 1 ; 1 ) ; [ "一" ; 1 ] ; [ "二" ; 2 ] ; [ "三" ; 3 ] ; [ "四" ; 4 ] ; [ "五" ; 5 ] ; [ "六" ; 6 ] ; [ "七" ; 7 ] ; [ "八" ; 8 ] ; [ "九" ; 9 ] ; [ "〇" ; 0 ] ; [ "§§§" ; " " ] ) ; 1 ; 1 ) ; // puts a space between digits and whichever other character word = LeftWords ( adj ; 1 ) ; sequence = If ( Filter ( word ; 1234567890 ) = word and Length ( word ) = numberOfDigits ; word ) ; rest = RightWords ( adj ; WordCount ( adj ) - 1 ) ]; Case( WordCount ( adj ) ; List ( sequence ; DigitSequences ( rest ; numberOfDigits ) ) ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.