Stringlängenbegrenzung bei 'Writeln'

[roadrunner-S51]

Hallo an Alle,

ich habe mal wieder ein eigenartiges Problem in meinem Code entdeckt. Ich habe einen String, der z.B. 428 Zeichen lang ist. Diesen Versuche ich mit Writeln in eine Datei zu schreiben. Ist dies erfolgt, fehlen hinten ein paar Zeichen, der String ist nach dem Schreiben also nur noch 384 Zeichen lang.

Gibt es bei dem Befehl Writeln eine Stringlängen-Begrenzung oder mach ich da was falsch?

Hier der Code:

Delphi-Quellcode:

    if i = 1 then   // wenn erste Zeile geschrieben wird Datei neu schrieben
    begin
      AssignFile(f, 'R_Lager.txt');
      Rewrite(f);
      Writeln(f, RecordString);
    end
    else
    begin            // alle weiteren Zeilen anhängen
      Append(f);
      Writeln(f, RecordString);
    end;

Ich danke schonmal für eure Hilfe!

[Bernhard Geyer]

Meine Glaskugel meint das du irgendwo im String ein #00 hast.
Wie baust du den String zusammen.

[roadrunner-S51]

Also den String erstelle ich so:

Delphi-Quellcode:

Trenner := ';';           // Trennzeichen für csv-Datei
 for i := 1 to 1200 do
  begin
 RecordString :=  IntToStr(Lager[i].SchrankNr) + Trenner +      IntToStr(Lager[i].AusschubNr) + Trenner +   IntToStr(Lager[i].FachNr) + Trenner +  IntToStr(Lager[i].TuetenCount) + Trenner +      IntToStr(Lager[i].ProdGroup) + Trenner +  IntToStr(Lager[i].Bauform) + Trenner +   FloatToStrF(Lager[i].RWert, ffFixed, 8, 3) + Trenner +  IntToStr(Lager[i].PackNr1) + Trenner +  DateTimeToStr(Lager[i].Datum1) + Trenner +   IntToStr(Lager[i].Stueck1) + Trenner + IntToStr(Lager[i].RTol1) + Trenner +  IntToStr(Lager[i].TKTol1) + Trenner + IntToStr(Lager[i].ZielTK1) + Trenner +    BoolToStr(Lager[i].Status1) + Trenner +  Lager[i].PSNr1 + Trenner +   IntToStr(Lager[i].IntStatus1) + Trenner +   Lager[i].IntTyp1 + Trenner +   IntToStr(Lager[i].PackNr2) + Trenner +  DateTimeToStr(Lager[i].Datum2) + Trenner +  IntToStr(Lager[i].Stueck2) + Trenner +     IntToStr(Lager[i].RTol2) + Trenner + IntToStr(Lager[i].TKTol2) + Trenner +   IntToStr(Lager[i].ZielTK2) + Trenner + BoolToStr(Lager[i].Status2) + Trenner +   Lager[i].PSNr2 + Trenner + IntToStr(Lager[i].IntStatus2) + Trenner +     Lager[i].IntTyp2 + Trenner 
if i = 1 then
begin
AssignFile(f, 'R_Lager.txt');
Rewrite(f);
Writeln(f, RecordString);
end
else
begin
Append(f);
Writeln(f, RecordString);
end;
end;
CloseFile(f);

Also im Prinzip habe ich ein Lager mit x Plätzen. Jedes dieser Plätze hat x Fächer. Den Inhalt dieser Fächer (Record Lager) soll zeilenweise in eine Datei geschrieben werden.

Ich denke nicht, das in den Strings das #00 vorkommt. Oder hab ich das übersehen?

[Klaus01]

.. etwas OT, mußt Du als Speicher eine Textdatei benutzen?

Wenn nicht, kannst Du auch eine typisierte Datei benutzen, damit sparst
Du dir das umkonvertieren (Str<-> Int).

Delphi-Quellcode:

type
  lager : file of meinLagerRecord

Grüße
Klaus

[Sir Rufo]

@Klaus01

er will eine CSV Datei haben ;)

[roadrunner-S51]

@Klaus01: Warum OT? Ich dachte der Befehl Writln (da ich dachte das es daran liegt) passt in diesen Bereich, da er ein Delphi-Befehl ist?

