DBGRID export nach csv mit Titel

[Luckner]

Hallo,
habe hier eine Routine gefunden, mit der ich die Datensätze aus einem DBGrid in csv-Datei exportieren kann. Das klappt ohne Titel auch gut. Wie kann ich die Titel übernehmen? Hier die Procedure:

Delphi-Quellcode:

procedure TFrameArtikel.ButtonCsvExportClick(Sender: TObject);
  const
  Delim = ';';
var
  S: String;
  I: Integer;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('c:\temp\Artikel.csv', fmCreate);
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Open;
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Last;
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.First;

  while not DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Eof do
  begin
    S := '';

    for I := 0 to JvDBGridArtikelCSV.Columns.Count - 1 do
      S := S + TColumn(JvDBGridArtikelCSV.Columns[I]).Field.AsString + Delim;

    S := S + CHR(13);
    Stream.Write(PChar(S)^, Length(S));
    DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Next();
  end;

  Stream.Free();
  DatamoduleArtikel.DataModule1.IBDataSetArtikelCSV.Close;
end;

Danke.

[DeddyH]

Hol Dir doch Anregungen bei Uwe Raabe: http://www.uweraabe.de/Blog/2013/11/...ns-csv-export/

[himitsu]

TStringList?

Eine für die Datei und eine für die (aktuelle) Zeile

Columns durchgehen und per Add die Spaltennamen in ZeilenListe
danach CommaText der ZeilenListe per Add in die CSVListe. (oder DelimitedText mit eigenem Delimiter und StrictDelimiter=True)
Nur je Zeile das Selber nochmal für die Feldinhalte
und am Ende noch ein SaveToFile.



CHR(13) ... meintest du nicht eher CHR(10) aka #10, oder wenigstens sLineBreak?
Einige Programme kommen mit #13 nicht klar.
OK, das alte Nodepad kommt mit der #10 nicht klar, aber fast alle Windowsprogramme kennen #13#10. :angel:


PS: Schau mal ob dein DataSet nicht sogar ein SaveToFile besitzt.



[edit]
Hat mir Uwe etwa zur Hälfte abgeguckt? :lol:

[DeddyH]

Oder den verlinkten Code nehmen, das Dataset und den Dateinamen übergeben und glücklich sein. Immer diese Ignoranz *grmpf*

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1270148)

Oder den verlinkten Code nehmen, das Dataset und den Dateinamen übergeben und glücklich sein. Immer diese Ignoranz *grmpf*

Öhm und dann wird das so wie im DBGrid in die CSV geschrieben? Halte ich für ein Gerücht ;)

[Jasocul]

Schaut euch mal den Source an.
Die Spalten werden über das Grid iteriert und nicht über das DataSet.
Das DataSet wird nur zum Durchlaufen aller Datensätze verwendet.

Aber auch ein JvDBGrid sollte eine Property für die Überschriften haben.
Ich vermute mal, dass JvDBGrid.Columns[i].Title.Caption die gewünschten Überschriften liefert.

[Neumann]

Wenn es was kosten darf kann man auch das dbadvgrid von TMS nehmen; damit bekommt man CSV-Export und auch etliche andere Exportformate (XML, Excel usw.) sehr einfach hin.

Ralf

[himitsu]

Auch die DevExpress-Grids bieten fertige Exportfunktionen (CSV, XLS, PDF, ...) und andere Komponentensamlungen bestimmt ebenfalls.
Und es gibt natürlich spezielle Exportgeneratoren.

[Luckner]

Das JvDBGrid hat eine Property für die Überschriften. Genau, wie bei Jasocul beschrieben. Aber wie in dieser Procedure benutzen? Irgendwie in der schon vorh. Schleife oder schon davor?

Luckner

[DeddyH]

Davor, oder willst Du bei jedem Datensatz noch einmal die Überschriften ermitteln? Kann man zwar machen, bringt aber nichts, es sei denn, das Programm läuft einem zu schnell :lol:

[Dejan Vu]

Aber was ist, wenn sich die Überschriften während des Exports ändern, wenn es sich der Anwender also anders überlegt hat? :stupid: Fragen, die die Welt bewegen.

[Luckner]

Ok, werde ich probieren.
Danke

[DeddyH]

Zitat:

Zitat von Dejan Vu (Beitrag 1270183)

Aber was ist, wenn sich die Überschriften während des Exports ändern, wenn es sich der Anwender also anders überlegt hat? :stupid: Fragen, die die Welt bewegen.

Dann einfach die Überschriften nach den Daten ermitteln und als erste Zeile in die Stringliste einfügen ;)

[waldforest]

Hallo,
hier bietet die Jedi TJvDBGridCSVExport ne gute und einfache Möglichkeit Daten zu exportieren.

[himitsu]

Zitat:

Zitat von Dejan Vu (Beitrag 1270183)

Aber was ist, wenn sich die Überschriften während des Exports ändern, wenn es sich der Anwender also anders überlegt hat? :stupid:

Ein nicht abgesichter Multithreadzugriff?

Wenn das passiert, dann hat man andere Probleme.

[Dejan Vu]

Zitat:

Zitat von himitsu (Beitrag 1270208)

Ein nicht abgesichter Multithreadzugriff?

Hä? Erstens, welcher Thread? Zweitens, ob vor oder in der Schleife wär dem Thread auch wurscht. Und drittens: Muss man eine :stupid: Bemerkung wirklich kommentieren?

[himitsu]

Ja? :stupid:

Wenn sich währenddessen der Inhalt ändert, dann wurde er ja irgendwo geändert
und da das innerhalb der Ausleseschleife nicht passieren konnte, muß es also ein anderer Thread sein.

[Dejan Vu]

Zitat:

Zitat von himitsu (Beitrag 1270221)

Ja? :stupid: .. muss es also ein anderer Thread sein.

Anderer Thread. DBGrid. VCL. Ne, is klar. ;-)
Ich habs: Wir bauen noch einen "Application.ProcessMessages" Aufruf in der Schleife ein. Dann gehts.