Jhone99,老鸟进来，怎么改变XML的编码格式。

Question

本帖最后由 lxq19851204 于 2010-07-23 15:12:52 编辑

Answer 1

xmlDoc.implementation.hasFeature "xml", "1.0"

Answer 2

<?xml version="1.0" encoding="utf-8" ?>以上内容放在XML文件首部！

Answer 3

楼主是指用代码实现， UTf-8编码手工另存为 Unicode编码的效果？

Answer 4

你的这篇帖子中不是会加吗？
用 UTF-16 编码。

Answer 5

楼主拼这么多字符串真累啊：）
先试试前面加个
<?xml version="1.0" encoding="utf-16" ?>
后面加个
</xml>

Answer 6

娟，如何加嘛，编译出来的XML还是UTF-8的。

Answer 7

试了一下，CreateProcessingInstruction() 只对用 DOM 对象添加的方式有效，对 LoadXML() 载入的不起作用。
那么只能将Session = ""更改为
Session = "<?xml version=""1.0"" encoding=""utf-16""?>"

Answer 8

昨天改了，还是UTF-8，中文出现的是乱码。只有UNICODE的，才不会出现乱码。

Answer 9

老鸟，可以了。Thanks for your help.

Answer 10

中文没问题的，无论 IE 还是记事本打开都没错。
Option ExplicitSub Main()
    Dim xml As String
    Dim xDocument As DOMDocument
    
    xml = "<?xml version=""1.0"" encoding=""utf-16""?><user><id>1234</id><name>中文名</name></user>"
    
    Set xDocument = New DOMDocument
    xDocument.loadXML xml
    
    xDocument.save "C:\1.xml"
End Sub