Textdatei als Datenbank nutzen

[Redeemer]

Das Dateiformat wird in der Regel CSV sein. Entgegen des Namens benutzt man meistens Semikolons zur Trennung. Auch Excel tut das.

Hier ein paar sehr einfache Funktionen aus meinen Projekten, mit Sicherheit verbesserungsfähig aber sie sollten dir helfen.

Einen Typ für ein dynamisches zweidimensionales Array erstellen, macht Zuweisungen einfach:

Delphi-Quellcode:

type TString2D = array of array of string;
Database: TStrings2D;

Eine Funktion zum Auslesen der CSV-Daten einer TStringList (Fields = Anzahl der Spalten).

Delphi-Quellcode:

procedure InitDatabase();
function CSVToArray(Input: TStrings; Fields: Integer): TString2D;
var
  i, j, k, l: Integer;
  s: string;
begin
  i := Input.Count;
  SetLength(Result, i);
  j := 0;
  repeat
    s := Input.Strings[0];
    l := 0;
    SetLength(Result[j], Fields);
    for k := 1 to Length(s) do
    if s[k] = ';' then
    inc(l)
    else
    Result[j][l] := Result[j][l] + s[k];
    inc(j);
    Input.Delete(0);
    dec(i);
    if i = 1 then
    s := '';
  until i = 0;
end;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('database.csv');
    Database := CSVToArray(sl, 42); // 42 ändern zur Anzahl der maximal genutzten Spalten
  finally
    sl.Free;
  end;
end;

Anschließend kann man auf die Strings zugreifen: Database[1][0] (erste Spalte des zweiten Datensatzes)
Wichtig ist, dass es zunächst mal alles Strings sind, man sie also ggf. in Zahlen umwandeln muss, um damit zu rechnen.

Die Funktion unterstützt keine Quantifiers, sprich du solltest keine Semikolons in deinen Einträgen verwenden.

[mkinzler]

Man könnte auch ein CSVDataSet verwenden oder noch besser ein (embedded) DBMS.

[Rollo62]

FdMemTable ?

[FAlter]

Zitat von Redeemer:

Eine Funktion zum Auslesen der CSV-Daten einer TStringList (Fields = Anzahl der Spalten).

Eine zweite StringList nehmen und den Inhalt CommaText (für echtes CSV mit Komma) oder DelimitedText (Trennzeichen beliebig festlegbar) zuweisen. Dann enthält die zweite StringList die Werte der Zeile als einzelne Einträge.

Zitat:

Die Funktion unterstützt keine Quantifiers, sprich du solltest keine Semikolons in deinen Einträgen verwenden.

Das Problem wäre damit auch gelöst. Die RTL kann das alles schon.

Für komplexere Anwendungsfälle zum Speichern gerne ein DBMS. CSV wird aber auch extrem gerne als Datenaustauschformat verwendet, z.B. für Schnittstellen oder Migrationen.

[haentschman]

Moin...

Zitat:

17. Jan 2005, 02:40

In den 12 Jahren hat sich einiges getan.

Zitat:

Es gibt bestimmte Zutaten mit verschiedenen eigenschaften. zB.: Eier : 100% Protein, xx% Fett usw...

Das sind Daten für ein klassisches DBMS. Die Datenbanken sind dafür ausgelegt Daten "herauszusuchen". Mal angenommen, du willst eine Liste mit den Rezepten haben, sortiert nach der Fettmenge. Mir einer TXT/CSV/XML hast du mehr Aufwand als nötig.
Meine Daumenregel:
TXT/CSV/XML als Datenaustauschformat ist in Ordnung wenn die Daten nur readonly sind. Alles Andere gehört in ein DBMS.

Wie es die Andreren schon bemerkten:

Zitat:

Für komplexere Anwendungsfälle zum Speichern gerne ein DBMS

Zitat:

Willst Du eine interne Struktur (z.B. TList) mit Daten füllen, ist CSV keine schlechte Wahl.

! nur readonly

Empfehlung für ein DBMS:
Firebird:
https://de.wikipedia.org/wiki/Firebird_(Datenbank)
https://www.firebirdsql.org/en/server-packages/ für den Anfang die Version 2.5
Firebird Vorteile:
* minimaler Installationsaufwand (ca. 10 Minuten)
* Ein Datenbankfile.
* Das Datenbankfile kann man z.b. auf einen USB Stick kopieren und wieder zurück.
* Wechsel zwischen Multiuser und Einzelplatz ohne Aufwand möglich.
Datenzugriff
* Zeos: https://sourceforge.net/projects/zeoslib/
* Tutorial: https://www.delphi-treff.de/tutorial...-und-firebird/
Admin Tool
* IBExpert Personal: http://ibexpert.net/IBE/index.php?n=...ersonalEdition
Datenbank Tutorial
* ! es geht nur ums Prinzip. https://www.youtube.com/watch?v=eNWqPw_73vU ...und folgende.

Zitat:

Diese Daten würde ich gerne in einer .txt Datei oder so ähnlich gespeichert haben.

Ein Tretauto ist auch ein Auto. Aber würdest damit in den Urlaub fahren? Mit einer Datenbank hast du etwas mehr Lernaufwand. Wenn du aber die Vorteile erkannt hast, willst du es nicht mehr missen.

Stichworte:
http://docwiki.embarcadero.com/Libra...ta.DB.TDataSet
http://docwiki.embarcadero.com/Libra...DB.TDataSource

..jetzt hast du mal Brot.

[p80286]

@haentschman
Ich vermute, er scheut den "Aufwand" für eine DB, und leider hast Du die notwendigen Komponenten für den DB-Zugriff erst ab Prof. an Bord. Da schreckt man schon mal gerne zurück.

Gruß
K-H

P.S.
Gerade gesehen, er hat ja die prof Version, da sollte es ja gut gehen.

[Redeemer]

Danke FAlter für den Hinweis mit CommaText und DelimitedText.

[MaBuSE]

Zitat von Redeemer:

Danke FAlter für den Hinweis mit CommaText und DelimitedText.

Schau Dir mal folgendes an: http://www.delphipraxis.net/164041-c...ntdataset.html

Das ist ein einfacher Classhelper um CSV Dateien mit einem TClientDataset Lesen / Schreiben zu können.

Das habe ich dort auch mit 2 TStringList gemacht.

Delphi-Quellcode:

...
   // folgender Quelltext ist nur im Editor der DP geschrieben, nicht getestet ;)
   slFile := TStringList.Create;
   slRow := TStringList.Create;
   try
     slRow.Delimiter := ';';
     slRow.QuoteChar := '"';
     slRow.StrictDelimiter := True;
     slFile.LoadFromFile('C:\TEMP\TEST.CSV');

     for i := 0 to slFile.Count - 1 do
     begin
       slRow.DelimitedText := slFile[i];
       for j := 0 to slRow.Count - 1 do
       begin
         myArray[i,j] := slRow[j];
       end;
     end;
  finally
     slFile.Free;
     slRow.Free;
   end;
...

Das habe ich vor über 6 Jahren gemacht um leicht auf meine Logfiles zugreifen zu können.
Für die CodeLib hab ich dann noch das Schreiben implementiert.

Das Ganze dient aber auch als nettes Beispiel für einen ClassHelper