Анализатор логов Squid [D6, Win2k]
PTE © (2002-06-17 15:27:00)
Здравствуйте
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:00) [1]
"". #32, #$20
Наверх 
ЧАТ |
Орешник |
|
