Обработка интернет логов

[iskurt]

ув знатоки. Есть файл с логами интернет статистики. для примера вот строка

[2010-01-04 02:04:31] 192.168.1.16 SERVER HTTP GETCache http://dnl-02.geo.kaspersky.com/index/6/u0607g.xml.dif 
[2010-01-04 10:07:34] 192.168.1.14 KATYA HTTP GETCache http://server/favicon.ico 404 Not Found

может кто знает или когда нить писал что нить подобное, для разбора больших таких голов?
дата, время, имя компа, IP-компа, и желательно только адрес сервера, а не всю строку иннет сссылки (в конце название странички - не требуется).
Есть идеи? подкинте...
К стати, это лог от программы CCProxy

С уважением, Денис

[BioHEX]

Используй функции Pos и Copy. Разделителем у тебя служит пробел.

[raxp]

tstringlist и delimiter, DelimitedText.

[iskurt]

Спасибо, отличные подсказки

[iskurt]

не могу сообразить как в середине строки искать пробелы?

fIP := Copy(s,23,pos(s,' '));

то естессно он и не доходит до нужного мне места... посоветуйте...

[BioHEX]

Не правильно используешь Pos, надо:

Pos(' ',str);

Для твоего случая код будет выглядеть так:

Str:=Copy(str,Pos(' ',str)+1,Length(str));
 Time:=Copy(Str,0,Pos(' ',Str)-2); //-2 т.к. скобка нам не нужна

 Str:=Copy(Str,Pos(' ',Str)+1,Length(Str));
 IPstr:=Copy(Str,0,Pos(' ',Str)-1);
...

Но лучше используй tstringlist и delimiter, DelimitedText, как советовал тебе raxp

Вот простейший вариант:

var
 Str:TStringList;
 i:Integer;
begin
 Str:=TStringList.Create;
 Str.Text:=Memo1.Text;

 Str.QuoteChar:= ' ';
 Str.DelimitedText:=Memo1.Text;

 for i:=0 to Str.Count-1 do
  Memo2.Lines.Add(str[i]);

 str.Free;
end;

[iskurt]

Я рылся в иннете, но так и не нашел описание что же делает свойство DelimitedText... блин, подкиньте ссылку, если есть у кого

[BioHEX]

Cвойство DelimitedText
Получает или устанавливает список через большую строку. Эта строка содержит список строк разделенных значением Delimiter (по умолчанию - запятая). Строки, содержащие вложенные пробелы должны быть заключены в QuoteChar (по умолчанию - ").

Свойство QuoteChar
Используется для замыкания строк, которые имеют вложенные пробелы при использовании DelimitedText.

Свойство Delimiter
Используется для разделения строк при использовании DelimitedText

[psycho-coder]

опоздал
Справка Delphi

Represents all the strings in the TStrings object as a single delimited string.

Delphi syntax:

property DelimitedText: string;

C++ syntax:

__property AnsiString DelimitedText = {read=GetDelimitedText, write=SetDelimitedText};

Description

Use DelimitedText to get or set all the strings in the TStrings object in a single string.

When reading DelimitedText, the resulting value delimits individual strings in two ways: each string is surrounded (before and after) by the quote character specified by the QuoteChar property. In addition, individual strings are separated by the character specified by the Delimiter property.

When writing DelimitedText, individual strings must be separated using QuoteChar at both ends, using Delimiter as a separator, or using both these methods.

Note: CommaText is the same as the DelimitedText property when Delimiter is ',' and QuoteChar is '"'.

Что переводится примерно так:

Представляет все строки в TStrings раздельно.

Delphi syntax:

property DelimitedText: string;

C++ syntax:

__property AnsiString DelimitedText = {read=GetDelimitedText, write=SetDelimitedText};

Описание

Используйте DelimitedText для получения или задания(установки) всех строк в TStrings по отдельности.

При чтении DelimitedText, результатом становится значения разделенных строк в двух вариантах(двумя способами): каждая строка разделена на две части (до и после) разделителя, символ который устанавливается свойством QuoteChar. Также, отдельные строки разделяются символом установленным в свойство Delimiter.
При записи DelimitedText, отдельные строки должны быть разделены с использованием свойства QuoteChar с обоих сторон, используйте Delimiter как разделитель или используйте оба этих метода.
Примечание: CommaText тоже, что и свойство DelimitedText, где Delimiter это ',', а QuoteChar - ''''.

P.S. Английский я знаю не очень, поэтому сильно не бейте