MAC2DOS/de

From Free Pascal wiki

Deutsch (de)

Zurück zur Seite Zeilenumbruch / Newline.

Das Unterprogramm konvertiert die Zeilenumbrüche einer ASCII- bzw. ANSI-Textdatei vom MAC-Format in das DOS-Format.

uses
  FileUtil, ...;

  ...

procedure subMAC2DOS(const conStrQuellDateiname, conStrZielDateiname: string);
// konvertiert Zeilenumbrüche von Mac OS bis Version 9, Apple II, C64 nach
// Windows, DOS, OS/2, CP/M oder TOS (Atari)
var
  txtQuelldatei: file of char;
  txtZieldatei: file of char;
  chrZeichen: char;

begin

  assignfile(txtQuelldatei, UTF8ToSys(conStrQuellDateiname));
  assignfile(txtZieldatei, UTF8ToSys(conStrZielDateiname));
  Rewrite(txtZieldatei);
  Reset(txtQuelldatei);
  Reset(txtZieldatei);

  while not EOF(txtQuelldatei) do
  begin

    Read(txtQuelldatei, chrZeichen);

    if (chrZeichen = #13) then
     begin
       Write(txtZieldatei, chrZeichen);
       Write(txtZieldatei, #10);
       Continue;
     end;

    Write(txtZieldatei, chrZeichen);

  end;

  closefile(txtQuelldatei);
  closefile(txtZieldatei);

end;


Aufruf unter DOS, Windows:

  subMAC2DOS('E:\Test_alt.txt', 'E:\Test_neu.txt');


Aufruf unter LINUX:

  subMAC2DOS('/home/user/Test_alt.txt', '/home/user/Test_neu.txt');



--Olaf 08:22, 23 August 2013 (CEST)