XMLから情報を取得するには？

解決

---

環境  VB6.0  WinXP
お世話になります。
INIファイルからGetPrivateProfileStringのAPIを使用して、
情報を取得するように、以下のようなXMLファイルから
"999"と"VBセンター"を取得したいと思い、色々調べたのですが
見つからず、質問させて頂きました。

<FAMILY>
  <!-- ローカル端末情報 -->
  <BUMON>
    <BUMONCD>999</BUMONCD>
    <BUMONMEI>VBセンター</BUMONMEI>

ご存知の方、または解決例の掲載されているHPなどをご存知の方、
ご返信頂けると幸いです。

編集 削除

---

提示された内容だと、XMLのデータ形式になっていないような……。(^^;

正しいXMLの形式になっているのであれば、
MSXML4等を使うのが楽でしょうね。

編集 削除

---

ご返事ありがとうございます。
おかげさまで以下のようにして情報を取得できました。

'XMLファイルから情報取得
Public Sub GetXMLINFO()
'XML定義
    Dim xmlDoc   As MSXML.DOMDocument
    Dim xmlEle   As MSXML.IXMLDOMElement
    Dim strBase As String
    Dim strValue As String
    Dim Num01, Num02, i, j As Integer
    Dim xmlNode  As MSXML.IXMLDOMNode

    Set xmlDoc = New MSXML.DOMDocument

    xmlDoc.Load ("D:\TEST.xml")
    Set xmlEle = xmlDoc.documentElement

    strBase = xmlEle.baseName
    Num01 = xmlEle.childNodes.length

    For i = 0 To Num01 - 1
      If xmlEle.childNodes.Item(i).baseName = "BUMONCD" Then
         strValue = xmlEle.childNodes.Item(i).childNodes._
                    Item(0).nodeTypedValue
         Exit For
      End If
    Next

End Sub

ありがとうございました。

編集 削除

---

解決チェックし忘れていました。

編集 削除

---

名前

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

本文

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