Identificação da posição de leitura

07/03/2016

0

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
Fábio Sela

Fábio Sela

Responder

Posts

07/03/2016

Wazowski

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...
Responder

07/03/2016

Fábio Sela

funciona com memo ou só com a StringList,?
Responder

07/03/2016

Wazowski

Funciona com memo tbm, é só dar um Memo1.Lines.LoadFromFile(...); e usar Memo1.Lines[X] dentro de um FOR
Responder

07/03/2016

Natanael Ferreira

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.
Responder

07/03/2016

Fábio Sela

não estou conseguindo escrever o código, conseguem me ajudar?
Responder

07/03/2016

Natanael Ferreira

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.
Responder

16/03/2016

Fábio Sela

Resolvido.

Obrigado a todos que ajudaram.
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar