Récuperer une valeur d'un attribut XML

Version imprimable

1 pièce(s) jointe(s)

Bonjour ,
Je vous écris car je butte depuis un petit moment sur la manière à laquelle je peux récupérer une valeur d'un attribut et l'afficher dans une textbox, sachant que je suis débutant dans le VB.
Au fait, j'ai un fichier xml comme ceci :

Code:

1
2
3
4
5
6
<Settings>
    <Settings_a>
        <Category Name="Dl" Visible="true"/>
             <Element Edit="f" Nom="D" Value="abc"/>
	     <Element Editable="f" Name="D" Value="abc"/>
             <Element Editable="f" Name="V" Value="sca" Visible="true"/>

Pièce jointe 474554

Voici mon code mais il ne retourne rien malheureusement !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim xmldoc2 As XmlDocument = New XmlDocument()
        xmldoc2.Load(path_xml)
        Dim element2 As XmlNodeList
 
 
        element2 = xmldoc2.SelectNodes("//settings/settings_a/category/Element/Value="sca" ")
 
        If Not element2 Is Nothing Then
            For Each Node In element2
                For Each Node3 In Node.ChildNodes
 
                    TXT_V.Text = Node.getAttribute("Value").value
                Next Node3
 
            Next Node
        End If

J'aimerais récupérer la valeur sca dans : settings/settings_a/category/Element/Value="sca".

Merci d'avance de votre support :)

Cordialement,

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim xmldoc2 As XmlDocument = New XmlDocument()
        xmldoc2.Load(path_xml)
 
        'Le chemin XPath est sensible à la casse (donc on mets les majuscules !)
        'Le chemin racine est joignable depuis un seul caractère Slash !
        Dim element2 = xmldoc2.SelectNodes("/Settings/Settings_a/Element")
        For Each n As XmlNode In element2
            'Si tu veux récupérer la valeur "sca" il faut déterminer ce qui différencie les noeuds nommés Element. Et là c'est l'attribut Visible à True !
            If n.Attributes.Cast(Of XmlAttribute).Any(Function(f) f.Name = "Visible" AndAlso f.Value = True) Then
                MsgBox(n.Attributes("Value").Value)
            End If
        Next

A+

14/05/2019, 09h15
salimou90

Inutile de citer le message précédant, cela alourdit la lecture.

Bonjour wallace1,

Exemple adapaté et testé avec succès...
Merci pour le support
Cordialement,