Utf8File To AnsiFile/de
From Free Pascal wiki
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
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
...