Discussion :

[gwendal86]

Bonjour,

Je travail sur un fichier XML, et je me heurte à un problème qui parait tout simple :

Il ne faut pas que dans le document final apparaissent des balises "vides", i.e. sans valeur.
exemple : <param/>

je ne sais pas comment repérer ces balises vides et les supprimer.

Est-ce que vous sauriez m'aiguiller sur ce sujet ?

merci d'avance
Gw

[gwendal86]

Bonjour,

A toutes fins utiles, j'ai trouvé une solution :

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
 
    Public Sub supprEmptyNodes(ByRef myNodesList As MSXML2.IXMLDOMNodeList)
 
    Dim myNode As MSXML2.IXMLDOMNode
    Dim eraserNode As MSXML2.IXMLDOMNode
 
    For Each myNode In myNodesList
        If myNode.HasChildNodes Then
            supprEmptyNodes myNode.ChildNodes
        Else
            If myNode.Text = "" Then
                Set eraserNode = myNode.ParentNode
                eraserNode.RemoveChild myNode
            End If
        End If
    Next
End Sub