VE
asp

Remova Acentos.

Por Ventura, 20 de mai. de 2007 em Programação Web

2
1.5k
VenturaV
20 de maio de 2007 às 21:19

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

NostradamusN
20 de maio de 2007 às 21:24

No PHP existe uma função para isso, ela se chama str_replace, e claso existe as ramificações da UTF...