Arquivo de texto...Uma boa ajuda......
Amigos,
tenho um arquivo de texto com as seguintes linhas:
12/08/2005 CH 252525 25,36
18/08/2005 CH 85225 102,36
15/08/2005 TRANS 254 1.362,36
o que eu quero fazer é o seguinte:
PESQUISAR NESTE ARQUIVO DE TEXTO SÓ AS LINHAS QUE TENHA A PALAVRA (CH) E ENVIAR A LINHA INTEIRA PARA UM MEMO.
COMO FAÇO ISSO?
tenho um arquivo de texto com as seguintes linhas:
12/08/2005 CH 252525 25,36
18/08/2005 CH 85225 102,36
15/08/2005 TRANS 254 1.362,36
o que eu quero fazer é o seguinte:
PESQUISAR NESTE ARQUIVO DE TEXTO SÓ AS LINHAS QUE TENHA A PALAVRA (CH) E ENVIAR A LINHA INTEIRA PARA UM MEMO.
COMO FAÇO ISSO?
Fábio Galvão
Curtidas 0
Respostas
Joaoshi
20/08/2005
Colega,
Utilizando o READLN, seria algo assim:
var tLinha:TextFile;
sTexto:String;
begin
AssignFile(tLinha,NomeDoSeuArquivoTexto);
Try
Reset(tLinha);
While not eoln(tLinha) do // le até o fim do texto
begin
ReadLn(tLinha,sTexto); // carrega sTexto com a linha
// aqui você coloca o seu codigo para verificar se tem CH
// se for cheque Memo1.Lines.Add(sTexto);
end;
Finally
CloseFile(tLinha);
end;
Espero ter ajudado.
Utilizando o READLN, seria algo assim:
var tLinha:TextFile;
sTexto:String;
begin
AssignFile(tLinha,NomeDoSeuArquivoTexto);
Try
Reset(tLinha);
While not eoln(tLinha) do // le até o fim do texto
begin
ReadLn(tLinha,sTexto); // carrega sTexto com a linha
// aqui você coloca o seu codigo para verificar se tem CH
// se for cheque Memo1.Lines.Add(sTexto);
end;
Finally
CloseFile(tLinha);
end;
Espero ter ajudado.
GOSTEI 0