Identificação da posição de leitura
Pessoal, bom dia / boa tarde / Boa noite.
A minha dúvida é a seguinte.
Vou ler um TXT e procurar por uma determinada palavra "CNPJ", por exemplo.
Para isso, posso utilizar o POS em Delphi.
with TStringList.Create do begin
LoadFromFile(arquivo.Text);
if(Pos(DELPHI,Text)>0)then begin
//true Sim tem a palavra DELPHI!!!!
end;
end;
Blz, achei a palavra, agora precisaria identificar em qual linha ele achou esta palavra para que eu executasse uma identificação do caracter que se encontra logo na linha abaixo.
A ideia seria a seguinte:
Com o comando a seguir eu consigo ler qualquer linha
CNPJ := Arquivo.Strings[XX]; // o campo XX seria responsável pelo número da linha a ser lido.
Como fazer isso via Delphi
A minha dúvida é a seguinte.
Vou ler um TXT e procurar por uma determinada palavra "CNPJ", por exemplo.
Para isso, posso utilizar o POS em Delphi.
with TStringList.Create do begin
LoadFromFile(arquivo.Text);
if(Pos(DELPHI,Text)>0)then begin
//true Sim tem a palavra DELPHI!!!!
end;
end;
Blz, achei a palavra, agora precisaria identificar em qual linha ele achou esta palavra para que eu executasse uma identificação do caracter que se encontra logo na linha abaixo.
A ideia seria a seguinte:
Com o comando a seguir eu consigo ler qualquer linha
CNPJ := Arquivo.Strings[XX]; // o campo XX seria responsável pelo número da linha a ser lido.
Como fazer isso via Delphi
Fábio Sela
Curtidas 0
Respostas
Wazowski
07/03/2016
Se tu jogar um txt dentro de uma StringList, as linhas do txt serão divididas em strings do stringlist... tu vai passar num FOR essa stringslist lendo linha por linha e procurando por sua palavra, quando tu encontrar, o index do teu FOR será o numero da linha e o POS será a posição da primeira letra da tua palavra...
GOSTEI 0
Fábio Sela
07/03/2016
funciona com memo ou só com a StringList,?
GOSTEI 0
Wazowski
07/03/2016
Funciona com memo tbm, é só dar um Memo1.Lines.LoadFromFile(...); e usar Memo1.Lines[X] dentro de um FOR
GOSTEI 0
Natanael Ferreira
07/03/2016
Fábio,
Você chegou a testar o código que postei no seu outro post? Link do outro post
Creio que ajuda no que você precisa.
Você chegou a testar o código que postei no seu outro post? Link do outro post
Creio que ajuda no que você precisa.
GOSTEI 0
Fábio Sela
07/03/2016
não estou conseguindo escrever o código, conseguem me ajudar?
GOSTEI 0
Natanael Ferreira
07/03/2016
Criei um projeto de exemplo básico e salvei neste link:
http://www.4shared.com/zip/s4a5zV9Ace/Ler_Txt.html
Baixe e teste para ver se é o que precisa.
http://www.4shared.com/zip/s4a5zV9Ace/Ler_Txt.html
Baixe e teste para ver se é o que precisa.
GOSTEI 0
Fábio Sela
07/03/2016
Resolvido.
Obrigado a todos que ajudaram.
Obrigado a todos que ajudaram.
GOSTEI 0