Postada em 29/06/2004 17:57 hs
Dá uma olhada nessa função.
Ela funciona com letras, mas com base nela dá pra fazer por sílabas
É um tanto complicado conseguir o que vc quer, da maneira que vc quer. Mas acho que vc já sabia disso, né?
Public Function fngMudaNome(Nome As String) As String
Nome = Trim(Nome)
'elimina letras acentuadas
Nome = Replace(Nome, "á", "a")
Nome = Replace(Nome, "à", "a")
Nome = Replace(Nome, "â", "a")
Nome = Replace(Nome, "ä", "a")
Nome = Replace(Nome, "ã", "a")
Nome = Replace(Nome, "a", "[aáàâäã]")
Nome = Replace(Nome, "é", "e")
Nome = Replace(Nome, "è", "e")
Nome = Replace(Nome, "ê", "e")
Nome = Replace(Nome, "ë", "e")
Nome = Replace(Nome, "e", "[eéèêë]")
Nome = Replace(Nome, "í", "i")
Nome = Replace(Nome, "ì", "i")
Nome = Replace(Nome, "î", "i")
Nome = Replace(Nome, "ï", "i")
Nome = Replace(Nome, "ý", "i")
Nome = Replace(Nome, "ÿ", "i")
Nome = Replace(Nome, "y", "i")
Nome = Replace(Nome, "i", "[iíìîïyÿý]")
Nome = Replace(Nome, "ó", "o")
Nome = Replace(Nome, "ò", "o")
Nome = Replace(Nome, "ô", "o")
Nome = Replace(Nome, "ö", "o")
Nome = Replace(Nome, "õ", "o")
Nome = Replace(Nome, "o", "[oóòôöõ]")
Nome = Replace(Nome, "ú", "u")
Nome = Replace(Nome, "ù", "u")
Nome = Replace(Nome, "û", "u")
Nome = Replace(Nome, "ü", "u")
Nome = Replace(Nome, "u", "[uúùûü]")
Nome = Replace(Nome, "ñ", "n")
Nome = Replace(Nome, "n", "[nñ]")
Nome = Replace(Nome, "'", "''")
Nome = Replace(Nome, " ", "*") 'ACCESS
Nome = Replace(Nome, "ç", "c")
Nome = Replace(Nome, "k", "c")
Nome = Replace(Nome, "c", "[cçk]")
Nome = Replace(Nome, "z", "s")
Nome = Replace(Nome, "s", "[sz]")
Nome = Replace(Nome, "w", "v")
Nome = Replace(Nome, "v", "[wv]")
'ACCESS
Nome = "*" & Nome & "*"
Nome = Replace(Nome, "**", "*")
'SQLSERVER
'modifique todos os * por %
fngMudaNome = Nome
End Function
________________________ Té + Que NIMB role bons Dados! 
|
