PARA AGILIZAR EM MUITO ESTE METODO UTILIZE O FUNCAO POS()
que ao encontrar a primeira ocorrencia de busca descarta o resto da linha
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i: integer
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do begin
if pos('*',linha) then // ALTERDO AQUI RETIRADO O FOR
Begin
// Faz o que for preciso
End;
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;
[EMAIL PROTECTED]
Analista de Sistemas
itamar roloff
-------------------------------------------
----- Original Message -----
From: "dom_rr2004" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, December 23, 2004 8:38 AM
Subject: [delphi-br] Re: Localizar linha em arquivos texto
Bom dia companheiro.
Aqui tem um procedimento que lê o arquivo linha por linha e em cada
linha verifica caracter por caracter. Se encontra o caracter
procurado (no exemplo o '*') então faz o que for preciso.
{ Para ler o arquivo }
procedure percorreArquivoTexto ( nomeDoArquivo: String );
var
arq: TextFile;
linha: String;
i: integer
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do begin
for i := 1 to Length(linha) do
if Copy(linha,i,1) = '*' then
// Faz o que for preciso
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;
Espero que ajude e que você tenha um ótimo dia.
--- Em delphi-br@yahoogrupos.com.br, Leandro Ferreira
<[EMAIL PROTECTED]> escreveu
> Boa Tarde Pessoal,
>
> Preciso da ajuda de vocês para descobrir como construo um if
onde o
> parte do conteúdo contenha '*' ou '.'.
>
> Por exemplo: dentro do meu arquivo texto, possuo uma linha
> 'teste*.txt=teste*.txt.*.passou' e
outra 'txt.teste=txt.*.teste.passou'.
> Estas duas linhas precisam ser inclusas num listbox ou memo desde
que o
> conteúdo delas possua até chegar no símbolo de '=' os símbolos
de '*' ou
> '.'.
>
> Agradeço a ajuda de todos,
>
> --
> Leandro Ferreira
> Desenvolvedor - Tecnologia
> NEXXERA Tecnologia e Serviços S.A.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
