19/10/2006, 09:37
|
| | | Fecha de Ingreso: marzo-2002 Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 22 años, 10 meses Puntos: 7 | |
Utiliza esta función:
Código:
Private Function Normaliza_Texto(ByVal strCadena As String) As String
'--Quitando ñ minúscula--
strCadena = Replace(strCadena, "ñ", "n")
'------------------------
'--Quitando Ñ mayúscula--
strCadena = Replace(strCadena, "Ñ", "N")
'------------------------
'--Quitando acentros a las vocales minúsculas--
strCadena = Replace(strCadena, "á", "a")
strCadena = Replace(strCadena, "é", "e")
strCadena = Replace(strCadena, "í", "i")
strCadena = Replace(strCadena, "ó", "o")
strCadena = Replace(strCadena, "ú", "u")
'----------------------------------------------
'--Quitando acentros a las vocales mayúsculas--
strCadena = Replace(strCadena, "Á", "A")
strCadena = Replace(strCadena, "É", "E")
strCadena = Replace(strCadena, "Í", "I")
strCadena = Replace(strCadena, "Ó", "O")
strCadena = Replace(strCadena, "Ú", "U")
'----------------------------------------------
Return strCadena
End Function
__________________ .::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance-- |