txt datei filtern

[XeRo]

Na toll, ich plag mich da ab, und versuch auf eine lösung zu kommen, dabei hat sie SirThornberry bereits gebracht.

meine sah so aus...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
   aha='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)"';

var
 a,b:Integer;
 c,d:Boolean;

begin
For a:=1 to Length(aha) do
 begin
  if (aha[a]=' ')and(c=False) then
   begin
    StringGrid1.Cells[0,0]:=Copy(aha,0,a);
    c:=True;
   end;
  if aha[a]='[' then b:=a;
  if aha[a]=']' then StringGrid1.Cells[1,0]:=Copy(aha,b,a);
  if (aha[a]='"')and(d=False) then
   begin
    StringGrid1.Cells[2,0]:=Copy(aha,a,Length(aha));
    d:=True;
   end;
 end;
end;

Einen Versuch wars wert...