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 FormCSV.StringGridCSV.Rows.Delimiter := ';'; ?
[Edit: richtigen Delimiter]