Permitir caracteres

[Twunay 1]

Boas...

 

Alguém pode me dar uma luz.

 

Recupero um string de um form e pretendo permir que (o cara pode digitar o q quizer), mas só quero que passe tudo que foi digitado de A a Z e de 1 a 0

 

Entenderam?

 

Tipo: um campo chave de busca, não quero realizar a busca com caracteres $ # % & *... Apenas de A a Z e de 1 a 0.

 

Quando o cara digita algo do tipo #$¨ redireciono para o form com uma mensagem do tipo "digite uma palavra válida"

 

Vlw,

Twunay http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[mx loco 1]

Ou você poderia validar o forum com um JS, ou simplesmente limpava os caracters idesejados.exe.:variavel=replace(variavel, "$", "")dai você pode limpar todos os caracters indesejado.se é isso que eu intende, isso resolve.

[Luizgrs 0]

Caso os caracteres para fazer replace sejam muitos você pode colocar uma função assim:

Function TiraCaractere(texto)If Len(texto) = 0 Then Exit FunctionFor x = 1 To Len(texto)    vLetra = Asc(UCase(Mid(texto, x, 1)))    If (vLetra >= 65 And vLetra <= 90) Or (vLetra >= 48 And vLetra <= 57) Or vLetra = 32 Then        texto2 = texto2 & Mid(texto, x, 1)    End IfNextTiraCaractere = texto2End Function