UNIX2MAC/de
Zurück zur Seite Zeilenumbruch / Newline.
Das Unterprogramm konvertiert die Zeilenumbrüche einer ASCII- bzw. ANSI-Textdatei vom UNIX-Format in das MAC-Format.\
uses
FileUtil, ...;
...
procedure subUNIX2MAC(const conStrQuellDateiname, conStrZielDateiname: string);
// konvertiert Zeilenumbrüche von Unix, Linux, Android, Mac OS X, AmigaOS, BSD, usw. ... nach
// Mac OS (bis Version 9), Apple II und C64
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 = #10) then
Write(txtZieldatei, #13)
else
Write(txtZieldatei, chrZeichen);
end;
closefile(txtQuelldatei);
closefile(txtZieldatei);
end;Aufruf unter DOS, Windows:
subUNIX2MAC('E:\Test_alt.txt', 'E:\Test_neu.txt');Aufruf unter Linux:
subUNIX2MAC('/home/user/Test_alt.txt', '/home/user/Test_neu.txt');From the Free Pascal wiki, page "UNIX2MAC/de", as it stood on 2020-03-03 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.