Série da semana: Primeiros passos no React

Veja mais

Identificação da posição de leitura

07/03/2016

1

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