Posted By

sulfurito on 09/18/08

Tagged

Versions (?)

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

Statistics

Viewed 663 times

Favorited by 1 user(s)

Related snippets

Accents/tildes to HTML Entities

/ Published in: ASP

Chars with accents to HTML Entities
Caracteres con tildes o acentos pasados a HTML Entities

Highlighted TextExpand

'Cambia los caracteres con tildes y Ã± por el nombre en HTML
    Function tildes2Entities(texto)
        If not EsNulo(texto) Then
            texto = Replace(texto, "Â¡", "&iexcl;")
            texto = Replace(texto, "Â¿", "&iquest;")
            'texto = Replace(texto, "'", "&apos;")

texto = Replace(texto, "Ã¡", "&aacute;")
            texto = Replace(texto, "Ã©", "&eacute;")
            texto = Replace(texto, "Ã", "&iacute;")
            texto = Replace(texto, "Ã³", "&oacute;")
            texto = Replace(texto, "Ãº", "&uacute;")
            texto = Replace(texto, "Ã±", "&ntilde;")
            texto = Replace(texto, "Ã§", "&ccedil;")

texto = Replace(texto, "Ã", "&Aacute;")
            texto = Replace(texto, "Ã‰", "&Eacute;")
            texto = Replace(texto, "Ã", "&Iacute;")
            texto = Replace(texto, "Ã“", "&Oacute;")
            texto = Replace(texto, "Ãš", "&Uacute;")
            texto = Replace(texto, "Ã‘", "&Ntilde;")
            texto = Replace(texto, "Ã‡", "&Ccedil;")

texto = Replace(texto, "Ã ", "&agrave;")
            texto = Replace(texto, "Ã¨", "&egrave;")
            texto = Replace(texto, "Ã¬", "&igrave;")
            texto = Replace(texto, "Ã²", "&ograve;")
            texto = Replace(texto, "Ã¹", "&ugrave;")

texto = Replace(texto, "Ã€", "&Agrave;")
            texto = Replace(texto, "Ãˆ", "&Egrave;")
            texto = Replace(texto, "ÃŒ", "&Igrave;")
            texto = Replace(texto, "Ã’", "&Ograve;")
            texto = Replace(texto, "Ã™", "&Ugrave;")

texto = Replace(texto, "Ã¤", "&auml;")
            texto = Replace(texto, "Ã«", "&euml;")
            texto = Replace(texto, "Ã¯", "&iuml;")
            texto = Replace(texto, "Ã¶", "&ouml;")
            texto = Replace(texto, "Ã¼", "&uuml;")

texto = Replace(texto, "Ã„", "&Auml;")
            texto = Replace(texto, "Ã‹", "&Euml;")
            texto = Replace(texto, "Ã", "&Iuml;")
            texto = Replace(texto, "Ã–", "&Ouml;")
            texto = Replace(texto, "Ãœ", "&Uuml;")

texto = Replace(texto, "Ã¢", "&acirc;")
            texto = Replace(texto, "Ãª", "&ecirc;")
            texto = Replace(texto, "Ã®", "&icirc;")
            texto = Replace(texto, "Ã´", "&ocirc;")
            texto = Replace(texto, "Ã»", "&ucirc;")

texto = Replace(texto, "Ã‚", "&Acirc;")
            texto = Replace(texto, "ÃŠ", "&Ecirc;")
            texto = Replace(texto, "ÃŽ", "&Icirc;")
            texto = Replace(texto, "Ã”", "&Ocirc;")
            texto = Replace(texto, "Ã›", "&Ucirc;")
        Else
            texto = ""
        End If
        tildes2Entities = texto
    End Function

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.