fichier xml: lire les attributs

Question

bonjour à tous j'ai un fichier xml de ce type:[blue] [blue] En fait j'aimerais pouvoir lire les attributs de mes nodes et je n'y arrive pas.. Qu'elle est la syntaxe?? Merci

Renfield · Answer

as tu ajouté une reference a 'Microsoft XML' ?

ca te donnes acces a tout un tas de fonctions qui viendraient a bout de ton probleme.

By Renfield

[mailto:thomas_reynald@msn.com mailto:thomas_reynald@msn.com]

Aucune touche n'a été blessée lors de la saisie de ce texte.......... ;)

cs_chris21 · Answer

oui bien sûr, j'arrive à lire le xml, mais pas à séparer les éléments. j'arrive à compter le nombre de nodes, etc... mais je trouve l'aide pas très claire.

Renfield · Answer

J'ai mis ton fichier dans un fichier.xml, et j'ai fais ca :


Private Sub Form_Load()
    Dim XML As New DOMDocument30
    XML.Load App.Path & "\Fil.xml"
    
    Dim Rutas As IXMLDOMNode
    Set Rutas = XML.firstChild
    
    Dim Node As IXMLDOMNode
    
    For Each Node In Rutas.childNodes        Debug.Print "Ruta", "tipo " & NodeAttribute(Node, "tipo"), "url " & NodeAttribute(Node, "url"), "enlace = " & NodeAttribute(Node, "enlace")
    Next Node
    End
End Sub

Function NodeAttribute(lNode As IXMLDOMNode, AttributeName As String) As String
    Dim NodeAtt As IXMLDOMAttribute
    For Each NodeAtt In lNode.Attributes
        If NodeAtt.Name = AttributeName Then
            NodeAttribute = NodeAtt.Text
            Exit Function
        End If
    Next NodeAtt
    Set NodeAtt = Nothing
End Function


By Renfield

[mailto:thomas_reynald@msn.com mailto:thomas_reynald@msn.com]

Aucune touche n'a été blessée lors de la saisie de ce texte.......... ;)

cs_chris21 · Answer

ça ne marche pas chez moi, t'as mis quoi comme référence? j'ai ajouté microsoft ado et microsoft xml 2.0.
merci pour ton aide

cs_chris21 · Answer

j'ai trouvé, par exemple pour afficher les url dans un msgbox, voici mon code:
Function chargement(fichero)
Dim numerorutas As Integer
Dim i As Integer
Dim objxml As New MSXML.DOMDocument
Dim xmllist As MSXML.IXMLDOMNodeList
Dim xmlnode As MSXML.IXMLDOMNode
Dim argumentos As MSXML.IXMLDOMAttribute
objxml.validateOnParse = False
objxml.async = False
If objxml.Load(Dir1.Path & "" & fichero) Then
    'MsgBox ("objxml.Text  " & objxml.Text)
    Set xmllist = objxml.selectNodes("//rutas/ruta")
    'MsgBox argumentos
    numerorutas = xmllist.length
    MsgBox ("xmllist.lenght  " & numerorutas)
        For Each xmlnode In xmllist
        Set argumentos = xmlnode.Attributes(1)
        MsgBox argumentos.Text
        'MsgBox ("xmlnode.Text  " & xmlnode.Text)
        i = i + 1
        Next
    MsgBox ("numero de attributos  " & i)
    On Error GoTo ErrorHandler
    objxml.validateOnParse = True
    Else
    MsgBox "res"
End If
Set objxml = Nothing
Exit Function
ErrorHandler:
MsgBox Err.Description
Set objxml = Nothing
End Function
 :)

Fichier xml: lire les attributs

5 réponses

Discussions similaires