名称匹配的一个大问题是错误的倾向。有许多不同的方式，人们拼写相同的名字，打字错误，误读了另一个人说的话。有许多方法可以免费形式的语言数据被破坏。当您需要搜索/匹配不良数据时，会导致许多头疼。

有很多不同的方法来解决它。像Levenshtein算法一样，它计算出使一个字符串匹配另一个字符串需要进行多少次编辑。或者检查字符串组成的较小序列的NGram算法，并将它们与一个同义词串的序列进行比较。然后有语音算法根据“声音”如何编码字符串。就像SoundEx或Double Metaphone算法一样。

什么是双重转录？
Double Metaphone是一种语音算法，它采用一个字符串，并产生2个编码，说明如何用口头语言发音。产生两个编码，因为有时可以以多种方式发音。

它用于英文，包含许多关于字符串“声音”的规则。它也试图解释在斯拉夫语，德语，凯尔特语，希腊语，法语，意大利语，西班牙语，中文和其他来源的罗马化词语的英文发音的差异。

它是如何工作的？
该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：什么是双重转录？Double Metaphone是一种语音算法，它采用一个字符串，并产生2个编码，说明如何用口头语言发音。产生两个编码，因为有时可以以多种方式发音。它用于英文，包含许多关于字符串“声音”的规则。它也试图解释在斯拉夫语，德语，凯尔特语，希腊语，法语，意大利语，西班牙语，中文和其他来源的罗马化词语的英文发音的差异。它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：什么是双重转录？Double Metaphone是一种语音算法，它采用一个字符串，并产生2个编码，说明如何用口头语言发音。产生两个编码，因为有时可以以多种方式发音。它用于英文，包含许多关于字符串“声音”的规则。它也试图解释在斯拉夫语，德语，凯尔特语，希腊语，法语，意大利语，西班牙语，中文和其他来源的罗马化词语的英文发音的差异。它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：产生两个编码，因为有时可以以多种方式发音。它用于英文，包含许多关于字符串“声音”的规则。它也试图解释在斯拉夫语，德语，凯尔特语，希腊语，法语，意大利语，西班牙语，中文和其他来源的罗马化词语的英文发音的差异。它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：产生两个编码，因为有时可以以多种方式发音。它用于英文，包含许多关于字符串“声音”的规则。它也试图解释在斯拉夫语，德语，凯尔特语，希腊语，法语，意大利语，西班牙语，中文和其他来源的罗马化词语的英文发音的差异。它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：它是如何工作的？该算法通过查看数百个语音规则来创建语音字符串。它使用的规则的一些例子是：
P和B被编码为相同的声音。除非P之后是H，然后将其编码为F声。
SCI被编码为S声音，而SCO被编码为SK声音。
T和D被编码为相同的声音。除非T之后是H，然后将H编码为由0号表示的θ声音。

该算法产生2个，潜在的，不同的输入字的发音。阈值参数确定每个发音的最大长度。因此，LEFT（输出，阈值）是主要发音，RIGHT（输出，阈值）是潜在的不同发音。因此，当编码产生具有小于阈值的字符的发音时的空格。

该算法被编码为一次编码单个字，并且不处理字符串中的非字母字符。所以这些应该在运行代码之前从字符串中提取出来。在进行任何其他处理之前，将其提取到该函数中。

