Текущий архив: 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.017 c
