/ Published in: ASP
Chars with accents to HTML Entities
Caracteres con tildes o acentos pasados a HTML Entities
Caracteres con tildes o acentos pasados a HTML Entities
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
'Cambia los caracteres con tildes y ñ por el nombre en HTML Function tildes2Entities(texto) If not EsNulo(texto) Then texto = Replace(texto, "¡", "¡") texto = Replace(texto, "¿", "¿") 'texto = Replace(texto, "'", "'") texto = Replace(texto, "á", "á") texto = Replace(texto, "é", "é") texto = Replace(texto, "Ã", "í") texto = Replace(texto, "ó", "ó") texto = Replace(texto, "ú", "ú") texto = Replace(texto, "ñ", "ñ") texto = Replace(texto, "ç", "ç") texto = Replace(texto, "Ã", "Á") texto = Replace(texto, "É", "É") texto = Replace(texto, "Ã", "Í") texto = Replace(texto, "Ó", "Ó") texto = Replace(texto, "Ú", "Ú") texto = Replace(texto, "Ñ", "Ñ") texto = Replace(texto, "Ç", "Ç") texto = Replace(texto, "à ", "à") texto = Replace(texto, "è", "è") texto = Replace(texto, "ì", "ì") texto = Replace(texto, "ò", "ò") texto = Replace(texto, "ù", "ù") texto = Replace(texto, "À", "À") texto = Replace(texto, "È", "È") texto = Replace(texto, "ÃŒ", "Ì") texto = Replace(texto, "Ã’", "Ò") texto = Replace(texto, "Ù", "Ù") texto = Replace(texto, "ä", "ä") texto = Replace(texto, "ë", "ë") texto = Replace(texto, "ï", "ï") texto = Replace(texto, "ö", "ö") texto = Replace(texto, "ü", "ü") texto = Replace(texto, "Ä", "Ä") texto = Replace(texto, "Ë", "Ë") texto = Replace(texto, "Ã", "Ï") texto = Replace(texto, "Ö", "Ö") texto = Replace(texto, "Ãœ", "Ü") texto = Replace(texto, "â", "â") texto = Replace(texto, "ê", "ê") texto = Replace(texto, "î", "î") texto = Replace(texto, "ô", "ô") texto = Replace(texto, "û", "û") texto = Replace(texto, "Â", "Â") texto = Replace(texto, "Ê", "Ê") texto = Replace(texto, "ÃŽ", "Î") texto = Replace(texto, "Ô", "Ô") texto = Replace(texto, "Û", "Û") Else texto = "" End If tildes2Entities = texto End Function