Difference between revisions of "DOS2UNIX/de"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
| Line 1: | Line 1: | ||
{{DOS2UNIX}} | {{DOS2UNIX}} | ||
| − | + | ||
| − | + | ||
| − | Zurück zur Seite [[Newline/de|Zeilenumbruch / Newline]]. | + | Zurück zur Seite [[Newline/de|Zeilenumbruch / Newline]]. |
| − | + | ||
| − | Das Unterprogramm konvertiert die Zeilenumbrüche einer ASCII- bzw. ANSI-Textdatei vom DOS-Format in das UNIX-Format. | + | |
| − | <syntaxhighlight> | + | Das Unterprogramm konvertiert die Zeilenumbrüche einer ASCII- bzw. ANSI-Textdatei vom DOS-Format in das UNIX-Format. |
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
FileUtil, ...; | FileUtil, ...; | ||
| Line 56: | Line 58: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
Aufruf unter DOS, Windows: | Aufruf unter DOS, Windows: | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
subDos2Unix('E:\Test_alt.txt', 'E:\Test_neu.txt'); | subDos2Unix('E:\Test_alt.txt', 'E:\Test_neu.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
| − | Aufruf unter Linux : | + | Aufruf unter Linux: |
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
subDos2Unix('/home/user/Test_alt.txt', '/home/user/Test_neu.txt'); | subDos2Unix('/home/user/Test_alt.txt', '/home/user/Test_neu.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 12:37, 13 February 2020
│
Deutsch (de) │
Zurück zur Seite Zeilenumbruch / Newline.
Das Unterprogramm konvertiert die Zeilenumbrüche einer ASCII- bzw. ANSI-Textdatei vom DOS-Format in das UNIX-Format.
uses
FileUtil, ...;
...
procedure subDos2Unix(const conStrQuellDateiname, conStrZielDateiname: string);
// konvertiert Zeilenumbrüche von Windows, DOS, OS/2, CP/M oder TOS (Atari) nach
// Unix, Linux, Android, Mac OS X, AmigaOS, BSD usw.
var
txtQuelldatei: file of char;
txtZieldatei: file of char;
chrZeichen: char;
booZeiger: boolean = False;
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
booZeiger := True;
Continue;
end;
if (chrZeichen = #10) and (booZeiger = True) then
begin
booZeiger := False;
Write(txtZieldatei, chrZeichen);
Continue;
end;
booZeiger := False;
Write(txtZieldatei, chrZeichen);
end;
closefile(txtQuelldatei);
closefile(txtZieldatei);
end;
Aufruf unter DOS, Windows:
subDos2Unix('E:\Test_alt.txt', 'E:\Test_neu.txt');
Aufruf unter Linux:
subDos2Unix('/home/user/Test_alt.txt', '/home/user/Test_neu.txt');
