no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
em arquivo separado.
"tendeu" ?
Em 16/04/08, Paulo Casagrande <[EMAIL PROTECTED]> escreveu:
>
> Bom dia...
>
> 1) Fiz de cabeça!
> 2) Não testei!
> 3) Os ajuste é com você!
> 4) Okay ?
>
> s := copy(linha[i],pos('10.5.50.',linha[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/?> - 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/?> - 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.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.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/?>
> > 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.
> >
>
>
>
--
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451
[As partes desta mensagem que não continham texto foram removidas]
