Récupérer une valeur d'un xml dans une variable

Version imprimable

Bonjour

Je dispose du fichier xml suivant (que j'ai simplifié un peu) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" standalone="yes"?>
<Contenu>
  <Utilisateurs>
    <Serveur>127.0.0.1</Serveur>
    <ID>TESTID</ID>
    <MDP>TESTMDP</MDP>
  </Utilisateurs>
  <Utilisateurs>
    <Serveur>154.192.1.6</Serveur>
    <ID>RETESTID</ID>
    <MDP>RETESTMDP</MDP>
  </Utilisateurs>
</Contenu>

J'ai créé une fenêtre avec un combobox où il est possible de sélectionner un utilisateur par son ID (par exemple, là ce serait les utilisateurs TEST et RETEST)

En appuyant sur un bouton "Connexion", j'aimerais récupérer les 3 valeurs de l'utilisateur sélectionné (les valeurs dans les balises Serveur, ID et MDP) dans 3 variables.

Pour cela, j'ai ce petit bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Private Sub ButtonConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonConnect.Click
        Dim doc As New XmlDocument()
        Dim valeurentree As String = ComboBoxChoose.SelectedItem    'la variable valeurentree correspond à l'utilisateur selectionné dans le combobox
 
        If valeurentree <> "" Then      'si le combobox n'est pas vide
            doc.Load("utilisateurs.xml")    'on charge le fichier xml
            Dim node As XmlNode = doc.SelectSingleNode("Contenu/Utilisateurs/ID[. = '" & valeurentree & "']") 'on selectionne le noeud dont l'ID correspond à la valeur du combobox
            If node IsNot Nothing Then
                'result = node.ParentNode...    'C'est ici que je bloque, je ne sais pas comment faire pour sélectionner chaque noeud enfant et récupérer leur valeur
                doc.Save("utilisateurs.xml")
                Me.Close()
                MessageBox.Show("Vous allez être connecté avec l'utilisateur " & valeurentree)
            End If
        Else
            MessageBox.Show("Veuillez selectionner un utilisateur pour vous connecter")
        End If
 
    End Sub

J'arrive à sélectionner le noeud parent avec les 3 noeuds enfants qui m'interessent mais je n'arrive pas à récupérer leur valeur...
Ce n'est pourtant pas faute d'avoir essayé, j'essaie de trouver la solution depuis ce matin :?

Si quelqu'un a une idée je suis preneur ;)

Bonne soirée

Bonjour,
peut être une piste avec InnerText

Code:

1
2
3
4
5
6
7
8
9
10
11
            'on selectionne le parent du noeud dont l'ID correspond à la valeur du combobox
            Dim node As XmlNode = doc.SelectSingleNode("Contenu/Utilisateurs/ID[. = '" & valeurentree & "']").ParentNode
            If node IsNot Nothing Then
                'Display the contents of the child nodes.
                If node.HasChildNodes Then
                    Dim i As Integer
                    For i = 0 To node.ChildNodes.Count - 1
                        Console.WriteLine(node.ChildNodes(i).InnerText)
                    Next i
                End If
            End If

Bonjour

Ça marche très bien grâce à ta méthode :ccool:

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 doc.Load("utilisateurs.xml") 'on charge le fichier xml Dim node As XmlNode = doc.SelectSingleNode("Contenu/Utilisateurs/ID[. = '" & valeurentree & "']").ParentNode If node IsNot Nothing Then If node.HasChildNodes Then urluser = node.ChildNodes(0).InnerText iduser = node.ChildNodes(1).InnerText mdpuser = node.ChildNodes(2).InnerText End If End If Me.Close() MessageBox.Show("Vous allez être connecté avec l'utilisateur " & iduser)
Merci beaucoup pour ton aide chrismonoye :)

J'ai marqué le sujet en résolu

Bonne journée

Edit :

J'ai un autre petit problème, tellement petit que je n'ose pas recréer un sujet pour ça :?

Je dispose de 3 fenêtres : une où on sélectionne l'utilisateur (ChooseBox), la fenêtre principale où on entre l'url du serveur où se connecter (MainBox) et une petite fenêtre pour s'identifier (LoginBox)

Lorsqu'on clique sur connexion dans la ChooseBox :
- La ChooseBox se ferme
- l'URL de l'utilisateur sélectionné se met dans le textbox de la MainBox
- Le bouton OK de la MainBox est cliqué
- La fenêtre LoginBox s'ouvre

Et c'est là où ça ne va plus : il ne se passe rien, alors que les 2 textbox de la LoginBox devraient se remplir tout seul et le bouton Connexion devrait être cliqué (comme fait précédemment dans la MainBox)

Voici mon code
Code:

1 2 3 4 5 6 7 8 MainBox.txtUrl.Text = "ftp://" & urluser MainBox.btnOk.PerformClick() 'la fenêtre LoginBox s'ouvre, où il faut entrer identifiant et mot de passe Thread.Sleep(2000) '2 secondes de pause pour lui laisser le temps de s'ouvrir LoginBox.txtUsername.Text = iduser LoginBox.txtPassword.Text = mdpuser LoginBox.btnLogin.PerformClick() 'mais là il ne se produit rien, les 2 champs restent vides et le bouton n'est pas cliqué...
Est-ce que quelqu'un voit le problème? Il doit manquer un petit quelque chose mais je ne vois pas quoi :?

09/03/2013, 20h41
FANDENEGI

C'est bon j'ai trouvé. :ccool: