Adicionar a Meu favorito

Sunday, 26 de October de 2003

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")) %>

Outros artigos

Assine o Feed desta categoria

• Acessando DLL com ASP - 26/10/2003
• Enviando e-mails com tags HTML - 26/10/2003
• Mudando automaticamente a resolução de suas páginas HTML - 26/10/2003
• Corrigindo formatação de datas no ASP - 26/10/2003
• Ver mais...

Comentários do artigo [Novo comentário]