Decode HTML Entities to utf-8

Decodes HTML entities to utf-8. Saves the utf-8 data to a file, and displays the byte values.

Download Chilkat Charset ActiveX

set charset = CreateObject("Chilkat.Charset2")

'  Any string argument automatically begins the 30-day trial.
success = charset.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Charset component unlock failed"
    WScript.Quit
End If

'  Decodes HTML entities and returns utf-8 characters.
charset.ToCharset = "utf-8"

'  
Dim byteData

byteData = charset.HtmlEntityDecode("&#12373;&#x3055;&#x304B;&#x304D;")

' Save the bytes to a file.
charset.WriteFile "out_utf8.txt", byteData

' Display the utf-8 bytes.
Dim s
s = ""
For i = 1 To LenB(byteData)
    s = s & CStr(AscB(MidB(byteData, i, 1))) & ","
Next
MsgBox s