Copy apartir de uma posiηao
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
Curtidas 0
Respostas
Joaoshi
06/06/2008
Colega, tente assim:
No evento onClick de um button
Espero ter ajudado.
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
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