Text parsen und auswerten

[himitsu]

Du kannst ja auch jede Zeile einzeln abarbeiten und nach den Wörtern suchen ... in S steht der Zeileninhalt.

Delphi-Quellcode:

S := Trim(S);
i := Pos(':', S);
S2 := AnsiLowwerCase(Copy(S, 1, i));
S := Trim(Copy(S, i + 1, MaxInt);
If S2 = 'ort:' Then Ort := S
Else If S2 = 'haus:' Then Haus := S
...
Else If S2 = 'anzahl erwachsene:' Then Begin
  i := Pos('kinder:', AnsiLowerCase(S));
  Erwachsene := Trim(Copy(S, 19, i - 19));
  Kinder := Trim(Copy(S, i + 7, MaxInt));
End Else If S2 = 'vorname:' Then Vorname := S
Else If S2 = 'nachname:' Then Haus := S
...