Homogeneizar texto

[Antoni]

____________________________________________________________________

Hola:

Alguna que otra vez habreis tenido problemas a la hora de encontrar un texto por culpa de un punto, una coma un acento, un espacio, etc..., bueno pues aquí os dejo esta pequeña función que permite homogeneizar un texto para poder tener mas éxito en las comparaciones, sobre todo en nombres y apellidos.

Private Function Textificar(Text0 As Variant)

Textificar = LCase(Text0)

Do Until InStr(Textificar, " ") = 0: Textificar = Replace(Textificar, " ", Empty): Loop

Do Until InStr(Textificar, ",") = 0: Textificar = Replace(Textificar, ",", Empty): Loop

Do Until InStr(Textificar, ";") = 0: Textificar = Replace(Textificar, ";", Empty): Loop

Do Until InStr(Textificar, ".") = 0: Textificar = Replace(Textificar, ".", Empty): Loop

Do Until InStr(Textificar, ":") = 0: Textificar = Replace(Textificar, " ", Empty): Loop

Do Until InStr(Textificar, "(") = 0: Textificar = Replace(Textificar, " ", Empty): Loop

Do Until InStr(Textificar, ")") = 0: Textificar = Replace(Textificar, " ", Empty): Loop

Do Until InStr(Textificar, "-") = 0: Textificar = Replace(Textificar, "-", Empty): Loop

Do Until InStr(Textificar, "á") = 0: Textificar = Replace(Textificar, "á", "a"): Loop

Do Until InStr(Textificar, "é") = 0: Textificar = Replace(Textificar, "é", "e"): Loop

Do Until InStr(Textificar, "í") = 0: Textificar = Replace(Textificar, "í", "i"): Loop

Do Until InStr(Textificar, "ó") = 0: Textificar = Replace(Textificar, "ó", "o"): Loop

Do Until InStr(Textificar, "ú") = 0: Textificar = Replace(Textificar, "ú", "u"): Loop

Do Until InStr(Textificar, "ü") = 0: Textificar = Replace(Textificar, "ü", "u"): Loop

End Function

[/CODE]

[b][u]Por ejemplo, esta condición se cumplirá:[/u][/b]

[b]If [color=#ff0000]Textificar[/color]("[color=#0000ff]MÁRTI NEZ-perez antonio[/color]") = [color=#ff0000]Textificar[/color]("[color=#0000ff]Martínez Pérez, Antonio[/color]") Then

[/b]

Saludos

[center][size=6][color=#ff0000][u]DESCARGAR EJEMPLO DE USO DEL POST #3[/u][/color][/size][/center]

[b]______________________________________________________________[/b]

[Gerson Pineda]

Lo he probado en una celda y este es el resultado

MÁRTI NEZ-perez antonio = martinezperezantonio

PD: porfavor adjunta ejemplos en un archivo para ver mas clara la utilidad que le haz dado

Saludos

[Antoni]

Ahí va un ejemplo para que se vea mas claro su utilización.

Función Textificar.xls

[Gerson Pineda]

Con el ejemplo y el formulario queda mas claro

Saludos