Posted By

sulfurito on 09/18/08

Tagged

Versions (?)

Last Edited at 09/18/08 04:45am

Statistics

Viewed 583 times

Favorited by 0 user(s)

Related snippets

Accents/tildes to normal character

/ Published in: ASP

Take out accents
Quitar tildes

Highlighted TextExpand

'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

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.