Copy apartir de uma posiçao

06/06/2008

2

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 ]



Responder

Posts

06/06/2008

Joaoshi

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.


Responder

06/06/2008

Paulo

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.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar