CSV-Datei die mit Semikolons getrennt ist einlesen

[HolgerCW]

Hallo zusammen,

habe folgenden Code hier im Forum gefunden:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');
sCols := TStringList.Create;
sCols.CommaText := sRows[0];
FormCSV.StringGridCSV.ColCount := sCols.Count;
sCols.Free;
FormCSV.StringGridCSV.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
 FormCSV.StringGridCSV.Rows[i].CommaText := sRows[i];
 sRows.Free;

Diese trennt aber die Spalten bei einem Komma, wie stelle ich das um auf Semikolon ?

Gruss

Holger

[CCRDude]

Delphi-Quellcode:

sCols.Delimiter := ';';
sCols.StrictDelimiter := true; // falls leerzeichen ohne anführungszeichen...
sCols.DelimitedText := 'Hallo;Welt';

[HolgerCW]

Vielen Dank für die Hilfe,

wie binde ich denn das jetzt in den Code ein ?

Gruss

Holger

[mkinzler]

Ab Zeile 2 (Die 3. natürlich nicht)

[HolgerCW]

Also wenn ich den Code mit dem Delimiter benutze...

Delphi-Quellcode:

sRows := TStringList.Create; 
sRows.LoadFromFile('Datei.csv');
sCols.Delimiter := ';'; 
sCols.StrictDelimiter := true; 
sCols := TStringList.Create; 
sCols.CommaText := sRows[0]; 
FormCSV.StringGridCSV.ColCount := sCols.Count; 
sCols.Free; 
FormCSV.StringGridCSV.RowCount := sRows.Count; 
for i := 0 to Pred(sRows.Count) do 
 FormCSV.StringGridCSV.Rows[i].CommaText := sRows[i]; 
 sRows.Free;

... trennt der trotzdem immer noch bei dem Komma

Liegt das vielleicht an dem Befehl '.CommaText' ?

Gruss

Holger

[mkinzler]

Du mußt die Eigenschaften setzen, bevor du den Text einlädst:

Delphi-Quellcode:

sRows := TStringList.Create;
sCols.Delimiter := ';';
sCols.StrictDelimiter := true; 
sCols.LoadFromFile('Datei.csv');

Zitat:

Liegt das vielleicht an dem Befehl '.CommaText' ?

ja. du mußt .DelimitedText nehmen.

[HolgerCW]

Habe es jetzt so umgebaut, aber er trennt immer noch beim Komma:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.Delimiter := ';';
sRows.StrictDelimiter := true; 
sRows.LoadFromFile('Datei.csv');
sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];
FormCSV.StringGridCSV.ColCount := sCols.Count;
sCols.Free;
FormCSV.StringGridCSV.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
 sRows.Free;

Gruss

Holger

[mkinzler]

Du hast auch die Eigenschaften bei der falschen StringListe gesetzt.

[HolgerCW]

Wenn ich das so mache...

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');
sCols := TStringList.Create;
sCols.Delimiter := ';';
sCols.StrictDelimiter := true; // falls leerzeichen ohne anführungszeichen...
sCols.DelimitedText := sRows[0];
FormCSV.StringGridCSV.ColCount := sCols.Count;
sCols.Free;
FormCSV.StringGridCSV.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
 sRows.Free;

... trennt der immer nocoh am Komma ...

Gruss

Holger

[mkinzler]

Wie wärs mit

Delphi-Quellcode:

FormCSV.StringGridCSV.Rows.Delimiter := ';';

?
[Edit: richtigen Delimiter]

[CCRDude]

Weil der Delimiter und StrictDelimiter für alle FormCSV.StringGridCSV.Rows[i] wahrscheinlich nicht gesetzt sind?

PS: Nach da drüber: soll doch ';' und nicht ',' sein ;-)

[HolgerCW]

Habe nun die Lösung:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');

sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];

FormCSV.StringGridCSV.ColCount:=sCols.Count;
sCols.Free;

FormCSV.StringGridCSV.RowCount := sRows.Count;

for i := 0 to Pred(sRows.Count) do 
begin
 FormCSV.StringGridCSV.Rows[i].Delimiter := ';'; 
 FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
end;
sRows.Free;

Habe da noch ein abschliessende Frage:

- Wie kann ich die Daten aus der CSV-Datei von Spalte 1 bis ... in das StringGrid schreiben. Heisst: Spalte 0 soll leer bleiben.

Gruss

Holger

[CCRDude]

Probieren geht über studieren ;)
Spiel doch einfach mal ein bißchen mit TStrings/TStringList rum, um zu wissen was das macht und wie es geht. Folgendes Beispielsweise würde eine leere erste Spalte schreiben (nicht die eleganteste Methode, aber evtl. die mit den wenigsten Abweichungen):

Delphi-Quellcode:

// sCols.Free;  streichen!
for i := 0 to Pred(sRows.Count) do begin
   FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
   FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
   sCols.DelimitedText := sRows[i];
   sCols.Insert(0, '');
   FormCSV.StringGridCSV.Rows[i].DelimitedText := sCols.DelimitedText;
end;
sCols.Free;  // stattdessen hier!
sRows.Free;

[HolgerCW]

Hi,

die Spalte wird wohl eingefügt, nur fehlt nun wieder die Trennung beim Semikolon. Es wird wieder beim Komma getrennt.

So habe ich es umgebaut:

Delphi-Quellcode:

sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');

sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];

FormCSV.StringGridCSV.ColCount:= sCols.Count;
FormCSV.StringGridCSV.RowCount := sRows.Count;

for i := 0 to Pred(sRows.Count) do 
begin
 FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
 FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
 sCols.DelimitedText := sRows[i];
 sCols.Insert(0, '');
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sCols.DelimitedText;
end;
sRows.Free;
sCols.Free;

Gruss

Holger