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...