CSV mit Zeilenumbrüchen imprortieren

[marabu]

Hallo,

oft zeichnen sich CSV-Formate mit Zeilenumbrüchen in den Feldwerten dadurch aus, dass alle Feldwerte mit Begrenzungszeichen geschrieben werden. In diesen Fällen kann man die Prüfung noch vereinfachen:

Delphi-Quellcode:

var
  i: Integer;
  sLine, sBuffer: string;
  cQuote: Char; 
begin
  AssignFile(input, '');
  Reset(input);
  AssignFile(output, '');
  Rewrite(output);
  sBuffer := '';
  cQuote := '"';
  while not Eof do
  begin
    ReadLn(sLine);
    sBuffer := sBuffer + sLine;
    if (RightStr(sBuffer, 1) = cQuote) and (RightStr(sBuffer, 2) <> cQuote + cQuote) then
    begin
      WriteLn(sBuffer);
      sBuffer := '';
    end;
  end;
  CloseFile(output);
  CloseFile(input);
end;

Getippt und nicht getestet.

Freundliche Grüße