Domingo, 6 de Outubro de 2024
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Diversões
Apps Android
Contato
Mapa do Site
Sobre Nós
©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:
Nome:
Email:
Comentário:
Retornar