Hi!
Ich muss eine böse Textdatei einlesen und auseinandernehmen.
Sie sieht ungafähr so aus:
ANFANGSSTRING/BLA1/BLA2/HUHU//DASISTTOLL/TOTALGENIAL/TEST//ICHWARS/DOCHNICHT/TEUHUE//
Ich habe einmal ein '/' als Segment-Trenner und manchmal ein '//'
Ich möchte jetzt die Datei Segmentweise lesen, d.h. immer bis zum '/'
Dann könnte ich die Segmente einzeln verarbeiten:
ANFANGSSTRING
BLA1
BLA2
HUHU
...
Jetzt wurde mir angeraten mit dem Delimiter zu arbeiten. Äh das hab ich noch nicht ganz hinbekommen.
Delphi-Quellcode:
var
SL: TStringList;
begin
SL := TStringList.Create;
//Stringliste befüllen
SL.Loadfromfile(myfile);
//Trenner bekanntmachen
SL.Delimiter := '/';
//jetzt muss ich die Datei lesen bis zum ersten '/' und das Wort merken ANFANGSSTRING
//weiterlesen bis zum nächsten '/' und das Wort merken BLA1
//usw bis EOF
SL.Free;
end;
Hm ich bin leider völlig überfragt wie man das realisieren könnte. Wisst ihr Rat?