Olá! Friday, 30 de July de 2021.



Dicas CódigoFonte.net
Sunday, 26 de October de 2003

Veja como remover acentos no ASP

Em pesquisa a Internet, encontrei este código, que creio ser bastante útil para você programador ASP.

Opções para utilização deste código:

Função TirarAcento : Troca as letras com acento para letras sem acento;
Função TrocaAcento : Troca as letras com acento para "_" (underline), sendo útil em consultas a Banco de Dados.

<% Function TirarAcento(Palavra) CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ" SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" Texto = "" If Palavra <> "" then For X = 1 To Len(Palavra) Letra = Mid(Palavra,X,1) Pos_Acento = InStr(CAcento,Letra) If Pos_Acento > 0 Then Letra = mid(SAcento,Pos_Acento,1) Texto = Texto & Letra Next TirarAcento = Texto End If End Function Function TrocarAcento(Palavra) CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ" Texto = "" If Palavra <> "" Then For X = 1 to Len(Palavra) Letra = Mid(Palavra,X,1) Pos_Acento = InStr(CAcento,Letra) If Pos_Acento > 0 Then Letra = "_" Texto = Texto & Letra Next TrocarAcento = Texto End If End Function %>

Para chamar a função utilize TirarAcento("[STRING]") ou TrocarAcento("[STRING]")

<% Response.Write(TirarAcento("EXEMPLO")) %>

Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010