Discussion :

[EvaristeGaloisBis]

Bonjour,
depuis quelques jours j'essaie de retirer un noeud d'un document XML.
Je pensais utiliser removeAll comme indiqué dans le cours de Baptiste. Sans succes. La méthode n'existe pas.
Alors je voulais faire utiliser l'object RemoveChild mais de même ça ne fonctionne pas.
Exemple du code avec la méthode RemoveChild

Code :

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

1
2
3
4
 sub SupprimeNoeud(byref stMaRequete as string)
'Dim monNoeud As MSXML2.IXMLDOMNode
Call MesDonneesXML.removeChild(MesDonneesXML.selectNodes(stMaRequete))
End Sub

Si quelqu'un sait comment s'y prendre...

[JackOuYA]

Bonjour,

pourrai-t'on voir ton document XML et l'appel de ta fonction ..?

voici une adapatation VB6 du code dans le tutoriel que tu cite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim xmlDoc As New MSXML2.DOMDocument
Dim xmlSelect As MSXML2.IXMLDOMSelection
Sub TestJacques()
     xmlDoc.async = "false"
    xmlDoc.Load ("jacques.xml")
    'On récupère tous les noeuds enfant à l'intérieur d'une balise enfants
'se trouvant dans un noeud personne qui a comme nom Godoh et comme prénom Madeleine
 Set xmlSelect = xmlDoc.selectNodes("/personnes/personne[nom='Godoh' and prenom='Madeleine']/enfants/enfant")
 xmlSelect.removeAll
 xmlDoc.Save ("Jacques2.xml")
 
End Sub

Jacques.

[EvaristeGaloisBis]

bonjour,
Merci pour ta réponse rapide. La méthode remove all fonctionne à merveille.
Je te mets la base xml comme tu m'as demadé :

Code xml :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
<Annuaire>
	<Presentation MonNom="Evariste GALOIS">
		<Fax>ba.ab</Fax>
		<Tel>ab.ba</Tel>
	</Presentation>
	<Groupe NomDuGroupe="Le Groupe 1">
		<Contact NomDuContact="Toto">
			<IsRouge>Vrai</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
		<Contact NomDuContact="Tata">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
		<Contact NomDuContact="Grand">
			<IsRouge>Vrai</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
	</Groupe>
	<Groupe NomDuGroupe="Mon Bureau">
		<Contact NomDuContact="Clem">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
		<Contact NomDuContact="Caroh">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
	</Groupe>
	<Groupe NomDuGroupe="bureau S.T.A.F.">
		<Contact NomDuContact="F.T">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
		<Contact NomDuContact="Thom">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
		<Contact NomDuContact="">
			<IsRouge>Faux</IsRouge>
			<Tel>ab.ba</Tel>
		</Contact>
	</Groupe>
</Annuaire>

le code pour retirer un noeud est le suivant :

Code :

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

1
2
3
4
5
Sub RetireMoiLeNoeud(ByRef stMaRequete As String)
Dim xmlSelect As MSXML2.IXMLDOMSelection
Set xmlSelect = MesDonneesXML.selectNodes(stMaRequete)
xmlSelect.removeAll
end sub

[JackOuYA]

Merci mais si ton probléme est terminé je n'ai plus besoin du XML ..



Jacques.