vbs Xml Comment tester la presence d'une variable ?

Bonjour

j'ai besoin de tester la presence d'une valeur dans un fichier XML avant de la lire.
Cette valeur n'est pas forcement presente.

mon code est

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For Each hostElement In objXmlDoc.selectNodes("/dbd-support-info/global/auth") host_id = hostElement.selectSingleNode("auth_id").text host_name = hostElement.selectSingleNode("name").text host_description = hostElement.selectSingleNode("description").text   Set host_site_id = hostElement.selectSingleNode("//site_id") ' Permet de tester si le champ existe If Not host_site_id Is Nothing Then host_site_id = hostElement.selectSingleNode("site_id").text Else host_site_id = " " End If

---

et donc la commande 'if not xxx is nothing then' ne fonctionne pas .

Quelqu'un a t il deja utilisé cela
MErci

Citation:

---

Code:

---

1 2 3 4 5 6

Set host_site_id = hostElement.selectSingleNode("//site_id") ' Permet de tester si le champ existe If Not host_site_id Is Nothing Then host_site_id = hostElement.selectSingleNode("site_id").text Else host_site_id = " " End If

---

et donc la commande 'if not xxx is nothing then' ne fonctionne pas.

---

C'etait plutôt une grande illusion qu'il ne marchait pas.

D'abord, "//site_id" et "site_id" ne sont pas la même chose. Pour le dernier, il faut que site_id soit un enfant direct de hostElement. Pour le premier, le problème est plus compliqué : //site_id signifie tous les déscendants (dit l'axe déscendant) à partir de la racine du document lui-même, pas même à partie de hostElement. Pour qu'il prend hostElement comme le noeud en contexte, il faut s'écrire comme ".//site_id". Donc, ".//site_id" ou "site_id", il faut que vous décidiez; et en tout cas, "//site_id" n'est pas ce qu'il ne doit s'écrire.

Code:

---

1 2 3 4 5 6 7

Set host_site_id = hostElement.selectSingleNode(".//site_id") ' Permet de tester si le champ existe 'Set host_site_id = hostElement.selectSingleNode("site_id") 'si site_id est un enfant direct qu'on cherche If Not host_site_id Is Nothing Then host_site_id = host_site_id.text Else host_site_id = "" ' pourquoi faire un espace blanc tout à fait non-sens End If

---

ps : host_site_id s'est pris tantôt comme IXMLDOMElement tantôt comme un texte, c'est admissible en vbs mais ce n'est pas de pratique terrible.

Bonjour ,

site_id est un enfant direct , je tente de comprendre
merci d'avance