Nenhuma resposta neste tópico

[Worm]

Galera eu precisava retirar os numeros de alguns campos e não achava nada para isso, até que achei um código e mudei algumas coisas para ficar dentro do que eu precisava.

<%
'aqui pegamos os campos que queremos mudar.
nome = request.form("nome")
cidade = request.form("cidade")
endereco = request.form("endereco")

'aqui abrimos a função
Function RemoveAcentuacao(Palavra) 
Dim I 
Dim LCA(47) 
Dim LSA(47) 

'aqui vamos por o que queremos retirar
LCA(0) = "1" 
LCA(1) = "2" 
LCA(2) = "3" 
LCA(3) = "4" 
LCA(4) = "5" 
LCA(5) = "6" 
LCA(6) = "7" 
LCA(7) = "8" 
LCA(8) = "0" 
LCA(9) = "9" 
LCA(10) = "-" 
LCA(11) = "+" 
LCA(12) = "." 
LCA(13) = "/" 
LCA(14) = "!" 
LCA(15) = "@" 
LCA(16) = "#" 
LCA(17) = "$" 
LCA(18) = "%" 
LCA(19) = "(" 
LCA(20) = ")" 
LCA(21) = "~" 
LCA(22) = "^" 
LCA(23) = "{" 
LCA(24) = "}" 
LCA(25) = "]" 
LCA(26) = "[" 
LCA(27) = "/" 
LCA(28) = ";" 
LCA(29) = ":" 
LCA(30) = ">" 
LCA(31) = "<" 
LCA(32) = "*"
LCA(33) = "="
LCA(34) = " "
'aqui vamos por o que queremos no lugar de cada no código original está para remover os acentos. aqui eu mudei para retirar numeros e caracteres especiais.
LSA(0) = "" 
LSA(1) = "" 
LSA(2) = "" 
LSA(3) = "" 
LSA(4) = "" 
LSA(5) = "" 
LSA(6) = "" 
LSA(7) = "" 
LSA(8) = "" 
LSA(9) = "" 
LSA(10) = "" 
LSA(11) = "" 
LSA(12) = "" 
LSA(13) = "" 
LSA(14) = "" 
LSA(15) = "" 
LSA(16) = "" 
LSA(17) = "" 
LSA(18) = "" 
LSA(19) = "" 
LSA(20) = "" 
LSA(21) = "" 
LSA(22) = "" 
LSA(23) = "" 
LSA(24) = "" 
LSA(25) = "" 
LSA(26) = "" 
LSA(27) = "" 
LSA(28) = "" 
LSA(29) = "" 
LSA(30) = "" 
LSA(31) = "" 
LSA(32) = ""
LSA(33) = ""
LSA(34) = ""

For i= 0 to UBound(LCA) 
Resultado = Replace(Palavra,LCA(i),LSA(i)) 
If Palavra <> Resultado Then 
Palavra = "" 
Palavra = Resultado 
End IF 
Next 

RemoveAcentuacao = Resultado 

End Function 


Rnome = RemoveAcentuacao(nome)
Rcidade = RemoveAcentuacao(cidade)
Rendereco = RemoveAcentuacao(endereco)

'ai só para ver como ficou

response.write(Rnome & " - " & Rcidade & " - " & Rendereco)

%>

Bom para não haver problemas esse código foi adaptado, mas como precisei e ninguém conhecia algo que pudesse ajudar modifiquei e ficou isso acima.

Valew e espero ter ajudado.

-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113