Revision: 8391
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at September 18, 2008 04:45 by sulfurito
Initial Code
'Cambia los caracteres con tildes, ñ, ç por letras sin tilde o N o C 'Elimina las tilde spor completo, puede ser necesario al pasar datos 'desde UTF-8 a sistemas con ISO-8859-1 Function quitaTildes(texto) If not EsNulo(texto) Then texto = Replace(texto, "¡", "", 1, Len(texto), 1) texto = Replace(texto, "¿", "", 1, Len(texto), 1) texto = Replace(texto, "'", "", 1, Len(texto), 1) Texto = Replace(Texto, "á", "a", 1, Len(Texto), 1) Texto = Replace(Texto, "é", "e", 1, Len(Texto), 1) Texto = Replace(Texto, "Ã", "i", 1, Len(Texto), 1) Texto = Replace(Texto, "ó", "o", 1, Len(Texto), 1) Texto = Replace(Texto, "ú", "u", 1, Len(Texto), 1) Texto = Replace(Texto, "ñ", "n", 1, Len(Texto), 1) texto = Replace(texto, "ç", "c", 1, Len(texto), 1) texto = Replace(texto, "Ã", "A", 1, Len(texto), 1) texto = Replace(texto, "É", "E", 1, Len(texto), 1) texto = Replace(texto, "Ã", "I", 1, Len(texto), 1) texto = Replace(texto, "Ó", "O", 1, Len(texto), 1) texto = Replace(texto, "Ú", "U", 1, Len(texto), 1) texto = Replace(texto, "Ñ", "N", 1, Len(texto), 1) texto = Replace(texto, "Ç", "C", 1, Len(texto), 1) texto = Replace(texto, "à ", "a", 1, Len(Texto), 1) texto = Replace(texto, "è", "e", 1, Len(Texto), 1) texto = Replace(texto, "ì", "i", 1, Len(Texto), 1) texto = Replace(texto, "ò", "o", 1, Len(Texto), 1) texto = Replace(texto, "ù", "u", 1, Len(Texto), 1) texto = Replace(texto, "À", "A", 1, Len(texto), 1) texto = Replace(texto, "È", "E", 1, Len(texto), 1) texto = Replace(texto, "ÃŒ", "I", 1, Len(texto), 1) texto = Replace(texto, "Ã’", "O", 1, Len(texto), 1) texto = Replace(texto, "Ù", "U", 1, Len(texto), 1) texto = Replace(texto, "ä", "a", 1, Len(Texto), 1) texto = Replace(texto, "ë", "e", 1, Len(Texto), 1) texto = Replace(texto, "ï", "i", 1, Len(Texto), 1) texto = Replace(texto, "ö", "o", 1, Len(Texto), 1) texto = Replace(texto, "ü", "u", 1, Len(Texto), 1) texto = Replace(texto, "Ä", "A", 1, Len(texto), 1) texto = Replace(texto, "Ë", "E", 1, Len(texto), 1) texto = Replace(texto, "Ã", "I", 1, Len(texto), 1) texto = Replace(texto, "Ö", "O", 1, Len(texto), 1) texto = Replace(texto, "Ãœ", "U", 1, Len(texto), 1) texto = Replace(texto, "â", "a", 1, Len(Texto), 1) texto = Replace(texto, "ê", "e", 1, Len(Texto), 1) texto = Replace(texto, "î", "i", 1, Len(Texto), 1) texto = Replace(texto, "ô", "o", 1, Len(Texto), 1) texto = Replace(texto, "û", "u", 1, Len(Texto), 1) texto = Replace(texto, "Â", "A", 1, Len(texto), 1) texto = Replace(texto, "Ê", "E", 1, Len(texto), 1) texto = Replace(texto, "ÃŽ", "I", 1, Len(texto), 1) texto = Replace(texto, "Ô", "O", 1, Len(texto), 1) texto = Replace(texto, "Û", "U", 1, Len(texto), 1) Else texto = "" End If quitaTildes = texto End Function
Initial URL
Initial Description
Take out accents Quitar tildes
Initial Title
Accents/tildes to normal character
Initial Tags
Initial Language
ASP