VB生成XML输出时少了头部信息

[janly]

DOMDocument对像保存的XML和直接调用.xml方法，两种结果不一样，


保存是这样的

<?xml version='1.0' encoding='gb2312'?>
<prices><price shuliang="1000" sprice="57"/><logid>1561</logid></prices>

而调用.xml方法

<prices><price shuliang="1000" sprice="57"/><logid>1561</logid></prices>

少了第一行GB2312，而我的XML中肯定有中文，怎么办才让调用.xml方法有GB2312

生成简单的XML，代码如下

Dim xmlDocum As MSXML2.DOMDocument
    Dim xmlRoot As MSXML2.IXMLDOMElement
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim xmlElement As MSXML2.IXMLDOMElement
    Dim pi As IXMLDOMProcessingInstruction
    Dim xmlAttributs As MSXML2.IXMLDOMAttribute

    
    Set xmlDocum = New MSXML2.DOMDocument
    Set xmlRoot = xmlDocum.createElement("prices")
    Set xmlDocum.documentElement = xmlRoot

    Set pi = xmlDocum.createProcessingInstruction("xml", "version='1.0'  encoding='gb2312' ")
    Call xmlDocum.insertBefore(pi, xmlDocum.childNodes(0))
    
    

    Set xmlElement = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "price", "")
    Call xmlElement.setAttribute("shuliang", shuliang)
    Call xmlElement.setAttribute("sprice", sunprice)
    xmlRoot.appendChild xmlElement

   
    Set xmlNode = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "logid", "")
    xmlNode.Text = logid
    xmlRoot.appendChild xmlNode
    


    xmlDocum.Save "C:\test.xml"
    msgbox  xmlDocum.xml