[xml][asp_vbscript] savoir si un SelectSingleNode est vide

Version imprimable

Bien le bonjour à tous,

Voila, je débute completement en asp / xml et je veux importer mon fichier XML ( fichier générer automatiquement par un logiciel de stat donc structure non modifiable)

en fait, je veux que, tant que le SelectSingleNode existe, qu'il continue le code, mais je n'arrive pas à trouver la syntaxe permettant cela.

Voici mon code :*
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 <% Set Objet_Document = Server.CreateObject("MSXML2.DOMDocument") nom_fich="resultatCancerSein.xml" Objet_Document.async = false fichier = Server.MapPath(nom_fich) Objet_Document.load fichier Dim objNode while Objet_Document.documentElement.SelectSingleNode("command["& i &"]/pivotTable") //existe Set objNode=Objet_Document.documentElement.SelectSingleNode("command["& i &"]/pivotTable") Response.write objNode.getAttribute("text") //traitement...... Set i = i + 1 End while %>
Il refuse egallement mon end while je ne sais pas pkoi....

13/01/2006, 15h14
nicko5959

derniere chose, si qqn connait un site relatant les différentes options du langague vbscript dans asp....

j'ai fais quelques oublis sur mon premier code...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<%
	Dim i
	i = 0
	Set Objet_Document = Server.CreateObject("MSXML2.DOMDocument")
	nom_fich="resultatCancerSein.xml"
	Objet_Document.async = false
	fichier = Server.MapPath(nom_fich)
	Objet_Document.load fichier
	Dim objNode 
    while Objet_Document.documentElement.SelectSingleNode("command["& i &"]/pivotTable")  'existe
		Set objNode=Objet_Document.documentElement.SelectSingleNode("command["& i &"]/pivotTable") 
		Response.write objNode.getAttribute("text") & "<br>"
		i = i + 1
	Wend
%>

13/01/2006, 18h07
Erwy

honnetement je n'utilise jamais le selectsinglenode donc je me souviens qu'il y a un pb mais sans plus, je lui prefere

un obj.selectNodes(....)(0) et pour tester si il existe il me suffit de obj.selectNodes(....).length>0

ok, j'ai trouvé qd meme la reponse vendredi soir, dans un dernier élan de courage ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
	Dim Noeud
    Dim Noeuds
	Set Objet_Document = Server.CreateObject("MSXML2.DOMDocument")
	nom_fich="********.xml"
	Objet_Document.async = false
	fichier = Server.MapPath(nom_fich)
	Objet_Document.load fichier
	Dim objNode 
	Set Objet_NodeList = Objet_Document.getElementsByTagName("command")
    For i = 0 To Objet_NodeList.Length -1
		Set objNode=Objet_Document.documentElement.SelectSingleNode("command["& i &"]/pivotTable") 
		Response.write objNode.getAttribute("text") & "<br>"
	Next