WriteLn hackt letzte Zeile ab

[rokli]

Moin zusammen!

Um eine Text-Datei von A nach B zu kopieren, und dabei u. U. den Inhalt zu manipulieren, verwende ich das folgende Coding:

Delphi-Quellcode:

      AssignFile(txtQ, strQuelle + libFiles.Items[intHelp]);
      Reset(txtQ);
      AssignFile(txtZ, strZiel + libFiles.Items[intHelp]);
      ReWrite(txtZ);
      // 1. Kopieren und evtl. Konvertieren
      while not Eof(txtQ) do begin
         ReadLn(txtQ, strLine);
         if strConvert = 'true' then begin
            strLine   := dvbk_ConvANSItoDOS(strLine);
         end;
         strLine      :=   f_SonderZ(strLine);
         WriteLn(txtZ, strLine);
      end;

Bei der Konvertierung wird in Abhängigkeit von strConvert = true die Zeile von ANSI (Quelle = IBM) nach DOS (MS-DOS 6.2) umgewandelt. Immer werden Sonderzeichen mit f_SonderZ ersetzt. Das nur zur Erklärung der beiden Funktionen - mit meinem Problem hat das nichts zu tun.

Mein Problem liegt da, dass am Ende der Zieldatei immer ein paar Byte fehlen. Die 1000 Sätze werden korrekt von der Quelldatei (txtQ) nach Zieldatei (txtZ) übertragen, nur in der letzten Zeilen fehlen immer ein paar Stellen. Die Satzlänge beträgt übrigen 1.623 Byte.

Ich habe schon versucht, nach dem Kopieren noch eine Leerzeile anzuhängen, das hat aber leider nichts gebracht.

Kennt jemand das Verhalten und hat einen Tipp, was ich tuen kann?

Viele Grüße :hi:
Rolf

[Luckie]

Lass mal aller Funktionen weg. Schreib und lese die Datei nur. Wenn da alles klappt, liegt es an deinen Funktionen, die du zwischendurch áufrufst.

[gammatester]

Das Verhalten tritt auf, wenn man

Delphi-Quellcode:

Closefile(txtZ);

vergißt.

[rokli]

... tja es wurde dadurch nicht besser....

Auffällig ist, dass am Ende kein Return steht (siehe Bild).

Wenn ich ein CR LF dran hänge, dann fehlen mir <009> am Ende der Datei :?:

CloseFilge(txtZ) kommt später, da ich die Quelldatei noch in eine (Archiv) Datei kopieren will, und anschließend die Quelle löschen muss.

Aber ich hol den Close mal nach oben!

[rokli]

gammatester - Du bist ein ganz Großer! :thumb:

Delphi-Quellcode:

   for intHelp := 0 to libFiles.Count - 1 do begin
      AssignFile(txtQ, strQuelle + libFiles.Items[intHelp]);
      Reset(txtQ);
      AssignFile(txtZ, strZiel + libFiles.Items[intHelp]);
      ReWrite(txtZ);
      // 1. Kopieren und evtl. Konvertieren
      while not Eof(txtQ) do begin
         ReadLn(txtQ, strLine);
{         if strConvert = 'true' then begin
            strLine   := dvbk_ConvANSItoDOS(strLine);
         end;
         strLine      :=   f_SonderZ(strLine);}
         WriteLn(txtZ, strLine);
      end;
      CloseFile(txtZ);

      // 2. Sichern
      if strArchiv <> '' then begin

jetzt funzt es!

TKS euch Beiden!!

Grüße
Rolf