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]