AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi csv Datei Import ClassHelper für TClientDataSet

csv Datei Import ClassHelper für TClientDataSet

Ein Thema von MaBuSE · begonnen am 26. Okt 2011 · letzter Beitrag vom 24. Mai 2019
Antwort Antwort
Seite 5 von 7   « Erste     345 67   
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.650 Beiträge
 
Delphi 10.4 Sydney
 
#41

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 12:51
Mein Vorschlag ist es die Quote-Zeichen zu zählen, was immer passt.
Ich hatte da vor einiger Zeit mal einen class helper für TTextReader geschrieben, der das umsetzt:
Delphi-Quellcode:
type
  TTextReaderHelper = class helper for TTextReader
    function CharCount(const ALine: string; AChar: Char): Integer;
    procedure ReadQuotedLine(Target: TStrings);
  end;

function TTextReaderHelper.CharCount(const ALine: string; AChar: Char): Integer;
var
  C: Char;
begin
  result := 0;
  for C in ALine do begin
    if C = AChar then
      Inc(result);
  end;
end;

procedure TTextReaderHelper.ReadQuotedLine(Target: TStrings);
var
  line: string;
  line2: string;
  saveStrictDelimiter: Boolean;
begin
  line := ReadLine;
  if Odd(CharCount(line, Target.QuoteChar)) then begin
    { Eine ungerade Anzahl von Quotes bedeutet, daß der gequotete String mindestens einen Zeilenumbruch enthält.
      Wir hängen also die nachfolgenden Zeilen mit LineBreak an, bis eine weitere Zeile mit ungerader Anzahl
      Quotes kommt.
    }

    repeat
      line := line + sLineBreak;
      line2 := ReadLine;
      line := line + line2;
    until Odd(CharCount(line2, Target.QuoteChar));
  end;
  { Zeilenumrüche in line dürfen nicht in separate Einträge zerlegt werden! }
  saveStrictDelimiter := Target.StrictDelimiter;
  try
    Target.StrictDelimiter := True;
    Target.CommaText := line;
  finally
    Target.StrictDelimiter := saveStrictDelimiter;
  end;
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Blackpit

Registriert seit: 27. Feb 2019
77 Beiträge
 
#42

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 12:53
@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

Geändert von Blackpit (19. Mai 2019 um 12:58 Uhr)
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#43

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 14:55
@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.

Geändert von Schokohase (19. Mai 2019 um 15:02 Uhr)
  Mit Zitat antworten Zitat
Blackpit

Registriert seit: 27. Feb 2019
77 Beiträge
 
#44

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 15:15
...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)
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

Geändert von Blackpit (19. Mai 2019 um 15:29 Uhr)
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#45

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 15:26
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.
  Mit Zitat antworten Zitat
Blackpit

Registriert seit: 27. Feb 2019
77 Beiträge
 
#46

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 15:34

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
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#47

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 16:01

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)

Geändert von Schokohase (19. Mai 2019 um 16:12 Uhr)
  Mit Zitat antworten Zitat
Blackpit

Registriert seit: 27. Feb 2019
77 Beiträge
 
#48

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 17:01
Du sprichst immer von Dateien, könntest du mir das Beispiel als Datei zur Verfügung stellen?
Hab keine Lust dafür zu coden und möchte auch keinen Hex-Editor dafür bemühen.
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#49

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 17:12
Du sprichst immer von Dateien, könntest du mir das Beispiel als Datei zur Verfügung stellen?
Hab keine Lust dafür zu coden und möchte auch keinen Hex-Editor dafür bemühen.
Du meinst du schaffst es nicht mein Text-Beispiel per Copy-Paste in einen Text-Editor zu bringen und mit dem Namen "test.csv" zu speichern?
  Mit Zitat antworten Zitat
Blackpit

Registriert seit: 27. Feb 2019
77 Beiträge
 
#50

AW: csv Datei Import ClassHelper für TClientDataSet

  Alt 19. Mai 2019, 18:05
...
Du meinst du schaffst es nicht mein Text-Beispiel per Copy-Paste in einen Text-Editor zu bringen und mit dem Namen "test.csv" zu speichern?
Nein, wenn du es selbst mal versucht hättest, würdest du nur zwei CrLf sehen.
Selbst mit Notepad+ gelingt es mir nicht, sonst würde ich nicht danach fragen.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 16:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf