Inhalt einer txt Datei mit TStringList richtig auslesen?

[AlexII]

Hallo,

hab eine .txt-Datei mit folgendem Inhalt:

Zitat:

Hans=Mustermann=27=Hesse
Jasmin=Musterfrau=26=NRW

Dieses will ich mittels TStringList auslesen, die Vornamen in einer ListBox anzeigen, den Nachnamen, das Alter und Bundesland in Labels.

Hab das so probiert, hier wird aber das Alter und das Bundesland nicht ausgegeben.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    ListBox1.Items.Add(List.Names[i]);
    ListBox1.ItemIndex:=0;
    Label1.Caption:=List.Values[ListBox1.Items[ListBox1.ItemIndex]];
    Label2.Caption:=?????
    Label3.Caption:=?????
  finally
    List.Free;
  end;
end;

Wer sagt mir wie ich das anders und vor allem richtig mache?

[himitsu]

Da TStringList nur ein Name=Value-Paar kennt, mußt du selber trennen

Pos('=', ...) + Copy

oder Explode

[AlexII]

Hab das jetzt so gemacht, aber irgendwie funktionieren das nicht.
Die Fehlermeldung lautet: ')' erwartet, aber ';' gefunden. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i, Pos1, Pos2, Pos3, Pos4, Pos5: Integer;
    s, s2: String;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    {s:=List[i];
    Pos1:=Pos('=', s);
    Pos2:=PosEx('=', s, Pos1+1);
    Pos3:=PosEx('=', s, Pos2+1);
    Pos4:=PosEx('=', s, Pos3+1);
    Pos5:=PosEx('=', s, Pos4+1);
    s2:=Copy(s, Pos1+1, Pos2-Pos1-1);}

    ListBox1.Items.Insert(i, Copy(List[i], Pos('=', List[i])+1, PosEx('=', List[i], Pos('=', List[i])+1) - Pos('=', List[i])-1);
  finally
    List.Free;
  end;
end;

Die txt sieht so aus:

Zitat:

=Hans=Mustermann=27=Hesse=
=Jasmin=Musterfrau=26=NRW=

[AlexII]

Hab schon gefunden, pardo. Hab das jetzt wie folgt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    {s:=List[i];
    Pos1:=Pos('=', s);
    Pos2:=PosEx('=', s, Pos1+1);
    Pos3:=PosEx('=', s, Pos2+1);
    Pos4:=PosEx('=', s, Pos3+1);
    Pos5:=PosEx('=', s, Pos4+1);
    s2:=Copy(s, Pos1+1, Pos2-Pos1-1); }

    ListBox1.Items.Insert(i, Copy(List[i], Pos('=', List[i])+1, PosEx('=', List[i], Pos('=', List[i])+1) - Pos('=', List[i])-1));
  finally
    List.Free;
  end;
end;

[mkinzler]

Zitat:

Die Fehlermeldung lautet: ')' erwartet, aber ';' gefunden. Was mache ich falsch?

In welcher Zeile?
Man könnte es auch mit einer 2. StringListe lösen

Delphi-Quellcode:

...
    List2 := TStrimgList.Create;
    List2.Delimiter := '=';
    for i := 0 to List.Count-1 do 
    begin
        List2.DelimitedText := List[i];
        ...

[AlexII]

Wow... jetzt hast du mich ganz durcheinander gebracht

Und wie geht der Code weiter?

[mkinzler]

Der Vorname steht dann in List2[1], der Nachname in List2[2] usw.

[AlexII]

Ja... ich verstehe nicht wie ich die Daten in die ListBox bekomme?

[mkinzler]

ListBox1.Items.Insert(i, List2{1]);

[AlexII]

Hab das jetzt so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  List:=TStringList.Create;
  List2:=TStringList.Create;
  List2.Delimiter:='=';
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    List2.DelimitedText:=List[i];

    ListBox1.Items.Insert(i, List2[1]);

Bekomme aber zwei Fehlermeldungen:

Zitat:

1. FOR-Schleifenvariable 'i' kann nach dem Durchlauf undefiniert sein
2. Zeile kann nicht eingefügt werden