Umlaute in html-Entities ändern per Visua-Basic-Script (vbs)

Mit diesem Script wird der Quelltext von html- oder php-Dateien auf deutsche Umlaute (äöüÄÖÜß) durchsucht und sie werden durch die html-Entities ä usw. ersetzt.

Die Datei wird unter gleichem Namen neu abgespeichert.

Const ForReading = 1, ForWriting = 2
Dim fso, objArgs, stream, text
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments

Set stream = fso.OpenTextFile(objArgs(0), ForReading, false)
text = stream.ReadAll
stream.Close

text = Replace(text, chr(228), "ä")
text = Replace(text, chr(246), "ö")
text = Replace(text, chr(252), "ü")
text = Replace(text, chr(196), "Ä")
text = Replace(text, chr(214), "Ö")
text = Replace(text, chr(220), "Ü")
text = Replace(text, chr(223), "ß")

Set stream = fso.OpenTextFile(objArgs(1), ForWriting, true)
stream.Write(text)
stream.Close

WScript.Quit

Der Aufruf in der DOS-Commandozeile sieht so aus:

cscript umlaute.vbs index.php

Script von überall aufrufbar machen

Schön ist es, wenn man das Script aus jedem bliebigen Verzeichnis aufrufen kann, in dem eine zu ändernde Datei liegt.

So geht's:

1. Die Datei umlaute.vbs liegt z.B. im Verzeichnis C:\vbs\
2. Batach-Datei erstellen
   Inhalt von umlaute.bat:
   

   	cscript c:\vbs\umlaute.vbs %cd%\%1 
   	

   %cd% bedeutet aktuelles Verzeichnis, %1 bezieht sich auf die zu übergebene, umzuwandelnde Datei
3. Datei umlaute.bat in eine Verzeichnis legen, welches in der PATH-Umgebungsvariable von Windows genannt wird oder das Verzeichnis von umlaute.bat in der PATH-Umgebungsvariable ergänzen (→ Systemsteuerung → System )
4. bei neuem Eintrag in der PATH-Umgebungsvariable: Rechner neu starten.
5. Beispielhafter Aufruf zum ändern der index.php
   

   D:\meineWebseite>
   D:\meineWebseite> umlaute.bat index.php