以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML源码及示例(仅原创和转载) 』  (http://bbs.xml.org.cn/list.asp?boardid=32)
----  用msxml2.0的dom创建xml时怎么添加版本信息及编码信息啊？  (http://bbs.xml.org.cn/dispbbs.asp?boardid=32&rootid=&id=9561)

--  作者：txcdhp
--  发布时间：8/25/2004 9:38:00 PM

--  用msxml2.0的dom创建xml时怎么添加版本信息及编码信息啊？
Dim root As IXMLDOMElement
Dim myXMLdoc As MSXML.domdocument
Dim toNode As MSXML.IXMLDOMNode

我的代码如下：
  Set myXMLdoc = New MSXML.domdocument
  Set root = myXMLdoc.createElement("message")
  Set myXMLdoc.documentElement = root
  Set toNode = myXMLdoc.createNode(MSXML.NODE_ELEMENT, "to", "")
   
  root.appendChild toNode
  
Open "d:\myXMLdoc.xml" For Output As #1
    Print #1, root.xml
    Close #1
------------------------------------------------------------------------------------------
我想生成的xml如下：
<?xml version="1.0" encoding="UTF-8"?>
<message>
      <to/>
</message>
-----------------------------------------------------------------------------------------
可是上面那段代码生成的却是没带版本信息的xml,如下：
<message>
      <to/>
</message>

不是那位大侠知道怎么改，谢谢！！！


--  作者：sister9
--  发布时间：10/1/2004 3:48:00 PM

--  
你可否用c#编写过在XML中添加<object>的程序？
--  作者：sister9
--  发布时间：10/2/2004 10:40:00 AM

--  
若用c#时，可试一下：
XmlTextWriter txw=new XmlTextWriter(fpath,System.Text.UnicodeEncoding.UTF8);
txw.WriterStartDocument();
txw.WriterStartElement("message");
......
txw.WriterEndElement();
txw.WriterEndDocument();

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 62.500ms