No PHP existe uma função para isso, ela se chama str_replace, e claso existe as ramificações da UTF...
- Fórum
- OTServ
- Recursos
- Linguagens de Programação
- Programação Web
- Remova Acentos.
2
1.5k
info
Grupo: Visconde
Registrado: 10/06/06
Posts: 338
Reputação: +6
Char no Tibia: Setyte Berseker

20 de maio de 2007 às 21:24

info
Grupo: Visconde
Registrado: 12/10/05
Posts: 340
Reputação: +1
Char no Tibia: Tweets
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")) %>
Por: Código Fonte