Array in csv schreiben

[hirsch]

Ich dachte, dass es einfach ist den Ihnalt eines Array's in eine csv zu schreiben, denn umgekehrt ist es das.
Was ich habe:

Delphi-Quellcode:

  AssignFile(output1, Ordner+'A.csv');
  if FileExists('A.csv') then begin
    reWrite(output1,'A.csv');
  end else begin
    FileCreate(Ordner+'A.csv');
  end;
  Reset(output1);


  for i := 0 to laenge-1  do begin
    if trim(FeldZeile[i,2])<>'' then
      zeile:=FeldZeile[i,0]+';'+FeldZeile[i,1]+' '+FeldZeile[i,2]+';'+FeldZeile[i,3]+';'+FeldZeile[i,4]
    else
      zeile:=FeldZeile[i,0]+';'+FeldZeile[i,1]+';'+FeldZeile[i,3]+';'+FeldZeile[i,4];
    append(output1);
    WriteLn(output1,Zeile);
  end;
  CloseFile(output1);
  Setlength(FeldZeile,0,0)

Das Seltsame daran ist, dass es auf dem Entwickler-PC funktioniert, aber dort auf dem Fileserver, wofür ich das gemacht habe, bekomme ich immer einen E/A-Fehler 32.
Der Programmbenutzer hat an dieser Stelle volles schreib.- und änderungsRechte.
Kann mir da jemand bitte helfen?

[baumina]

rewrite : Erstellt eine neue Datei und öffnet sie anschließend.
reset : Öffnet eine vorhandene Datei.

Also:

Delphi-Quellcode:

if FileExists(Ordner + 'A.csv') then begin
     Reset(output1);
   end else begin
     reWrite(output1);
   end;

[Zoot]

Ich würde als erstes mal aufräumen, ob "Ordner" nun zum Dateinamen gehört oder nicht, das wechselt derzeit in jeder Zeile.

[hirsch]

Ok, klingt logisch, DANKE.

Ich habe die IF gelöscht, dafür nur noch
reWrite(output1,Ordner+'A.csv'); Soll ja auch so sein, immer überschreiben...

[Sir Rufo]

Wenn du eine CSV nach RFC 4180 erzeugen möchtest, dann packe für jede Zeile alle Felder in eine TStringList und schreibe dann den TStringList.DelimitedText als resultierende Zeile. Die Stringlist kümmert sich dann auch um das korrekte Setzen des TStrings.QuoteChar und TStrings.Delimiter und du brauchst dir keinen Kopf machen.

Umgekehrt funktioniert das leider nur unter der Bedingung, wenn kein Feld einen Zeilenumbruch beinhalted

[Uwe Raabe]

Zitat von Sir Rufo:

Wenn du eine CSV nach RFC 4180 erzeugen möchtest, dann packe für jede Zeile alle Felder in eine TStringList und schreibe dann den TStringList.DelimitedText als resultierende Zeile. Die Stringlist kümmert sich dann auch um das korrekte Setzen des TStrings.QuoteChar und TStrings.Delimiter und du brauchst dir keinen Kopf machen.

Du meinst doch sicher TStringList.CommaText, oder?

[Sir Rufo]

Zitat von Uwe Raabe:

Zitat von Sir Rufo:

Wenn du eine CSV nach RFC 4180 erzeugen möchtest, dann packe für jede Zeile alle Felder in eine TStringList und schreibe dann den TStringList.DelimitedText als resultierende Zeile. Die Stringlist kümmert sich dann auch um das korrekte Setzen des TStrings.QuoteChar und TStrings.Delimiter und du brauchst dir keinen Kopf machen.

Du meinst doch sicher TStringList.CommaText, oder?

Sicher nicht, denn hier wird das ; als Trennzeichen benötigt

[Blup]

Nicht vergessen TStrings.StrictDelimiter auf True zu setzen.

[Sir Rufo]

Zitat von Blup:

Nicht vergessen TStrings.StrictDelimiter auf True zu setzen.

Ist aber auch nur für den anderen Weg (einlesen) wichtig und der ist, wie schon gesagt, eh limitiert und darum sollte man das Einlesen anders machen.

[Uwe Raabe]

Zitat von Sir Rufo:

Sicher nicht, denn hier wird das ; als Trennzeichen benötigt

RFC 4180 beschreibt doch COMMA (%x2C) als Trennzeichen zwischen den Feldern, oder?