xpath query pb avec namespace prefix [vb6-msxml]

Bonjour,
je souhaites effectuer une query xpath sur un doc xml.
j'utilises microsoft visual basic 6 et msxml.
le problème vient du fichier xml que je prends en entré:
en effet, ce fichier contient un prefix à chaque balise

Code:

---

1 2 3 4

<my:Date></my:Date> <my:Author></my:Author> <my:Product_name>TA2000</my:Product_name> <my:Customer_name>PSA</my:Customer_name>

---

ainsi lorsque j'effectue un selectsinglenode avec indication de "my:" dans la requete xpath,
en ayant declarer le namespace de la facon suivant:

Code:

---

doc_4.setProperty "SelectionNamespaces", "xmlns:my='http://schemas.microsoft.com/office/infopath/2003/myXSD/2005-01-24T08:41:02'"

---

j'ai le problème suivant:

Code:

---

reference to undeclared namespace prefix:'my'

---

sans indication du my dans la requete, le retoure est null.
j'ai essayer avec l'expression ci dessous:

Code:

---

selectnodes("//*[name()='my:nom_balise']")

---

mais j'ai aussi un retour null...
je me demande alors si on peut indiquer un schema(xsd) comme namespace ou bien un formulaire infopath(xsn)?
je n'ai plus trop d'idée!!!
merci de me venir en aide.

Bonjour,

Es-tu obligé de les garder ces préfixes ? (Voir ici)

Ben, sinon, ceci doit pouvoir t'aider...

Argy

oui, je suis obligé de gardé le prefix. du fait que je n'ai pas la possibilité de le supprimer: je ne suis pas en charge de la gestion du doc!
mais c'est la solution qui fonctionne le mieux!(jai fait un test...)

cependant j'ai trouvé une solution sous .net avec l'utilisation de XmlNamespaceManager.
cependant, je ne sais pas si cela existe sous visual basic 6 et la bibliothèque msxml4.0(ou 5.0)???...

Code:

---

1 2 3

dim nsmgr as new xmlnamespacemanager(doc.nametable) nsmgr.addnamespace("nom_prefix","urn:chemin-schema") doc.selectsinglenode("nom_prefix:nom_balise/",nsmgr)

---

Euh là, je ne sais plus...
Peut-être ça:

Code:

---

Dim nsmgr As MSXML2.MXNamespaceManager40

---

Argy

je n'arrive varaiment pas à faire fonction la namespace manager...
les propriétés ne sont pas identiques entre msxml et .net ...
pour le .net on a

Code:

---

1 2	nsp=new xmlnamespacemanager(doc.nametable) nsp.addnamespace("prefix", "urn:xx")

---

et ceci doit nous permettre de faire un selectsinglmenode("path",nsp)
mais je n'y parvient pas...
j'ai essayé de la maniere suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim doc_4 As MSXML2.DOMDocument40 'XPathDocument Set doc_4 = New DOMDocument40 'doc_4.setProperty "SelectionNamespaces", "xmlns:my='urn:schemas-microsoft-com:office:infopath:ECN-RN-template:-myXSD-2005-01-24T08-41-02'" doc_4.Load ("D:\S118047532C0.xml") 'S118047532C0.xml ou ecn doc_4.setProperty "SelectionLanguage", "XPath"   Dim el As IXMLDOMNode Set el = doc_4.document_element If el Is Nothing Then MsgBox "element do not exist" Else MsgBox "element exist" Text1.Text = el.xml Dim first_node As IXMLDOMNode Set first_node = el.firstChild 'marche pour ecn 'Dim second_node As IXMLDOMNode 'Set second_node = first_node.childNodes.Item(0) 'Text1.Text = second_node.Text   End If

---

le problème est que ceci fonctionne pour des fichier "normaux" sans prefix namespace.
dés que j'utilise un fichier ayant un namespace j'ai null en retour.
le docelement retourne null!
avec doc.selectsinglenode("/") ca passe mais je n'ai pas de contenu xml...
que faire???!!!

il ne faut pas oublier qu'un fichier xml reste un fichier... :wink:
aprés une brève periode de cogitation... :trouve:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim line_read, data, result As String data = "" Dim nb_file As Long nb_file = FreeFile() 'obtenir un numero de fichier dispo Open "D:\S118047532C0.xml" For Input As #nb_file 10 Line Input #nb_file, line_read data = data & line_read If EOF(nb_file) <> True Then GoTo 10 Close #nb_file   Dim first_tab() As String Dim second_tab() As String   If data <> "" Then first_tab = Split(data, "<my:Product_name>") If first_tab(1) <> "" Then second_tab = Split(first_tab(1), "</my:Product_name>") If second_tab(0) <> "" Then result = second_tab(0) MsgBox result Else MsgBox "rien dans second split" End If Else MsgBox "rien dans premier split" End If Else MsgBox "rien dans fichier" End If

---

voila c barbare mais sa marche!!!
enkor une victoire de do :twisted: le do :ange:

Mouais...
J'ai pas eu le tps d'approndir mais je pense qu'il doit y avoir une solution...
As-tu essayé de parser avec un XSL...
Voit avec GrandFather (s'il est là), il doit pour t'aider.

Argy