Discussion :

[nicko5959]

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 :

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

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....

[nicko5959]

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

[nicko5959]

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

Code :

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

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
%>

[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

[nicko5959]

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

Code :

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

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