Klar könnte ich eine typ. Datei nehemn, habe ich in einem anderen, ählichen Fal auch gemacht. Aber die csv bietet mir die Möglichkeit, "einfach mal so" in die Datei zu schauen, bzw. den inhalt mit Excel oder so auzuwerten.

[Bernhard Geyer]

Ich sehe gerade das du keinen Pfad beid er Datei mit angiebst. Evtl. schaust du ja die falsche Txt-Datei an die gar nicht geschrieben wurde und die aktuelle Datei liegt woanders.

[gammatester]

Warum ruftst Du 1199 mal append auf? Ich weiß zwar nicht, ob das die Probleme macht; aber sinnlos und geschwindigkeitsmindernd ist es allemal.

Welches ist denn das erste Zeichen was nicht mehr geschrieben wird?

[mkinzler]

Und in welchem Feld steht es?

BTW.: Ich würde mit Stringlisten arbeiten

[roadrunner-S51]

@Bernhard Geyer: Danke, das stimmt, das ist formal nicht ganz korrekt, aber die Datei ist die richtige. Also den Fehler kann man schonmal ausschließen.

@gammatester: Das Zeichen was nicht mehr geschrieben wird varriert. Es ist quasi immer das 385zigste. Ok, danke, ich könnte die Schleife so umbauen, dass ich die erste Zeile für sich schriebe (wegen Datei neuschreiben) und dann nur och einmal append mache und dann die Zeilen alle ranpacke. Werd ich nach dem Mittag mal testen.

[Sir Rufo]

Ab dem zweiten Durchgang wird die bereits geöffnete Datei wieder zum Anfügen geöffnet.

Delphi-Quellcode:

   AssignFile( f, 'R_Lager.txt' );

   for i := 1 to 1200 do
   begin

     // RecordString zusammenbauen

     if i = 1 then // wenn erste Zeile geschrieben wird Datei neu schrieben
       Rewrite(f);
     Writeln(f, RecordString);
   end;

   CloseFile( f );

EDIT

Du solltest dir aber mal überlegen, ob eine CSVBuilder-Klasse nicht wesentlich geschickter wäre, denn den Code auf Fehler zu überprüfen ist Strafarbeit

Ausserdem besteht hier die Möglichkeit eine nicht konforme CSV-Datei zu erstellen

[gammatester]

Zitat:

Zitat von roadrunner-S51 (Beitrag 1191887)

Ok, danke, ich könnte die Schleife so umbauen, dass ich die erste Zeile für sich schriebe (wegen Datei neuschreiben) und dann nur och einmal append mache und dann die Zeilen alle ranpacke. Werd ich nach dem Mittag mal testen.

Nein, append wird statt rewrite verwendet, also wäre auch nur noch ein weiteres append fehlerhaft, wie gesagt, ich weiß nicht, ob daß das Problem ist. Warum eigentlich so umständlich? Vor der Schleife ein rewrite, in der Schleife 1200 mal writeln, nach der Schleife close.

[Bjoerk]

Zum Testen mal statt Trenner -> Trenner + sLineBreak schreiben, wahrscheinlich stimmt was mit dem letzten zu schreibenden Stríng nicht und etwas Ordnung würde auch nicht schaden :)

Delphi-Quellcode:

procedure SaveToFile;
var
  F: TextFile;
  I: integer;
begin
  AssignFile(F, ExtractFilePath(ParamStr(0)) + 'R_Lager.txt');
  {$I-} Rewrite(F); {$I+};
  if IoResult = 0 then
  begin
    try
      for I := Low(Lager) to High(Lager) do
        Writeln(F, GetCsvRecordString(I));
    finally
      CloseFile(f);
    end;
  end;
end;

[roadrunner-S51]

Vielen Dank an alle, das Problem ist gelöst!

Ich habe die Schleife entsprechend eurer Hinweise vereinfacht und statt dem dauernden append ein einfaches writln gelassen.
Somit sieht das ganze nun schreibtechnisch so aus:

Delphi-Quellcode:

if i = 1 then
    begin
      Rewrite(f);
      Writeln(f, RecordString);
    end
    else
    begin
      Writeln(f, RecordString);
    end;

Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber keint Problem, hauptsache am Ende passt alles und das tut es.

Also Danke nochmal!

[Sir Rufo]

Warum ein doppeltes

Delphi-Quellcode:

WriteLn

?

