VB2005でXMLデータの要素があるかどうかの判定について

質問

VB2005、XMLの初心者です。

XMLデータをMSXMLでパーサーにかけてから全項目を抽出していますが、要素は必須のものもあれば、省略される場合もあります。
下記の方法では、省略されている場合エラーとなってしまうのですが、
指定したパスの要素があるかどうか判定することはできないのでしょうか。
省略される可能性のある場合は、selectsingleNodeではなく、何か別の方法で項目を取得しなければならないのでしょうか。

Private Sub prvParseXML(Byval msxmlDoc As MSXML2.DOMDocument)

Dim Item As String
Dim TableId As String

Item = msxmlDoc.selectsingleNode("/Mml/content/Module/Class/Code").Text
TableId = msxmlDoc.selectsingleNode("/Mml/content/Module/Class/@tableId").Text

End Sub

項目を抽出する方法は上記しか分からなかったのですが、
何かヒントになることでも良いので皆様の知恵をお借りできれば幸いです。
よろしくお願い致します。

回答No.1

redfox63 · ベストアンサー

項目があるかどうかを調べるメソッドは 用意されていないようですのですので selectSingleNodeでオブジェクト(IXMLDOMNode)が返されるかどうかで判断するしかないようです

if msxmlDoc.selectSingleNode(/Mml/conntent/Module/Class/Code") isnot nothing then
Item = msxmlDoc.selectSingleNode(/Mml/conntent/Module/Clas/Code").Text
end if
といった具合か
もしくはオプション項目の親まで取得して
dim oList as MSXML2.IXMLNodeList = _
　　msxmlDoc.selectSingleNode("/Mml/content/Module/Class")
if oList.HasChaile() then
　　dim xmlNode as MSXML2.IXMLDOMNode, n as integer
　　for n = 0 to oList.Length - 1
　　　　xmlNode = oList(n)
　　　　if xmlNode.HasChiledNode() then
　　　　　if xmlNode.SelectSingleNode("Code") is not nothing then
　　　　　　item = xmlNode.SelectSingleNode("Code").text
　　　　　end if
　　　　end if
　　next
end if
といった具合でしょう …

お礼

redfox63様、毎回、回答ありがとうございます！

isnot nothing という判定の仕方を初めて知りました。
教えていただいた方法で、項目があるか判定できました。

本当にありがとうございました！！