Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringlist;
Teilstring: String;
datum,p1,p2,vf: String;
i : Integer;
begin
sl:= TStringlist.Create;
try
if Opendialog1.execute then
begin
sl.LoadFromFile(Opendialog1.Filename);
for i:= 0 to sl.Count-1 do
begin
Teilstring := sl[1];
label1.caption := Teilstring;
datum := copy(Teilstring,1,17);
p1:=copy(teilstring,19,4);
p2:=copy(teilstring,24,5);
vf:=copy(teilstrig,37,16);
showMessage(datum+' '+p1+' '+p2+' '+vf);
end;
end;
except
ShowMessage ('Super!');
end;
sl.Free;
end;
Zitat:
12345678901234567890123456789012345678901234567890 12
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
Wenn die Zeile immer gleich lang ist, dann brauchst Du nicht zwingend
mit pos arbeiten. Du kannst die Bereiche die Dich intessieren auch direkt im copy angeben.
Grüße
Klaus
[edit] zu spät :o( [/edit]