Decode HTML Entities to Shift_JIS

Decodes HTML entities to Shift JIS. 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 Shift_JIS characters.
charset.ToCharset = "Shift_JIS"

'  
Dim byteData

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

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

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