Remove qualquer acento

[JucaMaster 0]

Ae galera :( Tenho mais umpara vcs!!Este font remove qualquer tipo de acento do form ou oq você quiser!!<%'======================================================Function RemoveAcentuacao(Palavra)Dim IDim LCA(47)Dim LSA(47)LCA(0) = "ç"LCA(1) = "À"LCA(2) = "Á"LCA(3) = "Â"LCA(4) = "Ã"LCA(5) = "Ä"LCA(6) = "Å"LCA(7) = "à"LCA(8) = "á"LCA(9) = "â"LCA(10) = "ã"LCA(11) = "ä"LCA(12) = "å"LCA(13) = "È"LCA(14) = "É"LCA(15) = "Ê"LCA(16) = "Ë"LCA(17) = "è"LCA(18) = "é"LCA(19) = "ê"LCA(20) = "ë"LCA(21) = "Ò"LCA(22) = "Ó"LCA(23) = "Ô"LCA(24) = "Õ"LCA(25) = "Ö"LCA(26) = "ò"LCA(27) = "ó"LCA(28) = "ô"LCA(29) = "õ"LCA(30) = "ö"LCA(31) = "Ù"LCA(32) = "Ú"LCA(33) = "Û"LCA(34) = "Ü"LCA(35) = "ù"LCA(36) = "ú"LCA(37) = "û"LCA(38) = "ü"LCA(39) = "Ì"LCA(40) = "Í"LCA(41) = "Î"LCA(42) = "Ï"LCA(43) = "ì"LCA(44) = "í"LCA(45) = "î"LCA(46) = "ï"LCA(47) = "Ç"LSA(0) = "c"LSA(1) = "A"LSA(2) = "A"LSA(3) = "A"LSA(4) = "A"LSA(5) = "A"LSA(6) = "A"LSA(7) = "a"LSA(8) = "a"LSA(9) = "a"LSA(10) = "a"LSA(11) = "a"LSA(12) = "a"LSA(13) = "E"LSA(14) = "E"LSA(15) = "E"LSA(16) = "E"LSA(17) = "e"LSA(18) = "e"LSA(19) = "e"LSA(20) = "e"LSA(21) = "O"LSA(22) = "O"LSA(23) = "O"LSA(24) = "O"LSA(25) = "O"LSA(26) = "o"LSA(27) = "o"LSA(28) = "o"LSA(29) = "o"LSA(30) = "o"LSA(31) = "U"LSA(32) = "U"LSA(33) = "U"LSA(34) = "U"LSA(35) = "u"LSA(36) = "u"LSA(37) = "u"LSA(38) = "u"LSA(39) = "I"LSA(40) = "I"LSA(41) = "I"LSA(42) = "I"LSA(43) = "i"LSA(44) = "i"LSA(45) = "i"LSA(46) = "i"LSA(47) = "C"For i= 0 to UBound(LCA)Resultado = Replace(Palavra,LCA(i),LSA(i))If Palavra <> Resultado ThenPalavra = ""Palavra = ResultadoEnd IFNextRemoveAcentuacao = ResultadoEnd FunctionstrFrase = "Exemplo: Informação Tributário Móveis Razão Chão. Tudo que eu escrever aqui e tiver acento, serão retirados. independente do tamanho da string. Mas lembre-se, somente acentos serão retirados."strPalavra = RemoveAcentuacao(strFrase)Response.Write "Resultado: " & strPalavra%>

[d.eleete 0]

Muito bom, posso dar uma dica?você poderia ao invés de ficar criando essa array, coloca os caracteres separados por virgula e da um split!Logicamente usando o mesmo critério de ordem :) exemploDim LCA()c = "a,b,c,d,e"LCA = split(c,",")O que acha?

[Salgado 4]

Muito bom, posso dar uma dica?

você poderia ao invés de ficar criando essa array, coloca os caracteres separados por virgula e da um split!

 

Logicamente usando o mesmo critério de ordem :)

 

exemplo

 

Dim LCA()

c = "a,b,c,d,e"

LCA = split(c,",")

 

O que acha?

Nem precisa, seria só declarar:

LCA = array("ç","À",...)

As reticencias são só por preguiça!

[*Marcinha* 0]

Pessoal... tem uma funçao que faz a mesma coisa, mas de um modo diferente, sem dar loop.. eu testei e ela executa rapidinho... Acho que eu peguei ela aqui do imasters mesmo...pode ajudar né?Function TiraAcentos(Palavra) valor=UCASE(palavra) valor=replace(valor,"Á","A") valor=replace(valor,"À","A") valor=replace(valor,"Â","A") valor=replace(valor,"Ã","A") valor=replace(valor,"Ä","A") valor=replace(valor,"É","E") valor=replace(valor,"È","E") valor=replace(valor,"Ê","E") valor=replace(valor,"Ë","E") valor=replace(valor,"Í","I") valor=replace(valor,"Ì","I") valor=replace(valor,"Î","I") valor=replace(valor,"Ï","I") valor=replace(valor,"Ó","O") valor=replace(valor,"Ò","O") valor=replace(valor,"Ô","O") valor=replace(valor,"Õ","O") valor=replace(valor,"Ö","O") valor=replace(valor,"Ú","U") valor=replace(valor,"Ù","U") valor=replace(valor,"Û","U") valor=replace(valor,"Ü","U") TiraAcentos = ValorEnd Function

[Dudys 0]

---- cookie errado ----

[Fernando B. 0]

E aí gente... Vou dar uma dica: REGULAR EXPRESSIONS.

Vou dar um exemplo simples:

 

Function TrocaCaractere(Conteudo, Procurar, Trocar)	Set ReExp = New RegExp	ReExp.Global = True	ReExp.IgnoreCase  = False	ReExp.Pattern = Procurar	TrocaCaractere = ReExp.Replace(Conteudo, Trocar)End Function

Essa função pega uma string (de qualquer tamanho), um caractere a ser procurado na string, e um caractere para troca... E nem precisa dizer o que ela faz né...

 

Eu recomendo a todos pararem um pouco e pesquisar sobre RegExp, ela nos facilita em trabalhos árduos, e quanto ao exemplo que eu passei, muitos poderiam dizer que um simples REPLACE() faria, mas o objetivo é somente apresentar e dar uma dica... procurem por RegExp... não há arrependimento.

 

Obs.: testem a função, se não rolar, não me culpem, não testei... hehe, sorry.

 

- Fernando Botelho

[JucaMaster 0]

Bom cara coloca alguma coisa sobre isso! É interessante!!!