Strings zerlegen in 3 Stringlisten

[Jelly]

Wenn dein format noch offen ist... Warum nicht XML ?

[Blackheart]

Nur kurz reingeschaut, wie wärs mit Kommatext.

[bluescreen25]

Zitat:

Zitat von Jelly

Wenn dein format noch offen ist... Warum nicht XML ?

Ich habe mich damit noch nicht auseinandergesetzt. Ich werde mir das mal anschaun.

Gruß,bluescreen25

[Jelly]

Na dann such mal im Forum nach TXMLDocument ;-)

[bluescreen25]

nochmal zu Vervollständigung der zur Zeit eingesetzte funktionierende Code, bei dem auch ein paar kleine Fehler in der TXT-Datei verziehen werden.

Delphi-Quellcode:

procedure CreatePhone;
var i,iline :integer;
    temp,pName,pNumber,pArea:string;
begin
  phoneFullLst := TStringList.Create;
  phoneFullLst.Sorted := true;      //Gesamtliste Eigenschaft sortiert
  phoneNameLst := TStringList.Create;
  phoneNumberLst := TStringlist.Create;
  phoneAreaLst := TStringlist.Create;
  
if FileExists(ProgrammPfad + '\tbook.txt') then//Gesamtliste einlesen,automatisch sortiert
  begin

    phoneFullLst.LoadFromFile(ProgrammPfad + '\tbook.txt');

    for iline:= phoneFullLst.Count-1 downto 0 Do   //Gesamtliste Leerzeilen löschen
    Begin
      if Length(phoneFullLst.Strings[iline]) = 0 then
        Begin
          phoneFullLst.Delete(iLine);
          Continue;
        End;
    end;

    for I:=0 to phoneFullLst.Count-1 do    //Gesamtliste Zerlegung in einzelne Stringlisten
    begin
      temp := phoneFullLst.strings[i];

      pName := SplitString(temp,',');            //Name
      phoneNameLst.Add(pName);

      pNumber := SplitString(SplitedString,','); //Nummer
      if Length(pNumber) > 0 then phoneNumberLst.Add(pNumber)
      else phoneNumberLst.Add('0');

      pArea := SplitString(SplitedString,' ');   //Area
      if (Length(pArea) > 0) and (pArea = 'Home') or (pArea = 'Work') or (pArea = 'Mobile') then
      phoneAreaLst.Add(pArea) else phoneAreaLst.Add('Home');
    end;
 end;
end;

Gruß, bluescreen25