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