Difference between revisions of "Filter for Ascii and Ansi/de"

From Lazarus wiki
Jump to navigationJump to search
m
m (consistent naming)
Line 2: Line 2:
 
<br>
 
<br>
 
<br>
 
<br>
Das Unterprogramm entfernt unerlaubte Steuerzeichen aus Ascii und Ansi-Dateien.<br>
+
Das Unterprogramm entfernt unerlaubte Steuerzeichen aus ASCII- und ANSI-Dateien.<br>
 
<br>
 
<br>
 
<syntaxhighlight>
 
<syntaxhighlight>

Revision as of 16:46, 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)