如何在XML的节点中添加Attribute属性?????????
原文件内容为：
<?xml version="1.0" encoding="GB2312"?>
<Root>
<Body Value="aaa">
</Body>
</Root>我想通过程序改写为，即添加一个属性值：
<?xml version="1.0" encoding="GB2312"?>
<Root>
<Body Name="ddd" Value="aaa">
</Body>
</Root>如上例中:已知<Body>节点的如何添加属性Name到节点中。
我使有DOMDocument对象
Dim xml1 As DOMDocument
Dim iHeadNode As IXMLDOMNode
Dim iAtt1 As IXMLDOMAttribute
Set xml1 = New DOMDocument40
xml1.Load ("d:\test.xml")
Set iHeadNode = xml1.selectSingleNode("Root")
Set iHeadNode = iHeadNode.selectSingleNode("Body")
Set iAtt1 = iHeadNode.ownerDocument.createAttribute("Name")
iAtt1.nodeValue = "111"
iHeadNode.appendChild (iAtt1) '调用时总是出错!总是提示:"对象不支持该属性或方法"
xml1.save ("d:\test.xml")
原文件内容为：
<?xml version="1.0" encoding="GB2312"?>
<Root>
<Body Value="aaa">
</Body>
</Root>我想通过程序改写为，即添加一个属性值：
<?xml version="1.0" encoding="GB2312"?>
<Root>
<Body Name="ddd" Value="aaa">
</Body>
</Root>如上例中:已知<Body>节点的如何添加属性Name到节点中。
我使有DOMDocument对象
Dim xml1 As DOMDocument
Dim iHeadNode As IXMLDOMNode
Dim iAtt1 As IXMLDOMAttribute
Set xml1 = New DOMDocument40
xml1.Load ("d:\test.xml")
Set iHeadNode = xml1.selectSingleNode("Root")
Set iHeadNode = iHeadNode.selectSingleNode("Body")
Set iAtt1 = iHeadNode.ownerDocument.createAttribute("Name")
iAtt1.nodeValue = "111"
iHeadNode.appendChild (iAtt1) '调用时总是出错!总是提示:"对象不支持该属性或方法"
xml1.save ("d:\test.xml")
Dim iHeadNode As IXMLDOMNode
Dim iAtt1 As IXMLDOMAttribute Set xml1 = New DOMDocument
xml1.Load ("D:\test.xml")
Set iHeadNode = xml1.selectSingleNode("Root")
Set iHeadNode = iHeadNode.selectSingleNode("Body")
Set iAtt1 = xml1.createAttribute("Name")
iAtt1.Value = "111"
iHeadNode.Attributes.setNamedItem iAtt1
MsgBox xml1.xml
结贴