请问用VB怎样得到XML结点的属性值？

Question

请问用VB怎样得到XML结点的属性值？例如：
<root>
<point name="tom" sex="male">GGG</point>
</root>
我想得到name和male的值。

Answer 1

Private Sub Command1_Click()
    
    Dim objDom      As DOMDocument
    Dim objNode     As IXMLDOMElement
    
    Set objDom = New DOMDocument
    objDom.loadXML "<root><point name='tom' sex='male'>GGG</point></root>"
    
    Set objNode = objDom.selectSingleNode("/root/point")
    
    MsgBox objNode.getAttribute("name")
    MsgBox objNode.getAttribute("sex")
    
End Sub

Answer 2

谢谢，但是我的objNode.为什么点不出来getAttribute()呢？没有这个方法呀？

Answer 3

请先引用MSXML,版本随意。
注意objNode为IXMLDOMElement类型。

Answer 4

fj182(阿花) ( ) 信誉：94  2007-7-3 11:45:39  得分: 0  
 
 
   
请先引用MSXML,版本随意。
注意objNode为IXMLDOMElement类型。  
 
换成vbs怎么就不可以了啊 ？？

Answer 5

On Error Resume Next
Dim objDom               As DOMDocument
Dim objElement             As IXMLDOMElement
Dim objElement1            As IXMLDOMElement
Dim objElement2            As IXMLDOMElement
Dim pi As Integer
Dim di As Integer
Dim bi As Integer
Set objDom = New DOMDocument
objDom.Load g_path & "Response.xml"
If objDom.documentElement Is Nothing Then
    MsgBox "xml文件不存在"
    Exit Sub
End If
Text1.Text = ""
Set objElement = objDom.selectSingleNode(".//BODY")For bi = 0 To objElement.childNodes.length - 1
    Set objElement1 = objElement.childNodes(bi)
    For di = 0 To objElement.childNodes(bi).childNodes.length - 1
        If objElement.childNodes(bi).childNodes(di).baseName = "BEAN" Then
            Set objElement2 = objElement1.childNodes(di)
            Text1.Text = Text1.Text + objElement2.getAttribute("NAME") + "   " + objElement2.getAttribute("HIGH") + "   " + objElement2.getAttribute("USR_ID") + "    " + objElement2.getAttribute("BIRTH") + vbCrLf
        End If
    Next di
Next bi自己再改一改