Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
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.
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("ささかき") ' 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 |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.