| Bytearray - test of Simplified Chinese, iso-ir-58 | |
|---|---|
<!DOCTYPE HTML Public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<HEAD>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<TITLE>Bytearray - test of Simplified Chinese, iso-ir-58 </TITLE>
<HTA:APPLICATION ID="BAChinese" APPLICATIONNAME="BAChinese" CAPTION="yes" ICON="" SHOWINTASKBAR="yes" SINGLEINSTANCE="no" SYSMENU="yes" SCROLLBAR="no">
</head>
<body>
<h1>Bytearray - test of Simplified Chinese, iso-ir-58</h1>
<script language="vbscript">
Dim Data, Chinesetext, base64Text
'Select any Chinese text
'Chinesetext = "Some text with chinese characters"
'or we can use something from Base64
Chinesetext = GetSomeChinessetext
'Write the text
document.write "Chinese text:<br>"
document.write Chinesetext
'Convert the text to iso-ir-58 binary data
Set Data = CreateObject("ScriptUtils.ByteArray")
Data.CharSet = "iso-ir-58"
Data.String = Chinesetext
'Write the data as a base-64 string
document.write "<br><br>base 64 encoded text in iso-ir-58 charset:<br>"
base64Text = Data.Base64.String
document.write base64Text
'Create a second bytearray to convert base64 data back
Set Data2 = CreateObject("ScriptUtils.ByteArray")
Data2.CharSet = "iso-ir-58"
'Convert the base-64 data to a binary data
Data2.Base64 = base64Text
document.write "<br><br>Base 64 string converted back:<br>"
'Write the data as an UNICODE string
document.write Data2.String
Function GetSomeChinessetext
Dim BA
Set BA = CreateObject("ScriptUtils.ByteArray")
BA.Base64 = "v8a8vLK8vta199X70+u53MDttLTQwg=="
BA.CharSet = "iso-ir-58"
GetSomeChinessetext = BA.String
End Function
</script>
</body>
</html> | |