Discussion :

[Qapoka]

Bonjour,

Je me suis fait une fonction qui permette de supprimer un noeud d'un fichier xml :

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
18
19
20
21
22
23
24
25
26
' Supprime un noeud du fichier xml
Public Sub SuppNoeudXML(ByVal filename As String, noeud As String)
 
    Dim xmlDoc As New DOMDocument
    Dim xmlList As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMNode
 
    xmlDoc.validateOnParse = False
    xmlDoc.async = False
 
    ' Ouverture du fichier xml
    If xmlDoc.Load(filename) Then
 
        ' On cherche le noeud
        Set xmlList = xmlDoc.selectNodes(noeud)
 
        ' On supprime les noeuds
        For Each xmlNode In xmlList
            xmlDoc.removeChild (xmlNode)
        Next
 
        xmlDoc.save (filename & "modif")
 
    End If
 
End Sub

Malheureusement, je rencontre cette erreur a l'execution :
Erreur 438 : L'objet ne gére pas cette propriété ou cette methode
sur la ligne xmlDoc.removeChild (xmlNode)

Quelqu'un saurait-il d'ou provient cette erreur? et comment la corriger?

[Qapoka]

Bon, ca y est j'ai trouvé donc pour ceux que ca interesserait :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
' Supprime un noeud du fichier xml
Public Sub SuppNoeudXML(ByVal filename As String, racine as String, noeud As String)
 
    Dim xmlDoc As New DOMDocument
    Dim xmlRacine As IXMLDOMNode
    Dim xmlList As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMElement
 
    xmlDoc.validateOnParse = False
    xmlDoc.async = False
 
    ' Ouverture du fichier xml
    If xmlDoc.Load(filename) Then
 
        ' On cherche le noeud
        Set xmlRacine = xmlDoc.selectSingleNode(racine)
        Set xmlList = xmlRacine.selectNodes(noeud)
 
        ' On supprime les noeuds
        For Each xmlNode In xmlList
 
            xmlRacine.removeChild xmlNode
 
        Next
 
        xmlDoc.save (filename)
 
    End If
 
End Sub

[SErhio]

Je vois que nos méthodes sont très efficaces sur le forum - demander, trouver, afficher le résultat

Et tout ça, le même homme.

[Qapoka]

Ca peut toujours servir a quelqu'un d'autre.