DB-Tabelle als Text mit Tab getrennt ausgeben.

[ickehausen]

Tach auch,

ich möchte gern Daten aus zwei Interbase-Tabellen in eine Textdatei aus geben, in der die Datenfelder durch Tabs getrennt sind. Am Ende einse Datensatzes wird durch WriteLn ein Zeilenumbruch erzeugt. Z. Zt. versuche ich es mit dieser Routine:

Delphi-Quellcode:

.
.
DMMain.IBDataSetVeranstaltung.First;
while not DMMain.IBDataSetVeranstaltung.Eof do begin
  DatenExp := '';
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('PreisVon').AsString + #9;
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('PreisBis').AsString + #9;
  .
  .
  .
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('EPreisVon').AsString + #9;
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('EPreisBis').AsString + #9;
  OrtID :=  DMMain.IBDataSetVeranstaltung.FieldByName('VeranstaltungsortID').AsString;
  if OrtID <> '' then
  begin
    DMMain.IBDataSetOrt.Active := false;
    DMMain.IBDataSetOrt.SelectSQL.Clear;
    DMMain.IBDataSetOrt.SelectSQL.Text := 'select a.VPLZ, a.VOrt, a.VPlatz, a.VHaltestelle from Veranstaltungsort a join Veranstaltung b on a.VeranstaltungsortID = ' + QuotedStr(OrtID);
    DMMain.IBDataSetOrt.Active := true;
    DMMain.IBDataSetOrt.Open;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VPLZ').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VOrt').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VPlatz').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VHaltestelle').AsString;
  end
  else
  DatenExp := DatenExp + #9 + #9 + #9  ;
  DMMain.IBDataSetVeranstaltung.Next;
  WriteLn(f, DatenExp);
end;

Bei ca. 20 Feldern pro Datensatz und 700 Datensätzen benötigt die Routine aber über 2 Minuten dafür. Gibt es hierfür nicht eine andere, schnellere Methode?

[shmia]

Du machst gleich mehrere Fehler:
1.) SQL-Anweisungen sollten innerhalb eines Datenmoduls gekapselt bleiben um in der Anwendung möglichst wenige Abhängigkeiten zu haben
2.) Wenn man Daten als CSV rausschreiben möchte, dann sollte man eine einzige Query schreiben, die alle Daten über SQL JOINS verknüpft.
Du verwendest 2 Queries; das ist schlecht (langsam).
3.) Um Daten per CSV zu schreiben, sollte man eine eigene Procedure mit Übergabeparameter erstellen.
z.B.
procedure WriteCsvFile(ds:TDataset; const filename:string; delimiter:char); Anstatt jeden Datensatz einzeln mit writeln rauszuschreiben ist es bestimmt schneller, alle Daten in einer Stringliste zu sammeln und auf einen Rutsch mit .SaveToFile() zu schreiben.

PS: Bei sehr grossen Datenmengen muss man die Stringliste nach ~ 1000 bis 10000 Datensätzen an die Datei anhängen und dann wieder leeren um eine extreme Speicherbelastung zu vermeiden.

[ickehausen]

Danke Andreas,

war genau der richtige Hinweis für mich. Mit nur einer Query und der StringList gehen zumindest meine ersten Versuche jetzt super schnell.
Von der StringList habe ich vorher noch nichts gewusst, bin noch ein krasser Anfänger in Delphi. Hin und wieder mal ein kleiner Gehversuch nach Art 'learning by doing'!

Gruß
Frank