Stringlisten und der Text delimiter

[Ajin]

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?

[mkinzler]

Weise mal den Delimiter zu bevor du die datei lädst.

[Klaus01]

Hier ist ein kleines Beispiel zu finden: http://groups.google.de/group/borlan...874cc10f5753d9

Grüße
Klaus

[marabu]

Hallo Jaimy,

wichtig ist, dass du den Delimiter setzt, bevor du auf die Eigenschaft DelimitedText zugreifst:

Delphi-Quellcode:

var
  fn: TFileName;
begin
  // ... 
  with TStringList.Create do
  try
    LoadFromFile(fn);
    Delimiter := '/';
    DelimitedText := Text;
    ShowMessage(Text);
  finally
    Free;
  end;
end;

Grüße vom marabu

[Ajin]

Ach mist... jetzt klappt das auch
Hehe vielen Dank!