这是一段.vbs里的代码,执行这段代码后输出的.xml文件的encoding始终是UTF-16的,我已经写了wrt.encoding="SHIFT_JIS"可是没用,好象是默认输出UTF-16,怎么能设定encoding呢?请高手们帮忙了,在线等!!!
Public Sub Save()
Dim rdr, wrt, fs, result
Set rdr = WScript.CreateObject("Msxml2.SAXXMLReader")
Set wrt = WScript.CreateObject("Msxml2.MXXMLWriter")
wrt.byteOrderMark = False
wrt.omitXMLDeclaration = False
wrt.indent = True
wrt.encoding = "SHIFT_JIS"
wrt.standalone = True
Set rdr.contentHandler = wrt
Set rdr.dtdHandler = wrt
Set rdr.errorHandler = wrt
rdr.putProperty "http://xml.org/sax/properties/lexical-handler", wrt
rdr.putProperty "http://xml.org/sax/properties/declaration-handler", wrt
rdr.parse m_objDomDoc
Set fs = CreateObject("Scripting.FileSystemObject")
Set result = fs.CreateTextFile(m_strResultFile, True)
result.Write(wrt.output)
result.Close
End Sub
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 DOM/SAX/XPath 』 → 急!急!急!关于encoding的问题!
(订阅本版)
2004/7/6 17:51:00
新浪微博
急!急!急!关于encoding的问题!
