Zeilenumbrüche ins CSV-Format schreiben

[capo]

Hallo,

In einem Projekt sollen Datensätze ins CSV-Format exportiert bzw
daraus importiert werden. Mein Problem, dabei ist, dass einige der
Datenfelder auch mehrzeiligen Text enthalten können.

Ich frage mich nun, welche Varianten es gibt, die Zeilenumbrüche ins
CSV-Format zu schreiben, bzw. beim Importieren zu erkennen.

Gruss vom Capo

[mkinzler]

Ersetze die Zeilenumbrüche durch andere Zeichen

[shmia]

Es gibt z.B. http://de.wikipedia.org/wiki/Quoted-printable
oder die Möglichkeit Zeilenumbrüche durch /r/n, wie in der Programmiersprache C/C++ üblich, zu ersetzen.
Einen Standard gibt es beim CSV-Format nicht.
Erzeuger und Konsument der CSV-Datei müssen über das verwendete Verfahren Bescheid wissen.

[capo]

Es klappt, vielen Dank für eure Antworten.
Capo

[capo]

Zitat:

Ersetze die Zeilenumbrüche durch andere Zeichen

Noch eine Frage dazu, ich importiere das CSV-File in ein Stringgrid, bekomme daher auch das "andere Zeichen" mit angezeigt. Gibt es eine Möglichkeit das "andere Zeichen" überhaupt nicht anzuzeigen? Herausfiltern, es muss ja doch vorhanden sein.
Gruesse Capo

[mkinzler]

Sie werden mit angeszeigt, wenn du sie nicht wieder ersetzt oder OwnderDraw im Grid implementierst

[capo]

Zitat:

oder OwnderDraw im Grid implementierst

Wie geht das?
capo

[mkinzler]

Implementiere .onDrawCell

http://www.delphipraxis.net/internal...ell+stringgrid

[capo]

Selbst dann wird das "andere Zeichen" doch im Stringgrid angezeigt, oder verstehe ich was falsch?
Gruss Capo

[capo]

Hallo
Ich habe versucht folgendes zu machen um die Zeichen zu filtern, klappt aber nicht:

Delphi-Quellcode:

//Filter Liste zum sichern des Gridinhalt
var
  FilterList : TStringList;

//Filter setzen
procedure TForm1.SetFilter(ACol:Integer;Exp:String);
var
  I,Counter:Integer;
begin
  FilterList:=TStringList.Create;
  With StringGrid1 do
  begin
    //Filterliste mit Gridinhalt füllen
    For I := FixedRows To RowCount - 1 Do
      FilterList.Add(Rows[I].Text);

    //Grid filtern
    Counter:=FixedRows;
    For I := FixedRows To RowCount - 1 Do
    Begin
      If Cells[ACol,I] <> Exp Then
      Begin
         Rows[I].Clear;
      end
      Else
      begin
         If Counter <> I Then
         Begin
           Rows[Counter].Assign(Rows[I]);
           Rows[I].Clear;
         End;
         Inc(Counter);
      End;
    End;
    RowCount:=Counter;
  End;
end;