Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: CL | DM;

Вниз

Анализатор логов Squid   Найти похожие ветки 

 
PTE ©   (2002-06-17 15:27) [0]

Здравствуйте
Squid при работе ведет логи примерно такие строчки я разделю звездочками *, но в логах их нет

1024187131.580 1465 192.168.2.90 TCP_MISS/200 5314 GET http://www.avp.ru/updates/ - DIRECT/213.59.0.92 text/html
***********************************************************
1024187132.524 940 192.168.2.90 TCP_CLIENT_REFRESH_MISS/200 3303 GET http://www.avp.ru/updates/avp.klb - DIRECT/213.59.0.92 application/octet-stream
************************************************************
1024187133.840 357 192.168.2.90 TCP_MISS/200 794 GET http://www.avp.ru/updates/avp.set - DIRECT/213.59.0.92 application/octet-stream

Мне надо загрузить эти логи в разные ListBox, разделять после пробелов насколько я понимаю. Смотрел на форуме был вопрос про логи апаче, там их загружали примерно так
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S, strData, strIP, strEvent, strMessage: String;
First, Last: Integer;
begin
AssignFile(F, Edit1.Text);
Reset(F);
while not EOF(F) do
begin
ReadLn(F, S);
First := Pos("[", S);
Last := Pos("]", S);
strData := Copy(S, First + 1, Last - First - 1); // Дата
S := Copy(S, Last + 1, Length(S));
ListBox1.Items.Add(strData);


Тут я понимаю надо скобки [] заменить на пробел, я прав? если да, то как? просто " " или есть специальные обозначения для пробела?


 
Anatoly Podgoretsky ©   (2002-06-17 15:45) [1]

"". #32, #$20



Страницы: 1 вся ветка

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
14-89030
MaximatorVeter
2002-05-23 17:47
2002.06.27
Что ещё предстоит сделать программистам?


3-88765
SKing
2002-06-04 10:18
2002.06.27
Sweep с помощью IBX ?


6-88981
ATLANTIDO
2002-04-16 23:55
2002.06.27
Сетевое окружение


4-89085
Serd_hhc
2002-04-29 15:54
2002.06.27
Удаление папки...


1-88887
Vovka001
2002-06-12 14:39
2002.06.27
Печать из W98/2K..