Shopping Cart

Free Newsletter
Signup

Contact me | vCard

Brian on CNN

Brian on CBS Radio

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

List | Show Random | Upload | Add This to Your Site

Metaphone ( text ; option )

Rate this function:

Average rating: 3.4 (9 votes)
Discuss this Custom Function

Craig K. Gowens,

Returns a phonetic key of a given word

Sample Input:

Metaphone ( Johnson ; 0 )
and
Metaphone ( Jansen ; 0 )

Sample Output:

JNSN

Let ( [ paddedtext = Substitute ( text & " "; ["'" ; ""] ; ["’" ; ""] ; ["-" ; ""] ; ["ñ" ; "n"] ; ["ç" ; "c"] ; ["ä" ; "a"] ; ["ë" ; "e"] ; ["ï" ; "i"] ; ["ö" ; "o"] ; ["ü" ; "u"] ; ["á" ; "a"] ; ["é" ; "e"] ; ["í" ; "i"] ; ["ó" ; "o"] ; ["ú" ; "u"] ) ; chars = Length ( paddedtext ) ; string0 = Upper (paddedtext) ; string1 = Case ( Left ( string0 ; 2 ) = "KN" ; "N" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "PF" ; "F" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "PN" ; "N" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "WR" ; "R" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "WH" ; "W" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "GH" ; "G" & Right ( string0 ; chars - 2) ; Left ( string0 ; 2 ) = "GN" ; "N" & Right ( string0 ; chars - 2) ; Left ( string0 ; 3 ) = "TCH" ; "CH" & Right ( string0 ; chars - 3) ; Right ( string0 ; 3 ) = "MB " ; Left ( string0 ; chars - 3) & "M " ; Right ( string0 ; 3 ) = "GN " ; Left ( string0 ; chars - 3) & "N " ; Right ( string0 ; 4 ) = "GNS " ; Left ( string0 ; chars - 4) & "NS " ; Right ( string0 ; 5 ) = "GNED " ; Left ( string0 ; chars - 5) & "NED " ; Right ( string0 ; 5 ) = "WITZ " ; Left ( string0 ; chars - 5) & "W1TS " ; Right ( string0 ; 5 ) = "WICZ " ; Left ( string0 ; chars - 5) & "W1TS " ; Right ( string0 ; 6 ) = "EWSKI " ; Left ( string0 ; chars - 6) & "1W1SK " ; Right ( string0 ; 6 ) = "OWSKI " ; Left ( string0 ; chars - 6) & "1W1SK " ; Right ( string0 ; 6 ) = "EWSKY " ; Left ( string0 ; chars - 6) & "1W1SK " ; Right ( string0 ; 6 ) = "OWSKY " ; Left ( string0 ; chars - 6) & "1W1SK " ; Right ( string0 ; 5 ) = "EAUX " ; Left ( string0 ; chars - 5) & "1 " ; Right ( string0 ; 5 ) = "IAUX " ; Left ( string0 ; chars - 5) & "1 " ; Right ( string0 ; 4 ) = "AUX " ; Left ( string0 ; chars - 4) & "1 " ; Right ( string0 ; 4 ) = "OUX " ; Left ( string0 ; chars - 4) & "1 " ; string0 ) ; string2 = Substitute ( string1 ; ["X" ; "9"] ; ["CIA" ; "X"] ; ["SIA" ; "X"] ; ["TIA" ; "X"] ; ["SIO" ; "X"] ; ["TION" ; "XN"] ; ["DGE" ; "J"] ; ["DGY" ; "J"] ; ["DGI" ; "J"] ; ["SCHL" ; "XL"] ; ["SCHM" ; "XM"] ; ["SCHN" ; "XN"] ; ["SCHW" ; "XW"] ; ["SCH" ; "SK"] ; ["CHAE" ; "K1"] ; ["CHR" ; "KR"] ; ["TCH" ; "X"] ; ["CH" ; "X"] ; ["SH" ; "X"] ; ["TH" ; "0"] ; ["CI" ; "S"] ; ["CE" ; "S"] ; ["CY" ; "S"] ; ["GGI" ; "K"] ; ["GGE" ; "K"] ; ["GGY" ; "K"] ; ["INGHA" ; "IN1HA"] ; ["INGHE" ; "IN1HE"] ; ["INGHI" ; "IN1HI"] ; ["INGHO" ; "IN1HO"] ; ["INGHU" ; "IN1HU"] ; ["GHI" ; "J"] ; ["GI" ; "J"] ; ["GE" ; "J"] ; ["GY" ; "J"] ; ["PH" ; "F"] ; ["CK" ; "K"]; ["CAUGH" ; "C1F"]; ["COUGH" ; "C1F"]; ["GAUGH" ; "G1F"]; ["GOUGH" ; "G1F"]; ["LAUGH" ; "L1F"]; ["LOUGH" ; "L1F"]; ["RAUGH" ; "R1F"]; ["BOROUGH" ; "B1R1"] ; ["BROUGH" ; "BR1"] ; ["BUROUGH" ; "B1R1"] ; ["BURROUGH" ; "B1R1"] ; ["ROUGH" ; "R1F"]; ["TAUGH" ; "T1F"]; ["TOUGH" ; "T1F"]; ["GHT" ; "T"] ; ["INGB" ; "1N1B"] ; ["INGC" ; "1N1C"] ; ["INGD" ; "1N1D"] ; ["INGF" ; "1N1F"] ; ["INGJ" ; "1N1J"] ; ["INGK" ; "1N1K"] ; ["INGM" ; "1N1M"] ; ["INGN" ; "1N1N"] ; ["INGP" ; "1N1P"] ; ["INGR" ; "1N1R"] ; ["INGS" ; "1N1S"] ; ["INGT" ; "1N1T"] ; ["INGV" ; "1N1V"] ; ["INGW" ; "1N1W"] ; ["INGZ" ; "1N1Z"] ; ["GH" ; ""] ) ; string3 = Substitute ( string2 ; ["BB" ; "B"] ; ["MCC" ; "MC C"] ; ["CC" ; "C"] ; ["DD" ; "D"] ; ["FF" ; "F"] ; ["GG" ; "G"] ; ["HH" ; "H"] ; ["JJ" ; "J"] ; ["KK" ; "K"] ; ["LL" ; "L"] ; ["MM" ; "M"] ; ["NN" ; "N"] ; ["PP" ; "P"] ; ["QQ" ; "Q"] ; ["RR" ; "R"] ; ["SS" ; "S"] ; ["TT" ; "T"] ; ["VV" ; "V"] ; ["WW" ; "W"] ; ["XX" ; "X"] ; ["YY" ; "Y"] ; ["ZZ" ; "Z"] ) ; string4 = Substitute ( string3 ; ["A" ; "1"] ; ["E" ; "1"] ; ["I" ; "1"] ; ["O" ; "1"] ; ["U" ; "1"] ) ; string5 = Substitute ( string4 ; ["Q" ; "K"] ; ["V" ; "F"] ; ["9" ; "KS"] ; ["Z" ; "S"] ) ; string6 = Substitute ( string5 ; ["C" ; "K"] ; ["DT" ; "T"] ; ["D" ; "T"] ; ["G" ; "K"] ) ; string7 = Substitute ( string6 ; ["WB" ; "B"] ; ["WC" ; "C"] ; ["WD" ; "D"] ; ["WF" ; "F"] ; ["WG" ; "G"] ; ["WH" ; "H"] ; ["WJ" ; "J"] ; ["WK" ; "K"] ; ["WL" ; "L"] ; ["WM" ; "M"] ; ["WN" ; "N"] ; ["WP" ; "P"] ; ["WQ" ; "Q"] ; ["WR" ; "R"] ; ["WS" ; "S"] ; ["WT" ; "T"] ; ["WV" ; "V"] ; ["WX" ; "X"] ; ["WZ" ; "Z"] ; ["W0" ; "0"] ; ["W " ; ""] ; ["YB" ; "B"] ; ["YC" ; "C"] ; ["YD" ; "D"] ; ["YF" ; "F"] ; ["YG" ; "G"] ; ["YH" ; "H"] ; ["YJ" ; "J"] ; ["YK" ; "K"] ; ["YL" ; "L"] ; ["YM" ; "M"] ; ["YN" ; "N"] ; ["YP" ; "P"] ; ["YQ" ; "Q"] ; ["YR" ; "R"] ; ["YS" ; "S"] ; ["YT" ; "T"] ; ["YV" ; "V"] ; ["YX" ; "X"] ; ["YZ" ; "Z"] ; ["Y0" ; "0"] ; ["Y " ; ""] ; ["1HB" ; "1B"] ; ["1HC" ; "1C"] ; ["1HD" ; "1D"] ; ["1HF" ; "1F"] ; ["1HG" ; "1G"] ; ["1HJ" ; "1J"] ; ["1HK" ; "1K"] ; ["1HL" ; "1L"] ; ["1HM" ; "1M"] ; ["1HN" ; "1N"] ; ["1HP" ; "1P"] ; ["1HQ" ; "1Q"] ; ["1HR" ; "1R"] ; ["1HS" ; "1S"] ; ["1HT" ; "1T"] ; ["1HV" ; "1V"] ; ["1HW" ; "1W"] ; ["1HX" ; "1X"] ; ["1HZ" ; "1Z"] ) ; string8 = If ( Left ( string7 ; 1 ) = "1" ; Left ( Upper(text) ; 1 ) & string7 ; string7 ) ; string9 = Substitute ( string8 ; ["1" ; ""] ; [" " ; ""] ) ] ; Choose(option ; Trim( string9 ); Left(Trim( string9 ) ; 1) ; Left(Trim( string9 ) ; 2) ; Left(Trim( string9 ) ; 3) ; Left(Trim( string9 ) ; 4) ; Left(Trim( string9 ) ; 5) ; Left(Trim( string9 ) ; 6) ))
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

