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")) %>
Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o
login