ASP: função tirar acentos

0

Posted on : 18-03-2011 | By : Paulo H Oliveira | In : ASP
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
Mais outra função de tirar acentos
function TiraAcento(StrAcento)
for i = 1 to len(StrAcento)
Letra = mid(StrAcento, i, 1)
Select Case Letra
Case “á”,”Á”,”à“,”À”,”ã”,”Ô,”â”,””,”â”,”ä”,”Ä”
Letra = “A”
Case “é”,”É”,”ê”,”Ê”,”Ë”,”ë”,”È”,”è”
Letra = “E”
Case “í”,”Í”,”ï”,”Ï”,”Ì”,”ì”
Letra = “I”
Case “ó″,”Ó”,”ô”,”Ô”,”õ”,”Õ”,”ö”,”Ö”,”ò″,”Ò”
Letra = “O”
Case “ú”,”Ú”,”Ù”,”ù″,”ú”,”û”,”ü”,”Ü”,”Û”
Letra = “U”
Case “ç”,”Ç”
Letra = “C”
Case “ñ”
Letra = “N”
End Select
texto = texto & Letra
next
TiraAcento = texto
end function

Compartilhe :

  • Stumble upon
  • twitter

Escreva um comentário

Security Code: