(VBScript) Load ucs2 XML File (utf-16)

Demonstrates how to load a ucs2 (utf-16 little-endian) XML file into Chilkat XML.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' If the XML file specifies the encoding in the XML declaration, such as:
' <?xml version = "1.0" encoding = "UTF-16" standalone = "no" ?>
' Then it's simply a matter of calling LoadXmlFile.
' Chilkat will automatically read the XML declaration and will
' process the file correctly.   For example:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
success = xml.LoadXmlFile("qa_data/xml/sample_ucs2.xml")

' If, however, there is no XML declaration to indicate the character encoding,
' then you must explicitly read the file according to what you know
' is the correct encoding.  For example:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.LoadFile("qa_data/xml/sample_ucs2.xml","utf-16")
' Assuming success...
success = xml.LoadSb(sb,1)

' To convert to the XML from utf-16 to utf-8, do the following:
xml.Encoding = "utf-8"
outFile.WriteLine(xml.GetXml())
success = xml.SaveXml("qa_output/sample_utf8.xml")

outFile.Close