CSV Datei einlesen .. Return in CSV-Datei

[EmWieMichael]

Lese die Daten doch einfach Block- bzw. Byteweise, zähle die Felder pro Datensatz mit (dann weißt Du, wann das Notizfeld kömmt) und lasse in den Notizfeldern die 13/10er zu.

[Frickler]

Wie ich das mache:
Vor dem Export die Umbrüche ersetzen, z.B. durch \n oder <p>.
Nach dem Import dann wieder retour.

[EmWieMichael]

Ich meine also ungefähr so (ungetestet, vermutlich nicht fehlerfrei):

Code:

var F:File of AnsiChar; Buf:Array [1..512] of AnsiChar; Col:Integer; S:String; C:AnsiChar;
...
  AssignFile(F, FileName);
  Reset(F);
  Col:=1;
  S:='';
  while (not EoF(F)) do
   begin
     BlockRead(F, Buf, 512, Count);
     P:=1;
     repeat
       C:=Buf[P];
       case C of
         #10 : if (Col = 5) then   // Notizfeld
                begin
                  Memo.Lines.Add(S);
                  S:='';
                end
               else
                begin // Satzende
                  Col:=1;
                  S:='';
                end;
         #13 : begin
               end;
         ';' : begin
                 Memo.Lines.Add(S);
                 Inc(Col);
                 S:='';
               end;
         else
          begin
            S:=S + C;
          end;
       end;
       Inc(P);
     until (P > Count);
   end;
  CloseFile(F);
...

[p80286]

Wenn es sich wirklich um CSV handeln sollte, dann würde ich dem Absender ungequotete #13#10 zurückschicken.
Ich habe übrigens des öfteren Daten mit Partnern ausgetauscht, da spricht man über den Zeichensatz, die Feldtrenner, die Satztrenner , formuliert ein Papier dazu und gut ist.


Falls noch jemand was nachlesen möchte:
https://www.ietf.org/rfc/rfc4180.txt
https://ronaldduncan.wordpress.com/2...elimited-text/

gruß
K-H