Difference between revisions of "Filter for Ascii and Ansi/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
Line 49: | Line 49: | ||
subUnerlaubteSonderzeichenEntfernen('E:\Test.txt', 'E:\Test1.txt'); | subUnerlaubteSonderzeichenEntfernen('E:\Test.txt', 'E:\Test1.txt'); | ||
− | + | ||
− | |||
... | ... | ||
Line 60: | Line 59: | ||
... | ... | ||
− | + | subUnerlaubteSonderzeichenEntfernen('/home/user/Test.txt', '/home/user/Test1.txt') | |
− | |||
... | ... |
Revision as of 10:20, 5 September 2013
│
Deutsch (de) │
Das Unterprogramm entfernt unerlaubte Steuerzeichen aus Ascii und Ansi-Dateien.
uses
FileUtil, ...;
...
procedure subUnerlaubteSonderzeichenEntfernen(
const conStrQuellDatei, conStrZielDatei: string);
var
txtQuelldatei: file of char;
txtZieldatei: file of char;
chrZeichen: char;
begin
AssignFile(txtQuelldatei, UTF8ToSys(conStrQuellDatei));
Reset(txtQuelldatei);
AssignFile(txtZieldatei, UTF8ToSys(conStrZielDatei));
Rewrite(txtZieldatei);
Reset(txtZieldatei);
while not EOF(txtQuelldatei) do
begin
Read(txtQuelldatei, chrZeichen);
if (chrZeichen < #32) and (not (chrZeichen in [#9, #10, #13, #26])) then
else
Write(txtZieldatei, chrZeichen);
end;
CloseFile(txtQuelldatei);
CloseFile(txtZieldatei);
end;
Aufruf unter Windows:
...
subUnerlaubteSonderzeichenEntfernen('E:\Test.txt', 'E:\Test1.txt');
...
Aufruf unter Linux:
...
subUnerlaubteSonderzeichenEntfernen('/home/user/Test.txt', '/home/user/Test1.txt')
...
--Olaf 08:49, 3 September 2013 (CEST)