|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Retirando acentos e cedilha de uma frase
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
'varrendo (letra por letra) a frase que foi digitada previamente na caixa de texto chamada txt_nome.
for i = 1 to len(request.form(txt_nome))
Letra = mid(request.form(txt_nome), i, 1)
Select Case Letra
Case "á","Á","à","À","ã","Ã","â","Â","â"
Letra = "A"
Case "é","É","ê","Ê"
Letra = "E"
Case "í","Í"
Letra = "I"
Case "ó","Ó","ô","Ô","õ","Õ"
Letra = "O"
Case "ú","Ú"
Letra = "U"
Case "ç","Ç"
Letra = "C"
End Select
'formando a palavra sem os acentos e cedilha
texto = texto & Letra
next
Response.Write Ucase(texto)
T+,
|
|
|
|
|
