CSV-Reader. Schnelles lesen von CSV-Dateien

[Sherlock]

Eigentlich geht der Code von PChar als einzelnem Zeichen aus. Unter den Delphis ab...ähm...2009? ist das nunmal PWideChar und nicht PAnsiChar. Eventuell sollte die "Bytigkeit" von Zeichen als weiterer Parameter hinzugefügt werden (was den Code nicht wirklich verschlanken würde). Wenn man aber seinen Anwendungsfall genau kennt, dürfte ein explizites Ersetzen sämtlicher PChar durch PAnsiChar die ursprüngliche ANSI-Funktionalität gewährleisten.

Sherlock
(für den dieses "Problem" nur wieder zeigt wie unsinnig es ist einem "Standard"-Typen von Version zu Version andere Basistypen zu verpassen)

[Dejan Vu]

Grob gesehen, fast alle '1' mit 'OneChar' und alle '2' mit 'TwoChar' ersetzen, wobei die beiden Symbole entweder Konstanten sind, die über die Compilerversion mit 1/2 oder 2/4 vorbelegt werden, oder eben als Properties.

[Sherlock]

Gnah, in der Tat! Hab doch echt beim groben drüberfliegen ... aus großer Höhe... die 1en und 2en weitestgehend übersehen und mich am PChar festgebissen. Insofern ist es sogar vermutlich recht elegant lösbar.

Sherlock

[roadrunner-S51]

Vielen Dank erstmal!
Ich habe nun alle PChar durch PAnsiChar ersetzt, ebenso die Char und Strings. Nun kann ich statt der viereckigen Kästschen schonmal etwas sinnvollere Werte einlesen.

Das einzige was ich noch nicht ganz verstehe ist, dass beim allerersten Element das ich aus der csv-Datei auslese, die letzten beiden Zeichen fehlen. Also z.B.

Aufbau csv-Datei:
10a2034;3269400;1;3;70;04.07.2013;3;2;70;04.07.201 3;6;2;70;04.07.2013;8;2
10a2075;3138127;2;2;70;05.06.2013;12;2;70;11.06.20 13;303;2;0;01.01.1970;0;0
10a2015;3107207;3;3;70;13.06.2013;25;2;70;13.06.20 13;70;2;70;13.06.2013;149;2
10a2058;3127735;4;3;70;08.05.2013;143;2;70;08.05.2 013;147;2;70;17.05.2013;26;2
10a2058;3127735;5;3;70;05.06.2013;20;2;70;05.06.20 13;28;2;70;05.06.2013;177;2
10a2017;3328115;6;3;70;27.06.2013;58;2;70;27.06.20 13;68;2;70;27.06.2013;76;2

Inhalt des ersten gelesenen Elements: 10a20

Alle weiteren Zeilen werden korrekt eingelesen. Hat jemand eine Idee woran das liegt?

OK, hat sich erledigt. Die Zeichen sind der BOM. Hatte vorher noch nie damit zu tun... Werde ich einfach aus dem String entfernen und gut ist.

Vielen Dank für eure Hilfe!

[Dejan Vu]

Das, was Du da einliest, ist der BOM. Das ist so bei Unicode Dateien.

[HPB]

Guten Tag Delphianer,
ich habe beim Einlesen der Daten auch nur China-Zeichen.
Wie "divBy0" auch.
Kann jemand genau erklären, was, in welcher Zeile, geändert werden soll,
damit die Daten korrekt eingelsen werden??
Die Unit ist ja rasend schnell und ich würde sie gerne benutzen.
Mit Gruß
HPB

[Dejan Vu]

Das Problem ist hier, das mit Pointerarithmetik gearbeitet wird, d.h. aus dem Abstand zweier PChar wird auf eine Länge geschlossen. Du solltest den Debugger verwenden, um den Code zu verstehen und dann die Zeilen entsprechend anpassen.

Im Code steht ja drin, das er so banal ist, das ein Copyright nicht lohnt.

[DelTurbo]

Hi,
erst mal möchte ich sagen das es wirklich wirklich schnell ist. Allerdings ist mir eine Kleinigkeit aufgefallen und ich dachte bevor andere auch suchen, Poste ich es gerade.

Beim Create wird fEOLChar := #13; gesetzt. Allerdings fEOLLength auf zwei. Dann fehlt immer das erste Zeichen von der ersten Spalte.

Gruß