Utf8File To AnsiFile/de

From Free Pascal wiki

Deutsch (de)
Zurück zur Seite Code Beispiele.

Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei.

uses
  FileUtil, Classes, ...;

  ...

procedure subDekodiereUtf8DateiZuAnsiDatei(
  const conStrQuellDatei, conStrZielDatei: string);
var
  strlStringlist: TStringList;
  strPuffer: String;

begin

  strlStringlist := TStringList.Create;
  strlStringlist.LoadFromFile(Utf8ToSys(conStrQuellDatei));

  // Wenn BOM vorhanden, dann entfernen
  if Copy(strlStringlist[0], 1, 3) = #$EF#$BB#$BF then
  begin
    strPuffer := strlStringlist[0];
    Delete(strPuffer, 1, 3);
    strlStringlist[0] := strPuffer;
  end;

  // Konvertiert die Stringliste von UTF8 nach Ansi
  strlStringlist.Text := UTF8ToAnsi(strlStringlist.Text);
  strlStringlist.SaveToFile(Utf8ToSys(conStrZielDatei));

  FreeAndNil(strlStringlist);

end;


Aufruf unter Windows:

  ...

  subDekodiereUtf8DateiZuAnsiDatei('E:\Test.txt', 'E:\Test1.txt');

  ...


Aufruf unter Linux:

  ...

  subDekodiereUtf8DateiZuAnsiDatei('/home/user/Test.txt', '/home/user/Test1.txt') then 

  ...



--Olaf 08:04, 7 September 2013 (CEST)