Difference between revisions of "Utf8File To AnsiFile/de"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; deleted category included in page template) |
|||
Line 1: | Line 1: | ||
{{Utf8File To AnsiFile}} | {{Utf8File To AnsiFile}} | ||
− | + | ||
− | Zurück zur Seite [[code examples/de|Code Beispiele]]. | + | |
− | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
− | Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei. | + | |
− | + | ||
− | <syntaxhighlight> | + | Das Unterprogramm konvertiert eine UTF8-Datei in eine Ansi-Datei. |
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
FileUtil, Classes, ...; | FileUtil, Classes, ...; | ||
Line 38: | Line 40: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | ||
Aufruf unter Windows: | Aufruf unter Windows: | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
... | ... | ||
Line 49: | Line 52: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | ||
Aufruf unter Linux: | Aufruf unter Linux: | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
... | ... | ||
Line 60: | Line 64: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− |
Latest revision as of 09:33, 4 March 2020
│
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
...