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

解決

れいこ 2005-06-07 20:17:05 No: 90271

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

<FAMILY>
  
  <BUMON>
    <BUMONCD>999</BUMONCD>
    <BUMONMEI>VBセンター</BUMONMEI>

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

魔界の仮面弁士 2005-06-07 20:52:17 No: 90272

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

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

れいこ 2005-06-08 19:42:51 No: 90273

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

'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

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

れいこ 2005-06-08 19:43:36 No: 90274

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