CSV-Datei

[Chester]

Hi!


Ich hänge seit Stunden an einer .CSV fest!
Wenn ich die CSV-Datei aus einem Grid heraus erstelle, dann hab ich immer die Überschriften vom DBGrid dabei bzw. leere Strings wenn ich den Spalten keinen Namen gebe.


Ich erstelle, versende und lösche die Datei, deswegen sollte es einfach und schnell funktionieren



thx schon mal :love:

[Luckie]

Überspring doch einfach die erste Zeile.

[Chester]

Das Problem ist das es mir dann die erste Zeile überspringt und nicht die Überschriften.

Das Grid ist eine TMS-Komponente (TDBADVStringGrid)
und so könnte ich das machen

Delphi-Quellcode:

AdvStringGrid.SaveToCSV(DateiName);

oder mit einer Excel-Komponente

Delphi-Quellcode:

ADVGridExcelIO.AdvStringGrid.AppendToCSV(DateName);

aber mit Zeile überspringen geht das nicht

:coder2:

[Luckie]

Dann hättest du sagen sollen, dass du nicht das normale StringGrid verwendest und die CSV Datei selber schreibst. Schon mal in der Dokumentation geguckt, ob es eine Eigenschaft gibt, die das Schreiben der Spaltennamen verhindert? Sollte es die nicht geben, dann wird dir wohl nur eins übrigbleiben, nämlich selbst die Zellen auszulesen und in eine datei zu schreiben. Ist ja nicht die Welt und mit 10 Zeilen Code und 10 Minuten Zeit selber gemacht.

[Kevin]

Hat das TMS-ADVGridExcelIO nicht eine Option "GridStartRow"...?! :gruebel:

[alzaimar]

Zitat:

Zitat von Luckie

... Ist ja nicht die Welt und mit 10 Zeilen Code und 10 Minuten Zeit selber gemacht.

Mal sehen:

Delphi-Quellcode:

Var
  s : TStringList;

Begin
  s := TStringList.Create;
  Try
    s.LoadFromFile(MyExportedCSVFile);
    s.delete(0);
    s.SaveTofile(MyExportedCSVFile);
  Finally
    s.Free;
  End;
End;

10 Zeilen kommt hin, aber 10 Minuten? 1/2 trifft die Sache eher :mrgreen:

[Chester]

Funktioniert super

Danke für die Hilfe :-D


ohne DP wäre ich manchmal aufgeschmissen....

[Kevin]

Hast Du mal nach der Option geguckt?

[Grolle]

Hallo!
Die Eigenschaft für das mit speichern der Überschriften in einem TMS-Grid
ist imho die Option : Grid.SaveFixedCells := boolean.

Viele Grüße...

[Chester]

Habt ihr auch eine Idee wie man die Werte zwischen "Wert" setzt und statt , mit ; trennt?