如何獲取xml屬性值？

Question

說我有一些XML。如何使用VB獲取屬性值？

Answer 1

假設您正在使用MSXML庫？

以下代碼將輸出子節點的所有屬性值。在這種情況下的XML是： -

<?xml version="1.0" encoding="utf-8"?> 
<documents> 
    <document id="12345" created="2002-09-24" owner="Andy" /> 
</documents> 

所以輸出結果會顯示id，created和owner的值。

下面的代碼： -

Dim XML As String 
    Dim objXML As New MSXML2.DOMDocument 
    Dim objElem As MSXML2.IXMLDOMElement 
    Dim objSub As MSXML2.IXMLDOMElement 

    XML = "<?xml version=""1.0"" encoding=""utf-8""?><documents><document id=""12345"" created=""2002-09-24"" owner=""Andy"" /></documents>" 

    If Not objXML.LoadXML(XML) Then 
     Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason 
    End If 

    Set objElem = objXML.selectSingleNode("//documents") 

    For Each objSub In objElem.childNodes 
     Debug.Print objSub.nodeName 

     If objSub.Attributes.length > 0 Then 

     For i = 0 To objSub.Attributes.length - 1 

      Debug.Print objSub.Attributes(i).nodeName & " - " & objSub.Attributes(i).nodeValue 

     Next i 

     End If 

    Next 

Answer 2

你可能也想看看這個：

http://www.w3schools.com/XPath/xpath_syntax.asp