Eigentlich möchte ich ein kleines Tool programmieren, welches Umlaute in einer
HTML-Datei ersetzt. Dazu habe ich folgendermaßen angefangen... und das mal getestet.
Delphi-Quellcode:
procedure UmlauteErsetzen(FileName: String);
var
source, target: system.text;
s: string;
begin
{$i-}
Assignfile(source,FileName);
Reset(source);
if IOResult=0 then
begin
Assignfile(target,FileName+'neu');
Rewrite(target);
if IOResult=0 then
begin
while not eof(source) do
begin
readln(source,s);
//Umlaute ersetzen (fehlt noch)
writeln(target,s);
end;
closefile(source);
end else MessageDlg('Konnte nicht speichern.', mtError, [mbOK],0);
closefile(target);
end else MessageDlg('Konnte Datei ('+FileName+') nicht öffnen.', mtError, [mbOK],0);
{$i+}
//Datei ersetzen (fehlt noch)
end;
Wenn ich eine Datei da durchjage, kommt nur leider nicht die gleiche Datei hinten wieder heraus. Die Dateigröße ist minimal anders und die MD5 Prüfsumme passt auch nicht.
Woran liegt das? Wie kann ich das ändern?
Gruß
Ben