Comment puis-je obtenir la valeur d'un nœud spécifique dans un fichier XML?

De ce code XML:

<?xml version="1.0" encoding="utf-8"?>
<Tabel>
  <Member>
    <Naam>Cruciatum</Naam>
    <Kills>1000</Kills>
    <Deaths>10</Deaths>
    <KD>100</KD>
  </Member>
  <Member>
    <Naam>Ghostbullet93</Naam>
    <Kills>10</Kills>
    <Deaths>1</Deaths>
    <KD>10</KD>
  </Member>
</Tabel>

Comment puis-je obtenir (par exemple) les 10 prochaines à <Kills> ?

J'ai essayé plusieurs choses sans succès.
L'une des idées que j'ai eu a l'aide de ce code:

Dim doc = XDocument.Load("C:\members.xml")
        Dim members = From m In doc.Element("Tabel").Elements("Member")
                      Select naam = m.Element("Naam").Value
        For Each member In members
            lstmembers.Items.Add(member)
        Next

Mais je ne peux pas comprendre comment modifier ce morceau de code pour travailler avec ce que je dois faire maintenant.

(Le code ci-dessus fonctionne parfaitement de l'endroit où il est utilisé.)

  • League of Legends, ou Hamlet?
  • Battlefield 3 en fait 🙂
InformationsquelleAutor Yorrick | 2012-05-23
  1. 10

    Vous pouvez également utiliser XPath pour lire la valeur de l'élément:

    Dim doc As XmlDocument = New XmlDocument()
doc.Load("C:\members.xml")
Dim kills As String = doc.SelectNode("Tabel/Member[Naam='Ghostbullet93']/Kills").InnerText

    Si, toutefois, vous avez l'intention de charger et d'utiliser toutes les données, il serait beaucoup plus facile à utiliser la sérialisation. Pour ce faire, vous devez d'abord créer des classes qui imitent la structure XML (par souci de simplicité, je vais juste utiliser les champs de type chaîne, mais il serait préférable d'utiliser les propriétés):

    Public Class Member
    Public Naam As String
    Public Kills As Integer
    Public Deaths As Integer
    Public KD As Integer
End Class

Public Class Tabel
    <XmlElement("Member")> _
    Public Members As List(Of Member)
End Class

    Puis désérialiser le XML comme ceci:

    Dim serializer As XmlSerializer = New XmlSerializer(GetType(Tabel))
Dim tabel As Tabel = CType(serializer.Deserialize(File.OpenRead("C:\members.xml")), Tabel)
For Each member As Member in tabel
    Dim kills As Integer = member.Kills
Next
    • Purrrr effet, merci 🙂
    • J'ai mis à jour ma réponse avec une autre option à l'aide de la sérialisation.
    • La sérialisation que mettre tous dans 1 ligne? Je ne suis pas tout à fait sûr de ce que tu veux dire exactement. Cela étant dit, la première méthode fonctionne parfaitement et rapide. Ce n'est pas comme je vais avoir des milliers de <Member>.</Member> nœuds, seulement comme 20-ish à la fin.
    • La sérialisation permet de facilement enregistrer un objet dans un document XML. Par défaut, toutes les propriétés de l'objet sont représentés dans le XML comme des sous-éléments. Vous pouvez utiliser des attributs pour personnaliser davantage la façon dont le sérialiseur formats XML. La pratique, c'est que vous pouvez également désérialiser à partir de la sauvegarde XML dans un objet. Donc, si vous avez un peu de XML que vous devez lire, il vous suffit de créer une classe qui reflète la structure XML et ensuite désérialiser en elle.
    • J'ai mis à jour l'exemple pour montrer comment vous avez pu lire à partir de l'objet désérialisé. Il contiendra une liste de tous les membres.
    InformationsquelleAutor Steven Doggart
  2. 3

    XPath ou XmlDeserialization recommandée par Steve sont d'excellentes options, mais pour un pur LINQ solution, vous avez juste besoin d'ajouter un Where clause à votre requête. 

    Dim doc = XDocument.Load("C:\members.xml")
Dim members = From m In doc.Element("Tabel").Elements("Member")
              Where m.Element("Naam").Value = "Ghostbullet93"
              Select kills = m.Element("Kills").Value

    members sera toujours un IEnumerable<String> dans cet exemple, donc si vous avez seulement 1 objet, vous devez faire quelque chose comme:

    Dim member = members.First()  //will throw exception if collection is empty

    ou 

    Dim member = members.Single()  //will throw exception if collection is empty or has 2 or more elements

    (Mon vb.NET est très rouillé, donc s'il vous plaît pardonnez les erreurs de syntaxe).

    InformationsquelleAutor psubsee2003