Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Procurar
 
 

Resultados por:
 

Rechercher Pesquisa avançada

Últimos assuntos
» [PEDIDO] Imagem para fundo de categoria
Código que retira acentos EmptyQui maio 26, 2011 10:02 pm por cooker

» 1000 Brushes para Download
Código que retira acentos EmptyQui Abr 01, 2010 3:51 pm por x SparTan

» [Fonte]Game Logos
Código que retira acentos EmptyQua Mar 31, 2010 2:41 pm por Gouveia -

» Ranks-Habbundo
Código que retira acentos EmptyTer Mar 30, 2010 11:17 am por Ronoroa ~

» [Fonte]Coca-Cola
Código que retira acentos EmptyQua Mar 17, 2010 5:52 pm por Hink

» [Fonte] Battlestar (Galactica)
Código que retira acentos EmptySáb Dez 12, 2009 6:14 pm por Aurora

» [Fonte]Team Spirit
Código que retira acentos EmptySáb Dez 12, 2009 6:07 pm por Aurora

» [Fonte] Aardvark Cafe (Hard Rock Café)
Código que retira acentos EmptySáb Dez 12, 2009 6:05 pm por Aurora

» [Fonte] Allstar
Código que retira acentos EmptySáb Dez 12, 2009 4:53 pm por Aurora

Navegação
 Portal
 Índice
 Membros
 Perfil
 FAQ
 Buscar
Nosso Banner
Gostaria de Parceria?

Se você quer ser nosso parceiro, pegue nosso banner abaixo e cole em seu fórum!



Clique - Crie parceria

Para parceria, é necessário seu registro no VisualArts!

Código que retira acentos

 :: Web Design :: Tutoriais Web :: Asp.net

Ir para baixo

Código que retira acentos Empty Código que retira acentos

Mensagem por Striip Seg Jul 06, 2009 10:05 am

Primeiramente, coloque esse código em sua página em ASP:

Código:
<%
Function RetiraAcentos(str2)
str2 = LCase(str2)
RetiraAcentos = Replace(str2, "á", "a")
RetiraAcentos = Replace(RetiraAcentos, "à", "a")
RetiraAcentos = Replace(RetiraAcentos, "ã", "a")
RetiraAcentos = Replace(RetiraAcentos, "â", "a")
RetiraAcentos = Replace(RetiraAcentos, "ä", "a")

RetiraAcentos = Replace(RetiraAcentos, "é", "e")
RetiraAcentos = Replace(RetiraAcentos, "è", "e")
RetiraAcentos = Replace(RetiraAcentos, "ê", "e")
RetiraAcentos = Replace(RetiraAcentos, "ë", "e")

RetiraAcentos = Replace(RetiraAcentos, "í", "i")
RetiraAcentos = Replace(RetiraAcentos, "î", "i")
RetiraAcentos = Replace(RetiraAcentos, "Î", "i")
RetiraAcentos = Replace(RetiraAcentos, "ï", "i")

RetiraAcentos = Replace(RetiraAcentos, "ó", "o")
RetiraAcentos = Replace(RetiraAcentos, "ò", "o")
RetiraAcentos = Replace(RetiraAcentos, "õ", "o")
RetiraAcentos = Replace(RetiraAcentos, "ô", "o")
RetiraAcentos = Replace(RetiraAcentos, "ö", "o")

RetiraAcentos = Replace(RetiraAcentos, "ú", "u")
RetiraAcentos = Replace(RetiraAcentos, "ù", "u")
RetiraAcentos = Replace(RetiraAcentos, "û", "u")
RetiraAcentos = Replace(RetiraAcentos, "ü", "u")

RetiraAcentos = Replace(RetiraAcentos, "ç", "c")

RetiraAcentos = Replace(RetiraAcentos, "-", "_")

RetiraAcentos = Replace(RetiraAcentos, " ", "")

End Function
%>

Agora, para executar a função, insira um "response.write" na página asp:

Sintaxe:
Código:
<%
response.write RetiraAcentos(FUNCAO OU TEXTO)
%>

Exemplo:
Código:
Response.write RetiraAcentos(request("texto"))
Striip
Striip
Moderador Global
Moderador Global

Masculino
Posts : 507
Localização : Dourados-MS
Inscrição : 16/01/2009

http://visual-arts.forumeiros.com/

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 :: Web Design :: Tutoriais Web :: Asp.net

 
Permissões neste sub-fórum
Não podes responder a tópicos