Discussion :

[didier62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tsuji]

Code vbscript :

Sélectionner tout - Visualiser dans une fenêtre à part

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 vbscript :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[didier62]

Bonjour ,

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