jueves, 20 de octubre de 2016

Reemplazar caracteres de una cadena

Cuando tenemos un texto con caracteres raro que nuestro programa no identifica envía los códigos en HTML, para poder reemplazarlos utilizo la siguiente función:

Public Function cambiar_caracteres(cambiarcadena As String) As String
        cambiarcadena = cambiarcadena.Replace("Á", "A")
        cambiarcadena = cambiarcadena.Replace("á", "a")
        cambiarcadena = cambiarcadena.Replace("É", "e")
        cambiarcadena = cambiarcadena.Replace("é", "e")
        cambiarcadena = cambiarcadena.Replace("Í", "I")
        cambiarcadena = cambiarcadena.Replace("í", "i")
        cambiarcadena = cambiarcadena.Replace("Ó", "O")
        cambiarcadena = cambiarcadena.Replace("ó", "o")
        cambiarcadena = cambiarcadena.Replace("Ú", "U")
        cambiarcadena = cambiarcadena.Replace("ú", "u")
        cambiarcadena = cambiarcadena.Replace("Ñ", "N")
        cambiarcadena = cambiarcadena.Replace("ñ", "n")
        Return cambiarcadena
 End Function

La función la puedes utilizar:
Dim campo as string = "La caña esta sobre el camión"
Dim Resultado as string = cambiar_caracteres(campo)

Resultado = "La cana esta sobre el camion"

Comparte