Servus,
danke für eure Hilfe,
hier ist der aktuelle Quelltext
Code:
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringlist;
Teilstring: String;
teil1, teil2: String;
i : Integer;
begin
sl:= TStringlist.Create;
try
if Opendialog1.execute then
begin
sl.LoadFromFile(Opendialog1.Filename);
Teilstring := sl[1];
label1.caption := Teilstring;
teil1 := copy(Teilstring,1,pos('xD',Teilstring)));
teil2 := copy(Teilstring,pos('LOL',data)+3,pos('=',Teilstring)));
for i:= 0 to sl.Count-1 do
begin
// Datenverarbeitung;
// sl.Strings[i]
end;
end;
except
ShowMessage ('Super!');
end;
sl.Free;
end;
Der Quelltext ist nicht fertig, ich änder ihn wenn wir das hier geschafft haben:
Das Problem ist, dass es nicht immer ein "xD" in der Datei gibt, die Werte stehen aber immer an einer Stelle pro Zeile.
Nochmal ein paar Zeilen:
23:13:24.44122112 PP:2 PP2:3 xD LOL VLC/VXX = 150/77
24:13:25.78945612 Pi:3 PP2:4 xD LOL VLY/VYX = 150/77
25:15:27.78985612 Pu:3 PP4:5 xD LOL VLF/FYX = 150/77
Wie liest man das nun ein(also die ZeilenStelle ...)?
ThX
Ich bin für jede Hilfe dankbar, muss das heute beenden !