这是设计。当使用低阈值时，较长的单词将被截断，并可能与较短的单词错误地匹配。例如，阈值为4，“ 我把它作为一个参数，所以用户可以选择使用更大的阈值。VBScript中的示例实现 此实现采用字符串输入以及输入的长度i，并输出每个长度为I的字符串的两个可能的不同语音编码。 例如，调用它将返回，包含空格。 您可以使用它来预先计算表中名称或单词的发音，并将2种不同的语音代码与表中的所有其他语音代码进行比较，以查找类似的名称或单词。我把它作为一个参数，所以用户可以选择使用更大的阈值。VBScript中的示例实现此实现采用字符串输入以及输入的长度i，并输出每个长度为I的字符串的两个可能的不同语音编码。例如，调用它将返回，包含空格。您可以使用它来预先计算表中名称或单词的发音，并将2种不同的语音代码与表中的所有其他语音代码进行比较，以查找类似的名称或单词。VBScript中的示例实现此实现采用字符串输入以及输入的长度i，并输出每个长度为I的字符串的两个可能的不同语音编码。例如，调用它将返回，包含空格。您可以使用它来预先计算表中名称或单词的发音，并将2种不同的语音代码与表中的所有其他语音代码进行比较，以查找类似的名称或单词。VBScript中的示例实现此实现采用字符串输入以及输入的长度i，并输出每个长度为I的字符串的两个可能的不同语音编码。例如，调用它将返回，包含空格。您可以使用它来预先计算表中名称或单词的发音，并将2种不同的语音代码与表中的所有其他语音代码进行比较，以查找类似的名称或单词。

DoubleMetaphone("Smith", 4)SM0 XMT