Description:

This function is a FileMaker implementation based on the Metaphone and DoubleMetaphone algorithms developed by Lawrence Philips (see the the December 1990 issue of the journal <i>Computer Language</i> as a primer). It is based primarily on the original Metaphone algorithm but contains some of the pronunciation exceptions from DoubleMetaphone. Various other implementations in C/C++, Java and VB can be found by Yahoo!ing or Googling "Metaphone".

Metaphone is an excellent choice for generating a phonetic index for searches based on pronunciation, spellchecking suggestions for mispelt words or as a key for grouping similar sounding words together.

The option flag gives you the choice of number of characters to return. For zero, the function returns the entire string. For any integer 1-6, the function will returns that number of characters. For example Metaphone(Vanlandingham; 0) returns FNLNTNHM, but Metaphone(Vanlandingham; 4 )returns FNLN.

I am open to and interested in comments and suggestions for improvements to the algorithm. Please feel free to email me at ckgowens at austin dot rr dot com.

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

This is my Custom Function and I want to edit it

Discuss:

There are no comments yet. Be the first to post a comment about this Custom Function! Please try to keep it brief & to the point. Anyone can post:

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	Bin2Hex ( binary )
	(Sat, Mar 13, 10:08pm)
2.	SlideView (text)
	(Sat, Mar 13, 8:40pm)
3.	HashFNV1a64 ( text ; empty )
	(Sat, Mar 13, 6:23pm)
4.	HashFNV1a32 ( text ; empty )
	(Sat, Mar 13, 5:55pm)
5.	XORbin( bin0 ; bin1 ; "" )
	(Sat, Mar 13, 4:35pm)
6.	cfMatch ( value_to_test; match_Value; match_operator )
	(Thu, Mar 11, 10:45pm)
7.	DeleteMiddleText ( Value ; StringStart ; StringEnd )
	(Wed, Mar 10, 8:27am)
8.	Codify( theText; code_option )
	(Sun, Mar 07, 8:17pm)


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Description:

Discuss:

Let's Meet in Person