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

Ersetze die Zeilenumbrüche durch andere Zeichen

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.

Es klappt, vielen Dank für eure Antworten.
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

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

Zitat:

oder OwnderDraw im Grid implementierst

Wie geht das?
capo

Implementiere .onDrawCell

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

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

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

zusammenfalten · markieren

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;