Página 1 de 1
Varredura de tela.
Enviado: 04 Abr 2007 15:31
por Eduardo Borio
Preciso de uma função que faça uma varredura na tela até encontrar um determinado caracter.
Alguem pode me ajudar?
Desde já agradeco.
Enviado: 04 Abr 2007 15:49
por vailton
É só achar? ou vc precisa de alguma outra info?
Enviado: 04 Abr 2007 15:57
por Pablo César
Eduardo,
Eu utilizo a SCREENSTR() da CT.LIB. Olhe como eu faço:
Código: Selecionar todos
VLIN3:=FVQPOS(43,"3. Configurar") // Lê a SUBTRING apartir da coluna 43 da tela, claro que você normalmente possue 25 linhas para procurar, então faço um FOR I=1 TO 25, por exemplo.
FUNCTION FVQPOS(VPC,VSTRNG)
Local VPL,VPT,VFND
VPT:=LEN(VSTRNG)
VRET:=2
FOR VPL=3 TO 15
VFND:=CHARODD(SCREENSTR(VPL,VPC,VPT))
VRET:=VRET+1
/*
@ 20,VPC SAY "^"
@ 23,00 SAY VFND
// INKEY(0)
*/
IF VFND=VSTRNG
EXIT
ENDIF
NEXT
RETURN VRET
Espero ter ajudado. Um clip-abraço :)Pos
Enviado: 04 Abr 2007 16:14
por Eduardo Borio
Bom acho que estou sendo meio vago.
Então vamos lá.
Eu tenho um sistema onde vc monta os blocos de tela, ou seja, desenha na tela e salva em arquivo. Como se fosse um form do Delphi.
No meu Prg eu somente carrego este bloco e pronto, minha tela esta desenhada.
Só que tem um porém, no sistema que desenha a tela, eu gravo um chr ALT+255(invisivel ou espaço, como queiram) em cada posicao que eu vou querer fazer um Say ou um Get. assim no prg só leio o chr(255) que foi plotado na tela e nao preciso ficar dando as coordenadas dos Get e Say.
Mas acontece que esta funcao é em asm e está em 16 bits. Como nao conheco Assembly, vou tentar escreve-la em clipper. Para poder migrar p/ xHarbour.
Em clipper eu a uso normalmente, mas quando tento linkar no bcc com hb da pau, e o ilink da um erro dizendo q as funcoes desta lib estao em 16 bits.
Enviado: 04 Abr 2007 16:19
por Eduardo Borio
Opa! Obrigado... enquanto escrevia o outro post vc escreveu o seu.
Era isso mesmo que eu estava precisando.
Muito Obrigado
Nao tenho essa lib. Onde posso encontrar?
e mais uma vez agradeco.
Vlwsss
Enviado: 04 Abr 2007 17:27
por sygecom
Mande seu email que envio pra vc !!!
Enviado: 04 Abr 2007 17:32
por Pablo César
Que bom que serviu a minha dica !.
É bom você utilizar o item BUSCA (no MENU acima) daqui do FORUM, assim as FAQ não se repetem tanto alí você verá assim como neste link:
https://pctoledo.org/forum/viewto ... ght=ct+lib
Então quer dizer que você é programador DELPHI ?. Se eu pedisse um favorzinho você poderia me responder se há solução para o seguinte questão que começa +/- por aqui:
https://pctoledo.org/forum/viewto ... &start=170
Estou apelando ao um programador GUI porque eu acho que ja enchí tanto a paciência do nosso prezado colega MALIGNO, que eu já não sei como ajudar e quem sabe você pudesse dar a sua opinião.
Um clip-abraço :)Pos