' Umlaute usw. mit HTML-Code ersetzen
set eingabe = WScript.Arguments
if eingabe.count=0 then
HML_Datei = ""
else
HML_Datei = Eingabe(0)
end if
Dim fso,f,bt, CrLf
Const ForReading = 1, ForWriting = 2
CrLf = Chr(13) + Chr(10)
Set fso = CreateObject("Scripting.FileSystemObject")
Set g = fso.OpenTextFile(HML_Datei, ForReading, True)
Text = g.ReadAll
g.close
For x = 128 to 255
ZuErsetzen = Chr(x)
Neu = "" + trim(CStr( x )) + ";"
Text = Replace(Text, ZuErsetzen, Neu)
next
Set f = fso.OpenTextFile(HML_Datei, ForWriting, True)
f.WriteLine text
f.close
Set fso = Nothing