[Bjoerk]

Zitat:

Zitat von roadrunner-S51 (Beitrag 1191899)

Vielen Dank an alle, das Problem ist gelöst!
Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber kein Problem, hauptsache am Ende passt alles und das tut es.

Prüf mal den IntTyp2 auf Sonderzeichen?

[p80286]

[QUOTE=roadrunner-S51;1191899]

Delphi-Quellcode:

assignfile(f,'myfile');
Rewrite(f);
for i:=1 to irgendwas do
  Writeln(f, RecordString);
closefile(f);

Das wäre noch etwas besser.

Zitat:

Zitat von roadrunner-S51 (Beitrag 1191899)

Das einzige was mir dabei noch aufgefallen ist, wenn ich nach dem ersten Zeilen Schreiben in die Datei schaue, ist die erste Zeile nicht vollständig. Nach dem Schreiben der zweiten Zeile passt auch mit der ersten alles. Ist aber keint Problem, hauptsache am Ende passt alles und das tut es.

Was bitte treibst Du Da?
Erst nach closefile sind alle vorhandenen Daten in die Datei geschrieben worden.
Solltest du vielleich über die eingebaute Buffergröße gestolpert sein?
3*128 = 384

Gruß
K-H

[himitsu]

PS:
Auch wenn hier schon einiges gesagt wurdem bezüglich sinnlosen/doppelten Aufrufen.

Delphi-Quellcode:

AssignFile(f, 'R_Lager.txt');
Rewrite(f);
try
  for i := 1 to 1200 do
    begin
      ...
      Writeln(f, RecordString);
  end;
finally
  CloseFile(f); 
end;

Man kann aber auch alles in eine StringListe schreiben und dann alles gemeinsam Speichern.


Und selbst die einzelnen Werte/Spalten kann man über eine weitere StringListe übersichtlicher behandeln.

Delphi-Quellcode:

SL := TStringList.Create;
SL.Delimiter := Trenner;
SL.StrictDelimiter := True;
...
SL.Clear;
SL.Add(IntToStr(Lager[i].SchrankNr));
SL.Add(IntToStr(Lager[i].AusschubNr));
...
DieGanzeZeile := SL.DelimitedText;  // GroßeSL.Add(SL.DelimitedText);

[p80286]

@Himitsu
da er angeblich noch D5 einsetzt, sollten wir die Finger vom StriktDelimiter lassen,
und wenn er sich schon bei writeln verläuft ist der Weg über delimitedText vllt. nicht so optimal?

Gruß
K-H

[mkinzler]

Das hatte ich auch schon vorgeschlagen, aber Verbesserungsvorschläge werden hier neuderdings grundsätzlich ignoriert.

[Sir Rufo]

Solange wie auch keine weitere Frage zu den Daten gestellt wird ist die lapidare Empfehlung mit einer StringList die Zeile aufzubauen auch kontraproduktiv (wenn man es ganz genau nimmt).

Laut RFC darf ein Feld auch ein Zeilenende beinhalten (das Feld muss dann aber qequoted sein).
Mit einer StringList bekomme ich dabei aber den amtlichen Knieschuss ;)

Alerdings nimmt der TE es mit dem RFC auch nicht so genau :mrgreen:

[mkinzler]

Ich werde es mir merken und in der Zukunft meine Klappe halten!

[himitsu]

Hmmm, beim Auslesen muß StrictDelemiter True sein, sonst gibt es da Problemchen,
aber wenn man Dieses beim Schreiben/Zusammenstelllen auf False setzt, dann sollten auch Zeilenumbrüche gequotet werden. :gruebel:

Aber wenn das Delphi eh so alt ist ... ich glaub das StrictDelemiter wurde eh erst später eingeführt?




Nja, was auch ginge, das wäre Write, um die einzelnen Spalten zusammenzustellen.
Dieser mehrzeilige Befehl ist halt nicht so schön.
So oder so, es gibt ja mehrere Wege, um dieses aufzuteilen.

Delphi-Quellcode:

Write(Datei, Spalte1, ';');
Write(Datei, Spalte2, ';');
Write(Datei, Spalte3, ';');
Write(Datei, Spalte4, ';');
Write(Datei, Spalte5, ';');
...
WriteLn(Datei, LetzteSpalte);

Oder eben auch als ErstelleCSVZeile-Befehl.