[VBA E XML] Suppression d'un noeud

Version imprimable

23/06/2008, 10h40
EvaristeGaloisBis

[VBA E XML] Suppression d'un noeud
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:

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

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:

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.

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:

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:

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

23/06/2008, 13h41
JackOuYA

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

Jacques.