Copy apartir de uma posiηao

Delphi

06/06/2008

Como faηo para copiar um pedaηo de uma string apartir de uma determinada posiηγo? Digamos que eu tenha o arquivo abaixo e quero copiar somente o que vem apσs as palavras: CCF:, COO: e NOME:

FITA-DETALHE Emissγo: 06/06/2008 10:43:39V DATAi=01/05/2008 DATAf=06/06/2008 ————————————————————————————————————————————————————————— 07/05/2008 15:52:23V CCF:001478 COO:002169 CNPJ/CPF CONSUMIDOR: 111.222.333-44 NOME: MARIA DA SILVA CUPOM FISCAL ITEM CΣDIGO ST DESCRIΗΓO VL ITEM(R$) 1 00114265020262 T4 [T:U ] GRAVATA SEDA JACQUARD FPT 1 x 49,80 49,80 2 00041365090263 T4 [T:6 ] CAMISA M/L S/BOT.ALGODAO D 1 x 99,00 99,00 —————————————————— TOTAL R$ 148,80 CARTAO 148,80 T4=18,00¬ ————————————————————————————————————————————————————————— COMPRE MAIS E PAGUE MENOS ========================= Visite nosso Site na Internet ———————————————————————————————————————————————— ————————————————————————————————————————————————————————— [ QGibpck#b52124wtqCauVzN4MnvaXEKf@**?KUZvfIS5DM ] FITA-DETALHE Emissγo: 06/06/2008 10:43:39V DATAi=01/05/2008 DATAf=06/06/2008 ————————————————————————————————————————————————————————— 07/05/2008 16:02:22V CCF:001479 COO:002170 CUPOM FISCAL ITEM CΣDIGO ST DESCRIΗΓO VL ITEM(R$) 1 00184266030192 T4 [T:M ] MALHA GOLA V FINA LISA 212 1 x 59,70 59,70 —————————————————— TOTAL R$ 59,70 A VISTA 59,70 T4=18,00¬ ————————————————————————————————————————————————————————— COMPRE MAIS E PAGUE MENOS ========================= Visite nosso Site na Internet ———————————————————————————————————————————————— ————————————————————————————————————————————————————————— [ BGHPMzSEFYkQZ8U@7WQ99cZS*Uh7@JUr?N6nakgz@opF*R ]



Paulo

Paulo

Curtidas 0

Respostas

Joaoshi

Joaoshi

06/06/2008

Colega, tente assim:

No evento onClick de um button

begin
  edit1.Text := ΄07/05/2008 15:52:23V CCF:001478 COO:002169΄;
  edit2.Text := Copy(edit1.Text, Pos(΄CCF:΄,edit1.text) + 4,6);
  edit3.Text := Copy(edit1.Text, Pos(΄COO:΄,edit1.text) + 4,6);
end;


Espero ter ajudado.


GOSTEI 0
Paulo

Paulo

06/06/2008

Olα, joaoshi, obrigado pela resposta. Quanto ao seu cσdigo, beleza ele realmente copia a posiηγo que eu quero. Atι funcionou legal. Mas eu acho que nγo consegui me fazer entender, mas vou tentar novamente. O que eu gostaria ι de ir varrendo o arquivo, e para cada coincidκncia, eu fosse armazenando e depois descarregar num memo ou num arquivo texto.


GOSTEI 0
POSTAR