Marcos, Não acompanhei toda a thread mas vejamos se posso ajuda-lo:
Com base do trecho abaixo do arquivo: " web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 TCP_MISS/302 556 GET http://go.microsoft .com/fwlink/ ? " Procedure le_arquivo(sAquivo:String;); var sLinha : String; iPos, iLinha : Integer; sIP, sURL , sDado : tStrings; const TRECHOIP = 'web-proxy,debug, packet 1206551497.262 921 '; TRECHOURL = 'GET '; FIM =' ?'; Begin sDado:=tStringList.Create; sIP:=tStringList.Create; sURL:=tStringList.Create; //-- Deve ser feita uma validação da existencia do arquivo !!! sDado.LoadFromFile(sArquivo); For iLinha:=0 to sDado.Count-1 do begin sLinha := sDado[iLinha]; iPos := Pos(TRECHOIP,sLinha); If iPos>0 then begin sLinha := Trim(Copy(sLinha,iPos+Length(TRECHOIP),Length(sLinha) ); sIP.Add(Copy(sLinha,1,Pos(sLinha,' ')-1); sLinha := Copy(sLinha,Pos(sLinha,' '),Length(sLinha)); iPos := Pos(TRECHOURL,sLinha); sLinha := Trim(Copy(sLinha,iPos+Length(TRECHOURL),Length(sLinha)); sURL.Add(trim(Copy(sLinha,1,Pos(sLinha,FIM)-1))); end; end; //-- Aqui utiliza sIP e sURL... end; Não testei o codigo acima mas acredito que deva te ajudar !! Sucesso !!! Moacir marcosdiirr escreveu: > Paulo, em primeiro lugar bom dia... > Cara de coração obrigado mesmo pela ajuda. > mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e > ai, como eu faria ? > 191.... 200.. 20.. 45... entendeu ? > Marcos Diirr > > Bom dia... > > if pos('10. 5.50.',List[ i]) <> 0 then > s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) > else > s := copy(List[i] ,pos('192.168.',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! > > >> Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser >> 192.168.254. * e ai como fica esta linha abaixo >> s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ; >> >> so para lembrar da linha >> web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 >> GET http://go.microsoft .com/fwlink/ ? >> web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 >> TCP_MISS/302 556 >> GET http://go.microsoft .com/fwlink/ ? >> >> Cara Valeu mesmo por sua ajuda. >> >> >> > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------ > > [As partes desta mensagem que não continham texto foram removidas]
