CSVViewer - Zum Betrachten von CSV-Dateien

[Luckie]

Nichts großes, weltbewegendes. Nur ein kleines Programm, um CSV-Dateien betrachten zu können, ohne dass man immer gleich Excel oder OpenOffice starten muss. So was wollte ich schon immer mal für die Backupdateien meiner Adressdatenbank machen und jetzt habe ich es gemacht. Es war eigentlich nur für mich zu privat Zwecken gedacht, aber eventuell findet es ja noch jemand anders nützlich, wenn nicht das Programm, dann vielleicht den Code, obwohl auch dieser war in seiner Grundform in zwanzig Minuten hingehackt.

Das Programm sollte selbsterklärend sein. Mit einem Rechtsklick auf den Listview öffnet sich ein Kontextmenü, mit dem man entweder die eine Zelle/Feld in die Zwischenablage kopieren kann oder die ganze Zeile.

[vergessen]

Hi Luckie,

vielen Dank für den Quelltext! War schon immer zu faul für sowas !

Mein D7pe kennt die Zeile (in TfrmMain.FillListview) mit
Delimitedline.StrictDelimiter := True; nicht und mag die Zeile für das automatische Spaltenbreitensetzen mit
lvCSVFile.Columns.Items[j].Width := ColumnTextWidth; nicht (Absturz mit "Listenindex überschreitet das Maximum (x)").

Abhilfe: Beide Zeilen (in TfrmMain.FillListview) auskommentieren und nach
Progressbar1.Position := 0; die Zeile
for i:=0 to lvCSVFile.Columns.count -1 do lvCSVFile.Columns[i].width:= -1; einfügen.


MfG

[Luckie]

Entwickelt hab eich mit D2006. Und ColumnTextWidth ist nur eine Konstante für -1.

[vergessen]

lvCSVFile.Columns.Items[j].Width := -1; statt
lvCSVFile.Columns.Items[j].Width := ColumnTextWidth; führt in D7pe zum gleichen Absturz

MfG

[mkinzler]

Es ist ja auch egal, ob man eine Konstante niummt oder den Wert direkt zuweist.

[Luckie]

Jetzt stellt sich die Frage, warum das bei mir nicht zum Absturz führt. Ist deine CSV-Datei eventuell nicht in Ordnung oder so?

[Sir Rufo]

Leider kann der CSVViewer nicht alle CSV-Dateien nach RFC 4180 öffnen

Folgendes ist nach RFC ein gültige CSV-Datei

Code:

ID;TEXT
1;Test
2;"Test"
3;"Test""Test"
4;"Test
Test
Test"
5;Last

und sollte folgendes ergeben

Code:

ID TEXT
 1 Test
 2 Test
 3 Test"Test
 4 Test
   Test
   Test
 5 Last

Wenn man mit dem "Microsoft Text-Treiber" die CSV öffnet, dann wird die auch korrekt verarbeitet

[Luckie]

Was macht mein Programm daraus?

[Sir Rufo]

Zitat von Luckie:

Was macht mein Programm daraus?

sowas

Code:

ID     TEXT
===== =========
1     Test
2     Test
3     Test"Test
4     Tes
Test
Test"
5     Last

[Luckie]

Dann ist das ein Bug von Delphi, dass sich TStringList nicht an das RFC hält. Lösung wäre, die Datei selber zu parsen, aber dazu war ich zu faul. Allerdings, man könnte noch mal probieren, was Explode daraus macht.