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?

[alzaimar]

Die Sache mit dem Komma, ist eine Schlamperei, die sich seit 150 Jahren durch die Programmiergemeinde zieht und von Microsoft ausgeht: CSV heisst ja eigentlich 'Comma Separated Values'. Also denken Alle, das das Komma, das Trennzeichen ist. Stimmt aber nicht. es ist der 'ListSeparator' aus den internationalen Einstellungen des Control Panels (Systemsteuerung).

Wenn TMS das nicht richtig umgesetzt hat, dann musst Du Dir deine eigene CSV-Export-Routine schreiben. Oder die Textdatei anschließend einlesen, parsen, reparieren und dann speichern.

[Kevin]

Zitat:

Zitat von Chester

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

AdvStringGrid.Delimiter := ';';

[Kevin]

Zitat:

Zitat von alzaimar

'Comma Separated Values'

Mittlerweile spricht man auch schon immer häufiger von 'Character Separated Value', genau aus diesem Grund...

Zitat:

Zitat von alzaimar

Wenn TMS das nicht richtig umgesetzt hat

TMS kann das, nur Chester (noch) nicht... :zwinker:

[Chester]

Ich bekomme das einfach nicht hin...

Die Hilfe die ich von euch bekommen habe ist 1a, aber ein Problem hab ich noch:


Wie setze ich jeden Wert zwischen "

z.b. "Wert"


:duck:

[Kevin]

AdvStringGrid.AlwaysQuotes := true;

Sollte helfen...

[Chester]

1000 thx

ihr habt mir stunden langes nicht draufkommen erspart


:hello:

[alzaimar]

Und auch mal in der Beschreibung der AdvStringGrid-Komponente suchen.

[Kevin]

Zitat:

Zitat von Chester

1000 thx

ihr habt mir stunden langes nicht draufkommen erspart


:hello:

Wollte ich auch grad schreiben, denn die Beschreibungen sind recht einfach gehalten. Also ein klares "RTM" ohne "F"... :zwinker: