©2024 CJDinfo®

Detalhe Solução

ASP: Converte texto acentuado:

'-------------------------------------------------------------------
' AcConv
' Converte os Acentos para letras normais.
' Elimina os caracteres ASC Extendidos.
'-------------------------------------------------------------------
function AcConv(Dado)

dim s, c, i

s = ""
    for i = 1 to len(Dado)
        c = mid(Dado, i, 1)
        select case c
            case "á","à","ã","â","ä":
                c = "a"
            case "é","ê","ë":
                c = "e"
            case "í","ì","î","ï":
                c = "i"
            case "ó","ò","õ","ô","ö":
                c = "o"
            case "ú","ù","û","ü":
                c = "u"
            case "ç":
                c = "c"
            case "Á","À","Ã","Â","Ä":
                c = "A"
            case "É","Ê","Ë":
                c = "E"
            case "Í","Ì","Î","Ï":
                c = "I"
            case "Ó","Ò","Õ","Ô","Ö":
                c = "O"
            case "Ú","Ù","Û","Ü":
                c = "U"
            case "Ç":
                c = "C"
            case else:
                if Asc(c) > 127 then
                    c = " "
                end if
        end select
        s = s & c
    next
    AcConv = s
end function

¤ Links Relacionados:
- Veja todas as soluções do site

Gostou? Compartilhe ou comente:

Retornar