[求助]用VB/VBA写XML

shenj1

下面是我从网上抄来的一段VB代码,运行后XML没有声明版本,即<?xml version="1.0" ?>没有添加在生成的XML文件里,所以想请问高手，添加什么语句能把<?xml version="1.0" ?>写进xml的第一行？

Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode

' Create the XML document.
Set xml_document = New DOMDocument


' Create the Values section node.
Set values_node = xml_document.createElement("Test")

' Add a new line.
values_node.appendChild xml_document.createTextNode(vbCrLf)

' Add the Values section node to the document.
xml_document.appendChild values_node

' Create nodes for the values inside the
' Values section node.
CreateNode 4, values_node, "FirstName", c
CreateNode 4, values_node, "LastName", c
CreateNode 4, values_node, "Street", c
CreateNode 4, values_node, "City", c
CreateNode 4, values_node, "State", c
CreateNode 4, values_node, "Zip", c

' Save the XML document.
xml_document.save m_AppPath & "Values.xml"
End Sub

winland

我记得我以前回过一个这样的帖子，不过找不到了。需要用createProcessingInstruction

类似下面的，你自己试试。

Set Version = xDoc.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34))

xDoc.appendChild Version

shenj1

我还是不会，不过谢谢你。

winland

就放在前面就可以了。

Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
Dim Version As Variant

' Create the XML document.
Set xml_document = New DOMDocument
Set Version = xml_document.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34))

xml_document.appendChild Version

' Create the Values section node.
Set values_node = xml_document.createElement("Test")

' Add a new line.
values_node.appendChild xml_document.createTextNode(vbCrLf)

' Add the Values section node to the document.
xml_document.appendChild values_node

' Create nodes for the values inside the
' Values section node.
'CreateNode 4, values_node, "FirstName", c
'CreateNode 4, values_node, "LastName", c
'CreateNode 4, values_node, "Street", c
'CreateNode 4, values_node, "City", c
'CreateNode 4, values_node, "State", c
'CreateNode 4, values_node, "Zip", c

' Save the XML document.
xml_document.Save m_AppPath & "Values.xml"
End Sub

StartMe

请问搂主解决了写入汉字的问题么？用程序写入xml中的汉字浏览后会成为乱码。试了很多的转换也不行。不知楼主是否已解决？

winland

这个应该跟编码有关系。我迟点试试写个例子看看。

shenj1

谢谢大侠，问题解决。你是怎么学会的，我为什么翻了很多书就是没学会？

winland

QUOTE:

以下是引用shenj1在2007-7-5 15:19:07的发言：

谢谢大侠，问题解决。你是怎么学会的，我为什么翻了很多书就是没学会？

我试了一下写中文内容到XML文件里，我这里显示XML内容是没问题的，可以正确显示中文。

学习的途径很多，我主要是看帮助文件，还有最主要的是Google。我想大部分的解决方法都能Google到。

StartMe

没有问题？为什么我写入中文后用浏览器打开就是乱码呢？一直在做编码转换这方面的工作，但还是没弄明白。

winland

你看看我写的这个XML文件有没有中文显示的问题。我这里是可以用浏览器看到的。我在前面加了个Encoding，其实不加也可以看得到的。

加Encoding是在下面这句里。

Set Version = xml_document.createProcessingInstruction("xml", "version=" & Chr(34) & "1.0" & Chr(34) & " encoding=""gb2312""")

2rGs0V6B.rar (222 Bytes, 下载次数: 542)

2007-7-5 21:33 上传

点击文件名下载附件
[求助]用VB/VBA写XML