VB2005でXMLから複数ある要素の項目を取得する方法

解決済

質問者：machikado0
質問日時：2007/11/12 15:08
回答数：1件

VB2005、XMLの初心者です。

下記XMLの「ヤマダタロウ」を抽出するのがうまくいきません。

<Module>
<Body>
<Item Code= A TableId=001>
<Name>ヤマダタロウ</Name>
</Item>
<Item Code= B TableId=001>
<Name>山田太郎</Name>
</Item>
</Body>
</Module>

上記XMLがmsxmlDocとして引数で下記プロシージャに渡されるのですが、selectNodesではなぜか取得できません。
どこか間違っているでしょうか。

Private Sub prvParseXML(Byval msxmlDoc As MSXML2.DOMDocument)

Dim NodeList As MSXML2.IXMLDOMNodeList
NodeList = msxmlDoc.selectNodes("/Module/Body/Item[@Code='A'][@tableId='001']/Name")

End Sub

何かヒントになるようなことでも良いので、皆様の知恵をお借りできれば幸いです。
よろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： redfox63
回答日時：2007/11/12 17:19

XMLファイルのItemの属性データが ""で括っていないからのようですよ

MSXML4.0を参照設定しておいて
dim xmlDoc as MSXML2DomDocument
' 『"』が無いとここで失敗して selectNodesまで行かない
if xmlDoc.load("ファイルパス") then
　　dim nList as MSXML2.IXMLNodeList
　　nList = xmlDoc.selectNodes("/Module/Body/Item[@Code='A'][@TableID='001']/Name")
　　if nList.Length > 0 then
　　　　MsgBox( nList(0).text )
　　end if
end if

<Item Code='A' TableId='001'> といった具合で『'』『"』などで括っておかないと面白くないようです