Comando esta Contido(coisa da matematica)

[negrao]

No clipper tem como fazer o seguinte

if x $ '1_2_3'
ok
endif

O que gostaria seria o inverso, no caso acima os numeros de 1 a 3 sao o que podem ser digitados, o que eu gostaria era de passar numeros que nao podem ser aceitos.Ex:

Vou dar a escolha pro cara digitar os numeros que ele nao que, ja tentei colocar o sinal ! antes do $ mas deu erro.
Como posso fazer isso

Valeu

[Clipper]

Veja aí...

NUMERO=SPACE(1)
@ 10,00 GET NUMERO PICT "9"
READ

A="1_2_3_4_5"
IF AT(NUMERO,A)=0
//NÃO FOI ACHADA A OCORRÊNCIA
ENDIF

Até logo.

Marcelo

[casesistemas]

tente

if ! (x$'1_2_3')
ok
endif

Abracos

Joao Carlos

[rrfsistemas]

Existe uma maneira mais prática a menu modo de ver :

conf = ´S´
@ 10,10 Say ´confirma sua resposta [s/n]´ get conf valid conf $´SsNn´


nesta expressão VALID é validado SE CONTIDO as letras S e N maiusculo ou minusculo, caso contrario continua-se no get.


espero te ajudado :xau

[Clipper]

Prezado Renato

Creio que vocÊ não entendeu o que o colega quer.

Veja :

o que eu gostaria era de passar numeros que nao podem ser aceitos

Ele quer algo do tipo :

Pode ser aceito todas as letras com exceção de S e N ou
Pode ser aceito todos os números com exceção de 0,1 e 2

Até logo.

Marcelo

[rrfsistemas]

Op's foi mal !!


Tente esta função, uso no VFP mas funciona no clipper (testada).


function fuf
parameters uf1
if .not. uf1 $'SÄSCÄSEÄSPÄTO'
@ 04,01 say "Estado Invalido - Redigite "
T = .F.
else
@ 04,01 say space(78)
T = .T.
endif
return(T)