VBScript

HTML Encoding

Demonstrates HTML encoding and decoding. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set crypt = CreateObject("Chilkat.Crypt2")

s = "< é ü ç Ω Hello & World ✓ >"

htmlEncoded = crypt.EncodeString(s,"utf-8","html")
outFile.WriteLine(htmlEncoded)

' Output:
' < &eacute; &uuml; &ccedil; &ohm; Hello & World &check; >

' To decode:
s = crypt.DecodeString(htmlEncoded,"utf-8","html")
outFile.WriteLine(s)

' Output:
' < é ü ç Ω Hello & World ✓ >

outFile.Close