Einzelnen Beitrag anzeigen

Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#4

Re: Text parsen und auswerten

  Alt 1. Mär 2006, 15:18
Zitat von Sharky:
Hai emsländer,

ist das richtig das in der Zeile mit "Anzahl Erwachsene: Kinder:". Ein Doppelpunkt nach Erwachsene steht?
ja. immer nach dem Doppelpunkt beginnt der Wert, welcher durchaus aus mehreren Worten bestehen kann. Ein weiteres Problem ergibt sich bei "Kinder:", denn dieser Bezeichner steht ja in der gleichen Zeile, wie der Wert des vorherigen Bezeichners.

Zitat:

EDIT
Wenn es ein versehen mit dem Doppelpunkt ist könntest Du auch einfach mit den Delphi-Referenz durchsuchenValues einer TStringList arbeiten.
Das könnte zum Beispiel so aussehen:

Delphi-Quellcode:
procedure TDemoForm.Button1Click(Sender: TObject);
var
  sl: TStringList;
  filename: String;
begin
  filename := 'c:\demo.txt';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(filename);
    sl.NameValueSeparator := ':';
    ListBox1.Items.Add(Trim(sl.Values['Kinder']));
    ListBox1.Items.Add(Trim(sl.Values['eMail']));
  finally
    sl.Free;
  end;
end;
Gruss

EL


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat