XMLファイルのタグの属性を読み取るには？ (ID:116315)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

'####################  XMLファイルインプット用  ####################

Public Sub LoadXMLDocument()
Dim xDoc As MSXML.DOMDocument
Set xDoc = New MSXML.DOMDocument
xDoc.validateOnParse = False
If xDoc.Load("C:\Document\testXML.xml") Then     '
    DisplayXMLNode xDoc.childNodes, 0
Else
    ' エラー情報
    Dim strErrText As String
    Dim xPE As MSXML.IXMLDOMParseError
   ' ParseError オブジェクトを取得
    Set xPE = xDoc.parseError
    With xPE
    strErrText = "次の XML ドキュメントの読み込みに失敗しました :" & _
        "次のエラーが原因です :" & vbCrLf & _
        "エラー # : " & .errorCode & ": " & xPE.reason & _
        "行 #: " & .Line & vbCrLf & _
        "行位置 : " & .linepos & vbCrLf & _
        "ファイル内の位置 : " & .filepos & vbCrLf & _
        "ソース テキスト : " & .srcText & vbCrLf & _
        "ドキュメント URL : " & .URL
    End With

MsgBox strErrText, vbExclamation
    
End If

Set xPE = Nothing

End Sub

Public Sub DisplayXMLNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _
    Indent As Integer)

Dim xNode As MSXML.IXMLDOMNode
    Indent = Indent + 2
    
    For Each xNode In Nodes
        If xNode.nodeType = NODE_TEXT Then
            Debug.Print Space$(Indent) & xNode.parentNode.nodeName & _
            ":" & xNode.nodeValue
        ElseIf xNode.nodeType = NODE_ELEMENT Then
→→→→→→            
        End If
        
        If xNode.hasChildNodes Then
            DisplayXMLNode xNode.childNodes, Indent
        End If
    Next xNode
End Sub

矢印（→）部をどう処理していいのかよくわかりません。
（下記XML文書の場合の"currency=dollar"のdollarを取り込みたい）

<cars>
  <car>
    <name>乗用車</name>
    <price currency=dollar>150</price>
  </car>
  <car>
    <name>トラック</name>
    <price currency=dollar>500</price>
  </car>
  <car>
    <name>オープンカー</name>
    <price currency=dollar>200</price>
  </car>
</cars>

初心者のため、説明等不足が多いと思いますが
ご指導願います。

参考になるホームページや本でもよいので
教えてください。

よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る