quarta-feira, 12 de junho de 2002

Tirando os acentos das palavras

Essa função deve ser usada quando você precisa tirar toda a acentuação das palavras na hora de fazer uma busca


'#Função que tira todos os acentos das palavras
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


Forma de usar:
TiraAcento ("[ÁÀáàÂâãÃÄeéèÈÈëíÌïÌíÓÒóòöÖõÕôÔúùÚÚÙÛûüÜ]")



Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...

1 comentários:

Ozzy Sys Informatica LTDA disse...

[Enviado originalmente em 12/jun/2002 12:09:56]:

Vc pode fazer um case conforme Maiusculo e minisculo

sacou ???

[]s

Ozzy Osbourne