CSV-Reader. Schnelles lesen von CSV-Dateien

[alzaimar]

Zitat:

Zitat von Union

Naja, vielleicht machen das manche Programme so mit dem ListSeparator.

EXCEL macht das so... Aber echt interessant (auch der Wiki-Artikel). Ich dachte, CSV hätte sich MS 1923 ausgedacht. So lange kenn ich das jedenfalls (ungefähr, mein Gedächtnis :gruebel: )

[Union]

Jedenfalls ist Deine Lösung gut und praktikabel. Eigentlich geht es ja nicht um die Therorie, sondern dass man es für bestehende "CSV"-Definitionen verwenden kann. Ich bin auch erst vor kurzem darauf gekommen, als ich zum Debuggen eine "CSV" mit Semikolon ausgegeben habe und der Microsoft LogParser das Format nicht erkannte. Die nennen das dann TSV mit Delimiter =";".

[alzaimar]

Zitat:

Zitat von Union

Jedenfalls ist Deine Lösung gut und praktikabel.

:dancer:

Zitat:

Zitat von Union

Die nennen das dann TSV mit Delimiter =";".

:wall:

[Union]

Und wenn Du noch

Delphi-Quellcode:

SetString(Result, spFirst, spLen);

ersetzt mit

Delphi-Quellcode:

SetLength(result, spLen);
Move(spFirst^, result[1], spLen);

dann wird das auch schnell;)

[deadcantdance]

Kleiner Hinweis. Das o.g. Bespiel funktioniert so nicht ganz.

Beim ersten Durchlauf ist ColumnCount = 0, erst nach dem Aufruf von csvReader.Next wird ColumnCount gesetzt.

Sollte doch dann eigentlich so sein:

Delphi-Quellcode:

Try 
  if not csvReader.Eof then
    csvReader.Next;
  While not csvReader.Eof Do Begin                                            
    For i:=0 to csvReader.ColumnCount - 1 Do                                  
      Memo.Lines.Add (csvReader.Columns[i]);                                  
    csvReader.Next;                                                          
  End;      
Finally 
  csvReader.Free; 
  sData.Free; 
End;

Ansonsten, :thumb:

Viele Grüße,
deadcantdance

[alzaimar]

In der kleinen Demo fehlt der Aufruf von 'csvReader.First'. Habe ich nachgetragen (siehe Eingangspost).

[Kater Karlo]

:coder2:
Hi,

ggf. ist es sinnvoll im Constructor vor dem Read die Position des zu lesenden Stream auf Null zu setzen.
Es sei denn es ist beabsichtigt erst ab der aktuellen Stelle einzulesen.

Die Variable fReader: TReader; kann weggelassen werden.

Gruss Kater Karlo

[alzaimar]

Hallo Kater Karlo,

Es ist üblich, das der Aufrufer den Stream an die geeignete Stelle setzt, das muss er bei Verwendung anderer Komponenten (z.B. Crypter/Packer-Streams) auch selbst machen. Bei Instantiierung eines TFileStreams ist die Position eh bei 0.

Bezüglich deines Einwands mit dem Buffer fällt auf, das im Konstruktor ein kleine Ungenauigkeit auftritt, wenn die Position des Streams > 0 ist (wie du richtig bemerkt hast). Das sollte nun behoben sein.

Danke für die Anregungen

[Kater Karlo]

Hallo alzaimar,

ich hätte da noch einige Anregungen:

- Als Eigenschaft den Index der aktuellen Zeile
- Als Eigenschaft die aktuelle Zeile als String
- Veröffentlichen der Column-Information TStringPos

Extended:
- Erkennen von Kommentarzeilen (Zeile beginnt mit # oder über eine Eigenschaft bekannt zugebene Zeichenfolge)

MfG

Kater Karlo

[ekoplayer]

Kann mir einer vielleicht sagen wie ich beide die Datei zum laufen kriege?

Wenn ich sie abspeichern will sagt er mir immer Declaration of class TForm1 is missing or incorrect.

Und bei der zweiten Datei hinterlegt er das

Delphi-Quellcode:

  
csvReader : TCSVReader;
sData : TFileStream;

rot wenn ich es Compilieren will. kann mir wer helfen?