Dicas
|
Retirando acentos e cedilha de uma frase
|
|
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"
End Select
formando a palavra sem os acentos e cedilha
texto = texto & Letra
next
Response.Write Ucase(texto)
|
|
10/03/2004 | Linha de Codigo
|
| |
|
| |
|