Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];

Вниз

Анализатор логов 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c