wie könnte ich csv datei auslesen? Hilfe!!!

[marabu]

Hallo,

wenn die CSV-Daten ohne jegliches Quoting daherkommen, dann wurde das Trennzeichen offensichtlich so gewählt, dass es selbst nie in den Daten vorkommt. Eine Verarbeitung ist dann recht einfach:

Delphi-Quellcode:

procedure Explode(const s, delimiter: string; items: TStrings);
begin
  items.CommaText := StringReplace(AnsiQuotedStr(s, '"'), delimiter, '","', [rfReplaceAll]);
end;

function Implode(items: TStrings; delimiter: string): string;
begin
  Result := StringReplace(items.Text, sLineBreak, delimiter, [rfReplaceAll]);
end;

Grüße vom marabu

[k_ocel]

vielen dank jungst!!!
Ihr seid spitze!!
danke schön
ich probiere mal!!!

[mschaefer]

Oft sind csv - Dateien aber nach dem Schema aufgebaut:

Code:

Feld_1,              Feld_2,        Feld_3
"Schneider, Hendrik","Thiel, Anja", "Duisberg, Karl"

da bleibt dann doch wieder Handcodieren

Grüße // Martin

[acadam71]

Stringlist macht keine Zeilenumbrüche bei Leerzeichen wenn man folgendes festlegt:
StringList.StrictDelimiter := True;

[mkinzler]

Zitat:

Zitat von acadam71

Stringlist macht keine Zeilenumbrüche bei Leerzeichen wenn man folgendes festlegt:

Wenn die verwendete Delphiversion das schon kann

[alzaimar]

Wozu in die Ferne schweifen, wo das Gute liegt so nah?

[semo]

Ich hoffe bei den Beispieldaten aus Betrag 4 handelt es sich um keine Originaldaten? Wenn doch, dann würde ich diese schnell mal entfernen...