Difference between revisions of "Filter for Ascii and Ansi/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Filter for Ascii and Ansi}} <br> <br> Das Unterprogramm entfernt unerlaubte Steuerzeichen aus Ascii und Ansi-Dateien.<br> <br> <syntaxhighlight> uses FileUtil, ...; ......") |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (6 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
{{Filter for Ascii and Ansi}} | {{Filter for Ascii and Ansi}} | ||
| − | + | ||
| − | + | ||
| − | Das Unterprogramm entfernt unerlaubte Steuerzeichen aus | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
| − | + | ||
| − | <syntaxhighlight> | + | |
| + | Das Unterprogramm entfernt unerlaubte Steuerzeichen aus ASCII- und ANSI-Dateien. | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
FileUtil, ...; | FileUtil, ...; | ||
| Line 42: | Line 45: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
| + | |||
Aufruf unter Windows: | Aufruf unter Windows: | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
... | ... | ||
subUnerlaubteSonderzeichenEntfernen('E:\Test.txt', 'E:\Test1.txt'); | subUnerlaubteSonderzeichenEntfernen('E:\Test.txt', 'E:\Test1.txt'); | ||
| − | + | ||
| − | |||
... | ... | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
Aufruf unter Linux: | Aufruf unter Linux: | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
... | ... | ||
| − | + | subUnerlaubteSonderzeichenEntfernen('/home/user/Test.txt', '/home/user/Test1.txt') | |
| − | |||
... | ... | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 05:14, 15 February 2020
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
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')
...
