Marcos,
Te dei uma solucao com exemplo. Basta usar
[]Os Joel
> 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 ?
> Marco
Paulo desculpa pelo português, mas e a presa meu amigo, mas não deu certo não
e agora ?, Leu meu outro email ?
Atenciosamente.
Marcos Diirr
Marcos
Se você colocar pelo menos 1 vírgula
na frase abaixo eu vou entender o sentido da mesma :)
Paulo deu certo nao repare que so vem um 1 espaço a
Paulo hheheh to abusando ne cara ? mas e que to precisando mesmo meu amigo.
olha so tambem tenho que pegar estes campos que estao em vermelho blz ?
web-proxy,debug,packet 1208372932.554 1117 10.5.50.142 TCP_MISS/206 19832 GET
http://au.download.windowsupdate.com/msdownload/update/v3-19990518/cab
Marcos
Se você colocar pelo menos 1 vírgula
na frase abaixo eu vou entender o sentido da mesma :)
Paulo deu certo nao repare que so vem um 1 espaço antes do ip
Quanto aos espaços em branco são 4 mesmo, verifique a partir
da palavra web!
web-proxy,debug, packet 1208345783.029 1234 10.5.50.90 TCP
Paulo deu certo nao repare que so vem um 1 espaço antes do ip
web-proxy,debug,packet 1208345783.029 1234 10.5.50.90 TCP_MISS/200 5177 GET
http://www.orkut.com/Album.aspx? - DIRECT/66.249.81.85 text/html in 16-Apr
11:38:18.68 from 10.5.50.145
web-proxy,debug,packet 1208345787.136 1026 10.5.50.
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
> 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 ?
Bom dia novamente...
Observe que o Ip que você quer vem após 4 espaços
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] ,
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 :
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/
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 a
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 aj
Claudio Marconi escreveu:
>
> no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
> em arquivo separado.
>
> "tendeu" ?
>
Não!
Não colei nada apenas respondi a pergunta.
Se foi alguma coisa colada é por conta da configuração do Thunderbird :)
>
>
> > Bom dia...
> >
> > 1) Fiz de
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.',l
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,
Marcos,
Fazer o que vc precisa é muito fácil. Uma dica seria a seguinte,
pega essa string e quebre em campos separados por espaços. Por exemplo:
FRASE PARA DEMONSTRACAO. Essa frase ficaria numa Stringlist assim:
Stringlist[0] := FRASE
Stringlist[1] := PARA
Stringlist[2] := DEMONSTRACAO
se vc enviar o arquivo texto em anexo fica mais fácil.
pode enviar ?
Em 15/04/08, marcosdiirr <[EMAIL PROTECTED]> escreveu:
>
> 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/? - DIRECT/64.4
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/? - 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://g
Original Message -
From: Desenvolvimento (Anderson)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 18, 2006 3:23 PM
Subject: Re: [delphi-br] Capturar Texto >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>&
e como saber qual objeto/evento gerou a excessão?
- Original Message -
From: Marco Aurélio (DELPHI)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, August 18, 2006 1:31 PM
Subject: Re: [delphi-br] Capturar Texto >>>>>>>>>>>>>>>
, August 11, 2006 7:22 PM
Subject: [delphi-br] Capturar Texto >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Olá pessoal...
Tenho um sistema e gostaria de capturar o texto do er
Olá pessoal...
Tenho um sistema e gostaria de capturar o texto do erro que aparece na tela
do cliente...
Exemplo... quando acontece algum erro, tanto de tela quando de banco, o
sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log
de erro, e quando fosse dada a m
22 matches
Mail list logo