txt datei filtern

[SirThornberry]

am besten mit "copy" und "posex"

Delphi-Quellcode:

var LStartpos, LEndepos: Integer;
    LPart1, LPart2, LPart3, Lzeile: String;
begin
  Lzeile := '217.184.141.217 - - [22/Apr/2004:17:09:55 +0200] "GET / HTTP/1.1" 200 636 "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)"';

  LStartpos := 1;
  LEndepos := PosEx(' - - [', LZeile);
  LPart1 := copy(LZeile, LStartpos, LEndepos - 1);

  LStartpos := posEx(' - - [', LZeile, LEndepos) + 6;
  LEndepos := posEx('] "', LZeile, LStartpos);
  LPart2 := copy(LZeile, LStartpos, LEndepos - LStartpos);

  LStartpos := LEndepos + 3;
  LEndepos := length(LZeile);
  LPart3 := copy(LZeile, LStartpos, LEndepos - LStartpos);