csv Datei Import ClassHelper für TClientDataSet

[Rollo62]

Zitat von Blackpit:

@Rollo62
könnte sein das du zu schnell drauf geschaut hast

Mir gings um den Header ...
Und Du wolltest ein paar Feedbacks bekommen.

[Blackpit]

@Schokohase

Zitat von Schokohase:

Du hast damit aber einen bösen Bug in deinem Code.

Da bin ich mal froh, das mir das TStringlist schon abnimmt
Try it!

@Rollo62
Header wird erzeugt wenn nicht vorhanden

@Uwe Raabe
Auch elegant gelöst!
Ist aber nur ein Teil der Aufgabe

[Schokohase]

Zitat von Blackpit:

@Schokohase

Zitat von Schokohase:

Du hast damit aber einen bösen Bug in deinem Code.

Da bin ich mal froh, das mir das TStringlist schon abnimmt
Try it!

I did

Code:

EStringListError: Listenindex außerhalb des gültigen Bereichs (3)

Meine Testdaten

Delphi-Quellcode:

'a;b;c;d' + sLineBreak + 
'a;"b;b";"c'#10'c";d'

oder als Text

Code:

a;b;c;d
a;"b;b";"c
c";d

Du solltest schon wissen, was dir TStringList abnimmt und vor allem ab wann.

Im Übrigen fängst du erst ab der 2. Zeile mit dem Import an - auch wenn der Parameter FirstLineTitle auf false steht.

[Blackpit]

Zitat von Schokohase:

...Im Übrigen fängst du erst ab der 2. Zeile mit dem Import an - auch wenn der Parameter FirstLineTitle auf false steht.

Da hast du allerdings Recht.

Code:

If X=0 and (not FirstLineTitle)

Zitat von Schokohase:

Du solltest schon wissen, was dir TStringList abnimmt und vor allem ab wann.

Ich denke das tu ich schon, hast du meine Intention verstanden?
Und wie oft ist dir dein Beispiel im Alltag begegnet?
Wobei auch deine Konstellation unter meinen Voraussetzungen läuft.

Hmm

[Schokohase]

Zitat von Blackpit:

Und wie oft ist dir dein Beispiel im Alltag begegnet?

Sagen wir so, das Beispiel ist gemäß RFC4180 gültig und sollte somit einwandfrei verarbeitet werden können. Mit dem Ansatz erspare ich mir nachher lästige und peinliche Diskussionen.

Ich kann es dir also nicht sagen, wie oft mein Beispiel im Alltag vorkommt, denn keiner bemerkt es, weil es anstandslos funktioniert.

[Blackpit]

Zitat von Schokohase:

…
Sagen wir so, das Beispiel ist gemäß RFC4180 gültig und sollte somit einwandfrei verarbeitet werden können. Mit dem Ansatz erspare ich mir nachher lästige und peinliche Diskussionen.

Schön das du es erwähnst:

Zitat von https://tools.ietf.org/html/rfc4180:

6. Fields containing line breaks (CRLF), double quotes, and commas
should be enclosed in double-quotes.

entspricht somit nicht der Spezi

[Schokohase]

Zitat von Blackpit:

Zitat von Schokohase:

…
Sagen wir so, das Beispiel ist gemäß RFC4180 gültig und sollte somit einwandfrei verarbeitet werden können. Mit dem Ansatz erspare ich mir nachher lästige und peinliche Diskussionen.

Schön das du es erwähnst:

Zitat von https://tools.ietf.org/html/rfc4180:

6. Fields containing line breaks (CRLF), double quotes, and commas
should be enclosed in double-quotes.

entspricht somit nicht der Spezi

Also mein Beispiel mit den 3 Zeilen beinhaltet ZWEI Datenzeilen.
Die zweite Zeile sieht in Delphi-String-Schreibweise so aus 'a;"b;b";"c'#13#10'c";d' .
(aber auch so ist es gültig 'a;"b;b";"c'#10'c";d' )

Sieht du jetzt was da zwischen den Quote-Zeichen steht?

Das ist 100% gültig nach RFC4180.

PS
Wenn du wissen möchtest, was so alles RFC4180 konform ist, dann kannst du gerne deine Dateien mit dem Webdienst http://csvlint.io/ überprüfen lassen.

Allerdings wird dort zwingend das Komma als Feld-Trenner gefordert.

Und diese Datei

Code:

a,b,c,d
aa,"b,b","c
c",dd

findet der total gut (was auch zu erwarten war, weil RFC4180 konform)