Filter for Ascii and Ansi/de

From Free Pascal wiki

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') 

  ...



--Olaf 08:49, 3 September 2013 (CEST)