var
list: TStringList;
i : integer;
// declara as outra variaveis
begin
list := TStringList.Create;
list.LoadFromFile( 'C:\meuarquivo.log');
for i := 0 to list.count - 1 do
begin
// executa a captura dos dados
// Grava no arquivo
end;
// Quando ele sair do loop, acabou o arquivo!
end;
>
> Valeu Paulo.... prob. quase resolvido.
> agora preciso percorer o aquivo txt ate o final gravando cada campo em
> um banco de dados como posso fazer isto e o sistema me avisar que ja
> compretou chegou a ultima linha ?
>
> Atenciosamente
> Marcos Diirr
>
> Bom dia...
>
> 1) Fiz de cabeça!
> 2) Não testei!
> 3) Os ajuste é com você!
> 4) Okay ?
>
> s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
> ip := copy(s, 1, pos( ' ', s)-1);
> s := copy(s,pos(' GET',s)+3, maxint);
> url := copy(s, 1, pos( '- DIRECT', s)-1);
> s := copy(s,pos(' in ',s)+4,maxint) ;
> data := copy(s, 1, pos( ' ', s)-1);
> Hora := copy(s,pos(' ',s)+1,8);
>
> Boa sorte
> >
> > ex. tenho um arquivo txt conforme abaixo
> >
> > web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> > GET http://go.microsoft .com/fwlink/ ?
> > <http://go.microsoft .com/fwlink/ ?
> <http://go.microsoft.com/fwlink/?>> - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.71 from 10.5.50.1
> > web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> > GET http://go.microsoft .com/fwlink/ ?
> > <http://go.microsoft .com/fwlink/ ?
> <http://go.microsoft.com/fwlink/?>> - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.72 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> > TCP_CLIENT_REFRESH_ MISS/304 171 GET
> > http://www.microsof t.com/brasil/ technet/rss/ rss.xml
> > <http://www.microsof t.com/brasil/ technet/rss/ rss.xml
> <http://www.microsoft.com/brasil/technet/rss/rss.xml>> -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> > GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
> > <http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
> <http://www.microsoft.com/brasil/msdn/rss/rss.xml>> -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> >
> > preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> > ou - assim
> >
> > ex. 1 linha do arquivo acima
> >
> > campo ip campo - 10.5.50.2
> > ur - http://go.microsoft .com/fwlink/ ? <http://go.microsoft
> .com/fwlink/ ? <http://go.microsoft.com/fwlink/?>>
> > Campo data - 26-Mar
> > Campo hora - 17:13:3.71
> >
> > e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> > faça isto ?
> >
> > ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> > posição
> >
> > mas preciso de ex. mais basico
> >
> > Desde ja fico muito grato com qualquer ajuda.
>
