FileMaker Pro Custom Functions

/* cannot take ranges removes funny quotes and subs for straight quotes - double and single [probably shouldn't be part of this function!] performs a number of substitutions to expand create filter text if it finds the following in filter control parameter "AZazƒ09etc" AZ: A to Z az: a to z 09: 0 to 9 ƒ: foreign vowels etc ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ - either in or out, applied to CAPS if 'AZ', and lower if 'az' */ Let ( [ // custom definitions here add = "\"'-#/.,()AZazƒ09 "; // this is for my standard one line address data fields, covering situations like: c/o, 36/D, 1/9 apartment #5 no. 5, street 4 (alt name) maths = "another charset - u get the picture?"; AZazƒ09etc = Substitute ( AZazƒ09etc ; [ "add" ; add ] ; [ "maths" ; maths ] ) ; // end of custom definitions text = Substitute ( text ; [ "`" ; "'"]; [ "\“" ; "\""]; [ "\”" ; "\""]; [ "‘" ; "'"]; [ "’" ; "'"] ) ; // clean angled quotes up // FOREIGN HANDLER -- if you are not keeping ƒoreign chars then default behaviour is to convert ƒoreign chars to equivalent AZaz chars ƒ = PatternCount ( AZazƒ09etc; "ƒ" ) ; text = If ( ƒ ; text ; Substitute ( text ; [ "À" ; "A" ] ; [ "Á" ; "A" ] ; [ "Â" ; "A" ] ; [ "Ã" ; "A" ] ; [ "Ä" ; "A" ] ; [ "Å" ; "A" ] ; [ "Æ" ; "AE" ] ; [ "Ç" ; "C" ] ; [ "È" ; "E" ] ; [ "É" ; "E" ] ; [ "Ê" ; "E" ] ; [ "Ë" ; "E" ] ; [ "Ì" ; "I" ] ; [ "Í" ; "I" ] ; [ "Î" ; "I" ] ; [ "Ï" ; "I" ] ; [ "Ð" ; "D" ] ; [ "Ñ" ; "N" ] ; [ "Ò" ; "O" ] ; [ "Ó" ; "O" ] ; [ "Ô" ; "O" ] ; [ "Õ" ; "O" ] ; [ "Ö" ; "O" ] ; [ "Ø" ; "O" ] ; [ "Ù" ; "U" ] ; [ "Ú" ; "U" ] ; [ "Û" ; "U" ] ; [ "Ü" ; "U" ] ; [ "Ý" ; "Y" ] ; [ "Þ" ; "P" ] ; [ "ß" ; "s" ] ; [ "à" ; "a" ] ; [ "á" ; "a" ] ; [ "â" ; "a" ] ; [ "ã" ; "a" ] ; [ "ä" ; "a" ] ; [ "å" ; "a" ] ; [ "æ" ; "ae" ] ; [ "ç" ; "c" ] ; [ "è" ; "e" ] ; [ "é" ; "e" ] ; [ "ê" ; "e" ] ; [ "ë" ; "e" ] ; [ "ì" ; "i" ] ; [ "í" ; "i" ] ; [ "î" ; "i" ] ; [ "ï" ; "i" ] ; [ "ð" ; "d" ] ; [ "ñ" ; "n" ] ; [ "ò" ; "o" ] ; [ "ó" ; "o" ] ; [ "ô" ; "o" ] ; [ "õ" ; "o" ] ; [ "ö" ; "o" ]; [ "ø" ; "o" ] ; [ "ù" ; "u" ] ; [ "ú" ; "u" ] ; [ "û" ; "u" ] ; [ "ü" ; "u" ] ; [ "ý" ; "y" ] ; [ "þ" ; "p" ] ; [ "ÿ" ; "y" ] )); ft = Substitute ( AZazƒ09etc; [ "AZ" ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & If ( ƒ; "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝ" ) ]; [ "az" ; "abcdefghijklmnopqrstuvwxyz" & If ( ƒ ; "Þßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ" ) ]; [ "09" ; "0123456789" ] ) ] ; Filter ( text ; ft ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.