Как определить отсутствие ветки XML?

[Rojohn]

Привет всем!
Есть такая задачка - считать файл XML, причем некоторые тэги могут отсутствовать. Вопрос: Как проверить наличие тэга в файле XML? Что-то наверное должно быть NULL, только что? Например есть ветка
Dim nds7 As IXMLDOMNodeList
пробовал писать что-то вроде
If IsNull(nds7.item(0).NodeValue)=True then
но это не то.

Как правильно?
Заранее спасибо за помощь!

[skiperski]

Код: Выделить всё

Dim XMLDoc As MSXML2.DOMDocument
Dim Node As MSXML2.IXMLDOMElement

Set XMLDoc = New MSXML2.DOMDocument
...
Set Node = XMLDoc.selectSingleNode("node_path")
If (Node Is Nothing) Then
    ...
End If

[Rojohn]

Dim XMLDoc As MSXML2.DOMDocument

Какая библиотека используется? У меня работает только:

Код: Выделить всё

Dim XMLDoc As IXMLDOMDocument


или

Код: Выделить всё

Dim XMLDoc As MSXML.DOMDocument


использую библиотеку MSXML.dll (version 2.0) из VB60 SP3
И что такое "node_path" - полный путь к ветке или сам Node?

[Antonariy]

Какая библиотека используется?

version 4.0

И что такое "node_path" - полный путь к ветке или сам Node?

Название ветки.

[skiperski]

Какая библиотека используется?

Без разницы, будет работать в любой версии.

И что такое "node_path" - полный путь к ветке или сам Node?

Если XML-документ имеет структуру

Код: Выделить всё

<catalog>
    <book isbn="12345">
        <caption>Mein Kampf</caption>
        <author>A. Hitler</author>
    </book>
    <book isbn="67890">
        <caption>Kapital</caption>
        <author>K. Marks</author>
    </book>
</catalog>

, то к автору первой книги можно обратиться

Код: Выделить всё

Set Node = XMLDoc.selectSingleNode("catalog/book[position()=1]/author")

или

Код: Выделить всё

Set Node = XMLDoc.selectSingleNode("catalog/book[@isbn='12345']/author")

, или

Код: Выделить всё

Set Node = XMLDoc.firstChild.selectSingleNode("book[@isbn='12345']/author")

, или

Код: Выделить всё

Set RootNode = XMLDoc.selectSingleNode("catalog")
Set BookNodes = RootNode.selectNodes("book")
Set RootNode = BookNodes(1).selectSingleNode("author")

[Rojohn]

Прошу прощения, но, хотя всё здесь написанное очень интересно для общего развития, но у меня вся загрузка-выгрузка уже написаны с использованием IXMLDOMNodeList. Может можно как-то определить отсутствие ветки используя такое объявление Nod-а?
З.ы.: с моим объявлением предложенный код:

Dim XMLDoc As MSXML2.DOMDocument
Dim Node As MSXML2.IXMLDOMElement

Set XMLDoc = New MSXML2.DOMDocument
...
Set Node = XMLDoc.selectSingleNode("node_path")
If (Node Is Nothing) Then
...
End If

увы... не работает

[skiperski]

IXMLDOMNodeList - это не нод, а коллекция нодов, например, в примере выше это BookNodes. Можно, конечно, и коллекцию выбирать. Тогда нужно проверять её свойство length.

ЗЫ: А что, трудно переобъявить?

[Rojohn]

К сожалению слишком много наворочено уже... там многих свойств не хватает. Так что придётся всё изучать заново. Например у него нет свойства .item() и я думаю это не единственное отличие.

З.ы.: кстати, всё вроде работает и без проверки длины.

[skiperski]

А зачем элементу или в общем случае ноду item(), если он уже и есть тот самый айтем?

[Rojohn]

Да я всё понимаю, только их придётся везде удалять и т.п. К тому же мы делаем проект вдвоём с одним челом, который отказывается от такой глобальной переделки, т.к. этот кусок начинал делать он
Может можно как-нить определить отсутствие такого Node (коллекционного)? По сути отсутствие дочерней коллекции... так?

[Antonariy]

К тому же мы делаем проект вдвоём с одним челом, который отказывается от такой глобальной переделки, т.к. этот кусок начинал делать он

Срочно перечитать пассаж "Если бы программисты строили дома"