Clipper On Line • Ver Tópico - IF... Else... Endif

IF... Else... Endif

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

IF... Else... Endif

Mensagempor lugab » 20 Nov 2018 19:52

Prezados, boa noite...

Em vez de repetir a variavel "CampoA" em cada comparação.....
If ( campoA = campoB)  .or. (campoA=CampoC) .or. (CampoA=CampoD) .or. (CampoA=CampoE)
  acao()
endif
... existe uma forma de usá-la uma única vez ?
If campoaA = CampoB ou CampoC ou Campo D ou CampoE 
   acao()
endif

Se tem, me digam que eu to precisando
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

IF... Else... Endif

Mensagempor Toledo » 20 Nov 2018 20:30

Se esta variável CampoA for do tipo caractere, então você poderia fazer o seguinte:

If CampoA $ CampoB+"-"+CampoC+"-"+CampoD+"-"+CampoE
   acao()
endif


Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

IF... Else... Endif

Mensagempor lugab » 20 Nov 2018 22:34

Prof.Toledo

Não, os campos são numéricos, mas comparando o strzero() de cada um deles a sua fórmula funciona

Muito obrigado, mais uma vez
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

IF... Else... Endif

Mensagempor JoséQuintas » 21 Nov 2018 03:02

mais ou menos isto:

IF AScan( { campob, campoc, campod, campoe }, Campoa ) != 0
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Google [Bot] e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro