Decode HTML Entities to iso-2022-jp

Decodes HTML entities to iso-2022-jp. Saves the Japanese character 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 iso-2022-jp characters.
charset.ToCharset = "iso-2022-jp"

'  
Dim byteData

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

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

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