选项显式MsgBox（DoubleMetaphone（InputBox（“Enter String”），6））功能DoubleMetaphone（strOriginal，intThreshhold）Dim isSlavoGermanic，strPrimary，strSecondary，i，intJump，iBDim intLength，cP，cS，arr，x，intPadisSlavoGermanic = FalseiB = 4intPad = 6x = iBintLength = Len（strOriginal）+ iB - 1strOriginal = UCase（strOriginal）If（InStr（strOriginal，“W”）+ InStr（strOriginal，“K”）+ InStr（strOriginal，“CZ”）+ InStr（strOriginal，“WITZ”））<> 0然后isSlavoGermanic = True万一ReDim arr（intLength + intPad + 1）对于i = 0到iB-1arr（i）= vbTab下一个对于i = iB到intLengtharr（i）= Mid（strOriginal，i-iB + 1,1）下一个对于i = intLength + 1 To UBound（arr）arr（i）= vbTab下一个选择案例（arr（x）＆arr（x + 1））案例“AC”strPrimary =“AKS”strSecondary =“AKS”x = x + 4案例“GN”，“KN”，“PN”，“PS”x = x + 1“HA”，“HE”，“HI”，“HO”，“HU”，“HY”strPrimary =“H”strSecondary =“H”x = x + 2案例“WA”，“WE”，“WI”，“WO”，“WU”，“WY”strPrimary =“A”strSecondary =“F”x = x + 2案例“WH”strPrimary =“A”strSecondary =“A”x = x + 1案例“SM”，“SN”，“SL”，“SW”strPrimary =“S”strSecondary =“X”x = x + 1案例“GY”strPrimary =“K”strSecondary =“J”x = x + 2结束选择如果x = iB那么如果arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“JOSE”如果（x = iB和arr（x + 4）=“”）那么strPrimary =“HS”strSecondary =“HS”x = x + 4万一ElseIf arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）=“SUGAR”strPrimary =“XK”strSecondary =“SK”x = x + 5ElseIf arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）＆arr（x + 5）=“CAESAR”strPrimary =“SSR”strSecondary =“SSR”x = x + 6ElseIf（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）＆arr（x + 5）=“CHARAC”arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）＆arr（x + 5）=“CHARIS”arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“CHOR”或_arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“CHYM”或_arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“CHEM”）和_arr（x）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）<>“CHORE”strPrimary =“K”strSecondary =“K”x = x + 2万一万一如果x = iB那么选择Case arr（x）＆arr（x + 1）＆arr（x + 2）“GES”，“GEP”，“GEB”，“GEL”，“GEY”，“GIB”，“GIL”，“GIN”strPrimary =“K”strSecondary =“J”x = x + 2案例“GHI”strPrimary =“J”strSecondary =“J”x = x + 3案例“AGN”，“EGN”，“IGN”，“OGN”，“UGN”，“UGY”如果不是的话strPrimary =“AKN”strSecondary =“AN”x = x + 3万一结束选择万一如果x = iB那么选择Case arr（x）案例“X”strPrimary =“S”strSecondary =“S”x = x + 1情况“A”，“E”，“I”，“O”，“U”，“Y”strPrimary =“A”strSecondary =“A”x = x + 1案例“J”strPrimary =“J”strSecondary =“A”x = x + 1结束选择万一Do While x <= intLength如果Len（strPrimary）> = intThreshhold Then退出万一intJump = 1cP = arr（x）cS = arr（x）选择Case arr（x）情况“A”，“E”，“I”，“O”，“U”，“Y”cP =“”cS =“”案例“B”cP =“P”cS =“P”案例“Ç”cP =“S”cS =“S”案例“C”如果x> iB + 1和arr（x-2）<>“A”和arr（x-2）<>“E”和arr（x-2）<>“I”和arr（x-2） >“O”和arr（x-2）<>“U”和_arr（x-2）<>“Y”And arr（x-1）＆arr（x + 1）=“AH”And（（arr（x + 2） <>“E”）或_arr（x-2）＆arr（x + 2）＆arr（x + 3）=“BER”或arr（x-2）＆arr（x + 2）＆arr（x + 3）=“MER”然后cP =“K”cS =“K”intJump = 2ElseIf arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“HIA”然后cP =“K”cS =“K”intJump = 4ElseIf arr（x + 1）=“H”然后如果x> iB和arr（x + 2）＆arr（x + 3）=“AE”则cP =“K”cS =“X”intJump = 2（iB + 1）＆iBr（iB + 2）＆arr（iB + 3）=“VAN”或_（iB + 1）＆iB（iB + 2）＆arr（iB + 3）=“VON”或_arr（iB）＆arr（iB + 1）＆arr（iB + 2）=“SCH”或arr（x + 2）=“T”或arr（x + 2）=“S”arr（x-2）＆arr（x-1）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ORHES”arr（x-2）＆arr（x-1）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ARHIT”arr（x-2）＆arr（x-1）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ORHID” （（arr（x-2）=“A”或arr（x-2）=“E”或arr（x-2）=“O”或arr（x-2）=“U”或x =和_（arr（x + 2）=“L”或arr（x + 2）=“R”或arr（x + 2）=“N”或arr（x + 2）=“M” ）=“B”或_arr（x + 2）=“H”或arr（x + 2）=“F”或arr（x + 2）=“V”或arr（x + 2）=“W”或arr（x + =“”））然后cP =“K”cS =“K”intJump = 2其他intJump = 2如果x> iB那么如果arr（iB）＆arr（iB + 1）=“MC”则cP =“K”cS =“K”其他cP =“X”cS =“K”万一其他cP =“X”cS =“X”万一万一ElseIf arr（x + 1）=“Z”And arr（x-2）＆arr（x-1）<>“WI”cP =“S”cS =“X”intJump = 2ElseIf arr（x + 1）＆arr（x + 2）＆arr（x + 2）=“CIA”然后cP =“X”cS =“X”intJump = 3ElseIf arr（x + 1）=“C”而不是（x = iB + 1和arr（iB）=“M”）然后如果（arr（x + 2）=“I”或arr（x + 2）=“E”或arr（x + 2）=“H”）和arr（x + 2）＆arr（x + 3） >“胡”如果arr（x-1）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“UCEE”或_arr（x-1）＆arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“UCES”cP =“KS”cS =“KS”intJump = 3其他cP =“X”cS =“X”intJump = 3万一其他cP =“K”cS =“K”intJump = 2万一ElseIf arr（x + 1）=“K”或arr（x + 1）=“G”或arr（x + 1）=“Q”cP =“K”cS =“K”intJump = 2ElseIf arr（x + 1）=“I”或arr（x + 1）=“E”或arr（x + 1）=“Y”如果arr（x + 1）＆arr（x + 2）=“IO”或arr（x + 1）＆arr（x + 2）=“IE”或arr（x + 1）＆arr（x + 2） =“IA”然后cP =“S”cS =“X”intJump = 2其他cP =“S”cS =“S”intJump = 2万一其他cP =“K”cS =“K”如果arr（x + 1）＆arr（x + 2）=“C”或arr（x + 1）＆arr（x + 2）=“Q”或arr（x + 1）＆arr（x + =“G”然后intJump = 3其他如果（arr（x + 1）=“C”或arr（x + 1）=“K”或arr（x + 1）=“Q”arr（x + 1）＆arr（x + 2）<>“CE”和arr（x + 1）＆arr（x + 2） intJump = 2万一万一万一案例“D”如果arr（x + 1）=“G”则如果arr（x + 2）=“I”或_arr（x + 2）=“E”或_arr（x + 2）=“Y”然后cP =“J”cS =“J”intJump = 3其他cP =“TK”cS =“TK”intJump = 2万一ElseIf arr（x + 1）=“T”然后cP =“T”cS =“T”intJump = 2其他cP =“T”cS =“T”万一案例“G”如果arr（x + 1）=“H”则如果x <> iB和arr（x-1）<>“A”和arr（x-1）<>“E”和arr（x-1）<>“I”_和arr（x-1）<>“O”和arr（x-1）<>“U”And arr（x-1）<>“Y”cP =“K”cS =“K”intJump = 2ElseIf（x> iB + 1 And（arr（x-2）=“B”或arr（x-2）=“H”或arr（x-2）=“D”））（x> iB + 2和（arr（x-3）=“B”或arr（x-3）=“H”或arr（x-3）=“D”））（x> iB + 3和（arr（x-4）=“B”或arr（x-4）=“H”））然后cP =“”cS =“”intJump = 2其他如果x> iB + 2和arr（x-1）=“U”和_（x-3）=“C”或arr（x-3）=“G”或arr（x-3）=“L”或arr（x-3）=“R” ）=“T”）然后cP =“F”cS =“F”intJump = 2ElseIf x> iB和arr（x-1）<>“I”然后cP =“K”cS =“K”intJump = 2其他cP =“”cS =“”万一万一ElseIf arr（x + 1）=“N”然后cS =“KN”intJump = 2如果arr（x + 2）＆arr（x + 3）<>“EY”而不是isSlavoGermanic然后cP =“N”其他cP =“KN”万一ElseIf arr（x + 1）＆arr（x + 2）=“LI”而不是SlavoGermanic然后cP =“KL”cS =“L”intJump = 2ElseIf（arr（x + 1）＆arr（x + 2）=“ER”或arr（x + 1）=“Y”）和_arr（x-1）<>“E”和arr（x-1）<>“I”和_arr（x-1）＆arr（x + 1）<>“RY”和_arr（x-1）＆arr（x + 1）<>“OY”和_（iB + 1）＆iBr（iB + 2）＆iBr（iB + 3）＆arr（iB + 4）＆arr（iB + 5）<>“危险”（iB + 1）＆iBr（iB + 2）＆iBr（iB + 3）＆iBr（iB + 4）＆arr（iB + 5）<>“RANGER”（iB + 1）＆iBr（iB + 2）＆iBr（iB + 3）＆arr（iB + 4）＆arr（iB + 5）<>“MANGER”cP =“K”cS =“J”intJump = 2ElseIf arr（x + 1）=“E”或arr（x + 1）=“I”或arr（x + 1）=“Y”或_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“AGGI”或_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“OGGI”如果arr（iB）＆arr（iB + 1）＆arr（iB + 2）＆arr（iB + 3）=“VON”或_（iB +＆）（iB + 1）＆arr（iB + 2）＆arr（iB + 3）=“VAN”或_（iB）＆arr（iB + 1）＆arr（iB + 2）=“SCH”或_arr（x + 1）＆arr（x + 2）=“ET”然后cP =“K”cS =“K”intJump = 2其他cP =“J”如果arr（x + 1）＆arr（x + 2）＆arr（x + 3）＆arr（x + 4）=“IER”cS =“J”intJump = 3其他cS =“K”intJump = 2万一万一其他cP =“K”cS =“K”万一案例“H”如果（arr（x-1）=“A”或_arr（x-1）=“E”或_arr（x-1）=“I”或_arr（x-1）=“O”或_arr（x-1）=“U”或_arr（x-1）=“Y”）和_（arr（x + 1）=“A”或_arr（x + 1）=“E”或_arr（x + 1）=“I”或_arr（x + 1）=“O”或_arr（x + 1）=“U”或_arr（x + 1）=“Y”）然后intJump = 2其他cP =“”cS =“”万一案例“J”如果arr（iB）＆arr（iB + 1）＆arr（iB + 2）＆arr（iB + 3）=“SAN”则cP =“H”cS =“H”其他如果不是SlavoGermanic和（_arr（x-1）=“A”或_arr（x-1）=“E”或_arr（x-1）=“I”或_arr（x-1）=“O”或_arr（x-1）=“U”或_arr（x-1）=“Y”）和（_arr（x + 1）=“A”或_arr（x + 1）=“O”）然后cS =“H”其他如果x = intLength ThencS =“”其他如果arr（x + 1）=“L”或arr（x + 1）=“T”或arr（x + 1）=“K”或_arr（x + 1）=“S”或arr（x + 1）=“N”或arr（x + 1）=“M”或_arr（x + 1）=“B”或arr（x + 1）=“Z”或_arr（x-1）=“S”或arr（x-1）=“K”或arr（x-1）=“L”cP =“”cS =“”万一万一万一万一案例“L”如果arr（x + 1）=“L”则intJump = 2如果（（x = intLength-2和（_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“ILLO”或_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“ILLA”或_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“ALLE”_）） 要么 （（ _arr（intLength-1）＆arr（intLength）=“AS”或_arr（intLength-1）＆arr（intLength）=“OS”或_arr（intLength）=“A”或arr（intLength）=“O”）和_arr（x-1）＆arr（x）＆arr（x + 1）＆arr（x + 2）=“ALLE”））然后cS =“”万一万一案例“M”如果arr（x-1）＆arr（x）＆arr（x + 1）=“UMB”And _（x = intLength-1或arr（x + 2）＆arr（x + 3）=“ER”）然后intJump = 2万一案例“P”选择Case arr（x + 1）案例“H”cP =“F”cS =“F”intJump = 2案例“B”intJump = 2结束选择案例“Q”cP =“K”cS =“K”案例“R”如果x = intLength而不是isSlavoGermanic和_arr（x-2）＆arr（x-1）=“IE”And _arr（x-4）＆arr（x-3）<>“ME”和_arr（x-4）＆arr（x-3）<>“MA”然后cP =“”万一案例“S”如果arr（x + 1）=“L”And（arr（x-1）=“I”或arr（x-1）=“Y”cP =“”cS =“”ElseIf arr（x + 1）=“H”和_arr（x + 2）＆arr（x + 3）＆arr（x + 4）<>“EIM”和_arr（x + 2）＆arr（x + 3）＆arr（x + 4）<>“OEK”和_arr（x + 2）＆arr（x + 3）＆arr（x + 4）<>“OLM”和_arr（x + 2）＆arr（x + 3）＆arr（x + 4）<>“OLZ”然后intJump = 2cP =“X”cS =“X”ElseIf not isSlavoGermanic And（_arr（x + 1）＆arr（x + 2）=“IA”或_arr（x + 1）＆arr（x + 2）=“IO”）然后intJump = 3cS =“X”ElseIf arr（x + 1）=“Z”然后cS =“X”intJump = 2ElseIf arr（x + 1）=“C”然后intJump = 3如果arr（x + 2）=“H”则如果arr（x + 3）＆arr（x + 4）=“OO”或_arr（x + 3）＆arr（x + 4）=“ER”或_arr（x + 3）＆arr（x + 4）=“EN”或_arr（x + 3）＆arr（x + 4）=“UY”或_arr（x + 3）＆arr（x + 4）=“ED”或_arr（x + 3）＆arr（x + 4）=“EM”然后cS =“SK”如果arr（x + 3）＆arr（x + 4）=“ER”或_arr（x + 3）＆arr（x + 4）=“EN”然后cP =“X”其他cP =“SK”万一其他cP =“X”如果x <iB或Arr（iB + 3）=“W”或arr（iB + 3）=“A”或_arr（iB + 3）=“E”或arr（iB + 3）=“I”或arr（iB + 3）=“O”或_arr（iB + 3）=“U”或arr（iB + 3）=“Y”然后cS =“X”万一万一ElseIf arr（x + 2）=“I”或arr（x + 2）=“E”或arr（x + 2）=“Y”其他cP =“SK”cS =“SK”万一ElseIf x = intLength And arr（x-1）=“I”And（_arr（x-2）=“A”或arr（x-2）=“O”）然后cP =“”万一案例“T”如果arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ION”_或者arr（x + 1）＆arr（x + 2）=“IA”_或者arr（x + 1）＆arr（x + 2）=“CH”然后cP =“X”cS =“X”intJump = 3ElseIf（arr（x + 1）=“H”或arr（x + 1）＆arr（x + 2）=“TH”）和_（arr（x + 2）＆arr（x + 3）<>“OM”And _arr（x + 2）＆arr（x + 3）<>“AM”And _arr（iB）＆arr（iB + 1）＆arr（iB + 2）<>“SCH”和_（iB + 1）＆iBr（iB + 2）＆arr（iB + 3）<>“VAN”和_（iB + 1）＆iBr（iB + 2）＆arr（iB + 3）<>“VON”）然后cP =“0”intJump = 2ElseIf arr（x + 1）=“D”然后intJump = 2万一案例“V”cP =“F”cS =“F”案例“W”如果arr（x + 1）=“R”则cP =“R”cS =“R”intJump = 2（iB）＆arr（iB + 1）＆arr（iB + 2）=“SCH”_或（x = intLength And（_arr（x-1）=“A”或_arr（x-1）=“E”或_arr（x-1）=“I”或_arr（x-1）=“O”或_arr（x-1）=“U”或_arr（x-1）=“Y”））_或（（arr（x-1）=“E”或arr（x-1）=“O”）和_（arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“SKI”或_arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“SKY”））然后cP =“”cS =“F”ElseIf arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ICZ”_或者arr（x + 1）＆arr（x + 2）＆arr（x + 3）=“ITZ”cP =“TS”cS =“FX”intJump = 4其他cP =“”cS =“”万一案例“X”如果x = intLength和_（arr（x-3）＆arr（x-2）＆arr（x-1）=“IAU”或_ arr（x-3）＆arr（x-2）＆arr（x-1）=“EAU”或_arr（x-2）＆arr（x-1）=“AU”或_arr（x-2）＆arr（x-1）=“OU”）然后cP =“”cS =“”其他cP =“KS”cS =“KS”万一如果arr（x + 1）=“C”则intJump = 2万一案例“Z”如果arr（x + 1）=“H”则cP =“J”cS =“J”ElseIf（arr（x + 1）＆arr（x + 2）=“ZO”或_arr（x + 1）＆arr（x + 2）=“ZI”或_arr（x + 1）＆arr（x + 2）=“ZA”）_或者（isSlavoGermanic And x <> iB And arr（x-1）=“T”）然后cP =“S”cS =“TS”其他cP =“S”cS =“S”万一结束选择strPrimary = strPrimary＆cPstrSecondary = strSecondary＆cS如果arr（x）= arr（x + 1）和arr（x）<>“C”则intJump = intJump + 1万一x = x + intJump循环对于i = 1要inthereshholdstrPrimary = strPrimary＆“”strSecondary = strSecondary＆“”下一个DoubleMetaphone = Left（strPrimary，intThreshhold）＆Left（strSecondary，intThreshhold）

结束功能