Eigenes Dateiformat

[Assarbad]

Man nehme Perl oder eine andere beliebige Skriptsprache und konvertiere in ein Format welches mit Delphi leichter zu verarbeiten ist

Alternativ kann man auch einen mit flex selbstgeschriebenen Scanner benutzen.

Ach ja, als Antwort auf Luckies Hinweis XML zu benutzen, möchte ich ein rotzfreches: "Benutz SQLite" einwerfen

[implementation]

Leutchens? Für sowas ist Automatentheorie gut
Man nehme einen deterministischen endlichen Automaten (DEA) und schon geht das ganze ganz einfach.

In etwa so:

Delphi-Quellcode:

type
  TReader = class
  private
    IsTag: Boolean;
    Values: TDictionary<string, string>;
    Current, Tag: string;
  public
    procedure Feed(c: Char);
    procedure Push;
  end;

procedure TReader.Push;
begin
  if IsTag then begin
    Tag := Current;
    Current := '';
  end else begin
    Values[Tag] := Current;
    Current := '';
  end;
end;

procedure TReader.Feed(c: Char);
begin
  if c = '<' then begin
    Push;
    IsTag := true;
  end else if c = '>' then begin
    Push;
    IsTag := false;
  end else Current := Current + c;
end;

...

for i := 1 to Length(dateialsstring) do
  Reader.feed(dateialsstring[i]);

Keine Garantie auf Richtigkeit, nur schnell zusammengetippt.

[Luckie]

Man beachte die Delphi Version: D3 Prof.

[implementation]

Zitat von Luckie:

Man beachte die Delphi Version: D3 Prof.

Demnach geht dann halt kein generisches Dictionary. Aber bei dem Beispiel ging es eher um das Prinzip des Automaten.

[ot]Mit Generics in Delphi habe ich sowieso noch nie gearbeitet. Bin zum FPC und dann zu C# gewechselt, bevor die kamen. Und beim FPC ham die 'ne andere Syntax. [/ot]

[Bummi]

oder Quick and Dirty

Delphi-Quellcode:

type
  TAdresse=Record
    Name:String;
    Adresse:String;
    Telefon:String;
    Geboren:String;
  End;
TAdressArray=Array of TAdresse;

var
  Form1: TForm1;
  AdressArray:TAdressArray;

implementation

{$R *.dfm}
Procedure ReadToArray(fn:String);
type
  rStatus=(Name,Adresse,Telefon,Geboren);
var
  sl:TStringList;
  i:Integer;
  lStatus:rStatus;
  Procedure AppendTo(Var s:String);
    var
      nz:String;
    begin
      if Length(s)>0 then nz := #13#10 else nz := '';
      s := s + nz+ sl[i];

    end;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(fn);
    for I := 0 to sl.Count - 1 do
       begin
         if Trim(sl[i])='<Name>' then
            begin
               lStatus:=Name;
               SetLength(AdressArray,High(AdressArray) + 2);
            end
         else if Trim(sl[i])='<Adresse>' then
            begin
               lStatus:=Adresse;
            end
         else if Trim(sl[i])='<Telefon>' then
            begin
               lStatus:=Telefon;
            end
         else if Trim(sl[i])='<Geb.datum>' then
            begin
               lStatus:=Geboren;
            end
         else
            begin
              case Lstatus of
                Name:    AppendTo( AdressArray[High(AdressArray)].Name);
                Adresse: AppendTo( AdressArray[High(AdressArray)].Adresse);
                Telefon: AppendTo( AdressArray[High(AdressArray)].Telefon);
                Geboren: AppendTo( AdressArray[High(AdressArray)].Geboren);
              end;
            end;

       end;
  finally
    sl.Free;
  end;
end;

[himitsu]

< durch [ und > durch ] ersetzt und schon hat man eine "leicht" vermurkste INI, welche man z.B. mit FastIniFiles auslesen könnte.

[Sir Rufo]

oder so

Code:

{ 
"Name":"Karl Heinz",
"Adresse":  "Im weiten Feld 23/n/rZimmer 3/n/r79856 Fritzlar"
"Telefon":"07985/ 865656",
"Geb.datum":"14.07.1978"
}

als JSON

[Assarbad]

Zitat von Luckie:

Man beachte die Delphi Version: D3 Prof.

5, lt. Beitrag. Wobei das an der Kritik nichts ändert. Wie ich das so sehe sind Generics dabei ...

[Luckie]

Laut Profil 3. Aber das ändert nichts.

[implementation]

Zitat von Assarbad:

Zitat von Luckie:

Man beachte die Delphi Version: D3 Prof.

5, lt. Beitrag. Wobei das an der Kritik nichts ändert. Wie ich das so sehe sind Generics dabei ...

Zitat von Luckie:

Laut Profil 3. Aber das ändert nichts.

Siehe mein Folgebeitrag. Das generische Dictionary war nur als Quick&Dirty-Beispiel, es ging vielmehr um den DEA.

Zitat von Bummi:

oder Quick and Dirty
...

Also ich halte den DEA für flexibler, falls das Format noch weiter ausgebaut werden soll.

Zitat von himitsu:

< durch [ und > durch ] ersetzt und schon hat man eine "leicht" vermurkste INI, welche man z.B. mit FastIniFiles auslesen könnte.

Die wäre aber sehr vermurkst.

Zitat von Sir Rufo:

oder so

Code:

{ 
"Name":"Karl Heinz",
"Adresse":  "Im weiten Feld 23/n/rZimmer 3/n/r79856 Fritzlar"
"Telefon":"07985/ 865656",
"Geb.datum":"14.07.1978"
}

als JSON

Er ist ja nicht auf der Suche nach neuen Möglichkeiten, die Daten zu speichern, sondern möchte Dateien in seinem bisherigen Format auslesen.