有这样一段程序，我想知道他的xml文件是什么样子的，就是还原不出来，求救……

Question

在
xmldoc.loadXML xmlString
的后面加上
xmldoc.save "文件名"不就行了

Answer 1

现在xmlString的内容是什么不知道，save后什么都没有。也就是这样一个问题：
Dim xmldoc As DOMDocument
Dim XmlRoot As IXMLDOMElementSet xmldoc = New DOMDocument
xmldoc.load "string.xml"
Set XmlRoot = xmldoc.documentElement
XmlRoot.Attributes.getNamedItem("Key").Text
XmlRoot.Attributes.getNamedItem("Text").Text我是想知道string.xml文件内容是什么？我download的例子中没有这个文件

Answer 2

一般是这样的，哈
<?xml version="1.0" encoding="GB2312"?>
<?xml-stylesheet type='text/xsl' href='/expert/Xsl/2.xsl'?>
<Topic>
<Issue>
<PostUserNickName>小李飞刀的飞，小李飞刀的刀。</PostUserNickName>
<rank>一级(初级)</rank>
<ranknum>user1</ranknum>
<credit>       100</credit>
<TopicId>   1142594</TopicId>
<TopicName>有这样一段程序，我想知道他的xml文件是什么样子的，就是还原不出来，求救……</TopicName>
<PostUserId>90031</PostUserId>
<PostUserName>kare</PostUserName>
<RoomName>VB 基础类</RoomName>
<ReplyNum>2</ReplyNum>
<PostDateTime>2002-11-02 23:16:20</PostDateTime>
<Point>60</Point>
<ReadNum>0</ReadNum>
<RoomId>5101</RoomId>
<EndState>0</EndState>
<Content>Dim xmldoc As DOMDocument
Dim XmlRoot As IXMLDOMElementSet xmldoc = New DOMDocument
xmldoc.loadXML (xmlString)
Set XmlRoot = xmldoc.documentElement
XmlRoot.Attributes.getNamedItem("Key").Text
XmlRoot.Attributes.getNamedItem("Text").Text 这个xml文件的内容放在xmlString字符串中，谁能帮我写出xml内容啊……</Content>
</Issue>

Answer 3

要读的是：
XmlRoot.Attributes.getNamedItem("Key").Text
XmlRoot.Attributes.getNamedItem("Text").Text
你那里面根本就没有Attribute啊更没有Key和Text

Answer 4

Dim xmldoc As DOMDocument
    Dim XmlRoot As IXMLDOMElement
    Dim xmlString As String
    
    Set xmldoc = New DOMDocument
    xmlString = "<A Key=""KKKKKKKKKKKKKKKKKKKK"" Text=""TTTTTTTTTTTTTTTTTTTTTTT""/>"
    xmldoc.loadXML (xmlString)
    Set XmlRoot = xmldoc.documentElement
    Debug.Print XmlRoot.Attributes.getNamedItem("Key").Text
    Debug.Print XmlRoot.Attributes.getNamedItem("Text").Text

Answer 5

<a Key="Key" Text="Text"/>