Codierte Umlaute zurück wandeln

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 4/27/2006
Views: 803

Description

Wandelt codierte Umlaute wieder zurück in ihre ursprüngliche Form

Code

Display line numbers

1 Function ReverseEncodedUmlauts(txt) 2 txt = Replace(txt, "Ä", "Ä") 3 txt = Replace(txt, "ä", "ä") 4 txt = Replace(txt, "Ü", "Ü") 5 txt = Replace(txt, "ü", "ü") 6 txt = Replace(txt, "Ö", "Ö") 7 txt = Replace(txt, "ö", "ö") 8 txt = Replace(txt, "ß", "ß") 9 ReverseEncodedUmlauts = txt 10 End Function

No comments avaiable

Add a comment

Name *

Email (won't be displayed) *

Website

Comment *

Sicherheitscode Security Code *