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