' 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