Dictionary à partir d'un dataset xml

Version imprimable

Bonjour,

j'ai un dataset que j'écris dans un fichier xml

Code:

1
2
            DataSource.WriteXml("C:\test.xml", XmlWriteMode.WriteSchema)
            XMLSource = New StreamReader("C:\test.xml").ReadToEnd()

dans lequel on peut trouver par exemple ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
<xs:element name="PROPRIETAIRES">
  <xs:complexType>
    <xs:sequence>
      <xs:element name="ID" msdata:AutoIncrement="true"
      type="xs:int" />
      <xs:element name="Nom" minOccurs="0">
        <xs:simpleType>
          <xs:restriction base="xs:string">
            <xs:maxLength value="50" />
          </xs:restriction>
        </xs:simpleType>
      </xs:element>
      <PROPRIETAIRES>
        <ID>1</ID>
        <Nom>B</Nom>
        <Prenom>A</Prenom>
        <CP_ID>0</CP_ID>
        <PAYS_ISOCode>BE</PAYS_ISOCode>
      </PROPRIETAIRES>
      <PROPRIETAIRES>
        <ID>3</ID>
        <Nom>B</Nom>
        <Prenom>J</Prenom>
        <Rue>Rue Clémenceau</Rue>
        <Numero>2</Numero>
        <CP_ID>0</CP_ID>
        <PAYS_ISOCode>BE</PAYS_ISOCode>
      </PROPRIETAIRES>
    </xs:sequence>
  </xs:complexType>
</xs:element>

J'aimerais créer un Dictionary (key, value) mais je ne sais pas trop comment faire, j'ai fait ceci mais c'est incorrect :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim DocumentXML As New XmlDocument()
        Dim params As IDictionary(Of String, String) = New Dictionary(Of String, String)
 
        DocumentXML.Load("C:\test.xml")
 
        Try
            For Each DataRow As dsPrintParams.PRINT_PARAMSRow In Me.PrintParams.dsBD.PRINT_PARAMS.Select("TEMPLATEName = '" & TemplateName)
                Dim Root As XmlElement = DocumentXML.SelectSingleNode("dsUrbanisme")
                Dim Items As XmlNodeList(Items = Root.SelectNodes("xs:element"))
                For Each Item As XmlElement In Items
                    Dim Key As String = Item.GetAttribute("name")
                    Dim Value As String = Item.GetAttribute(" ")
                    params.Add(Key, Value)
                Next
            Next
        Catch e As NullReferenceException
            MessageBox.Show(Err.Description)
        End Try
 
        Return params

Bonjour,

Citation:

Dim Root As XmlElement = DocumentXML.SelectSingleNode("dsUrbanisme")

Citation:

Dim Value As String = Item.GetAttribute(" ")

Il y a quelques lignes qui font que je n'ai pas trop compris ce que tu cherchais..

Peut être que ce que tu veux c'est ça !?

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim params As New Dictionary(Of String, String)
        Dim attributeName As String = "name"
 
        Dim DocumentXML As New XmlDocument()
        DocumentXML.Load("C:\test.xml")
        Dim root As XmlElement = DocumentXML.DocumentElement
        For Each it As XmlElement In root.GetElementsByTagName("xs:element")
            Dim Key As String = attributeName
            Dim Value As String = it.GetAttribute(attributeName)
            params.Add(Key, Value)
        Next

10/04/2012, 11h42
pitite

Merci,

j'ai une erreur

Citation:

Un élément avec la même clé a déjà été ajouté

comment je peux voir les clés et les valeurs du dictionary ?
10/04/2012, 11h49
-N4w4k-

Ah bah oui, j'avais pas pensé à ça (j'utilise rarement les Dictionary..).

Par Dictionary, les clés doivent être uniques.. donc tu ne peux pas ajouter plusieurs keyValuePair avec la clé "name"..
Si ton Dictionary concerne un seul "element", il n'y aura pas de problème, sinon il faut créer un Dictionary par "element"..

A première vue, la solution du Dictionary semble un peu compliquée pour cette utilisation, peut être que ce serait plus simple de créer une classe correspondante..

Pour voir les clés/valeurs ajoutées, tu peux te mettre en mode Debug et placer des points d'arrêt judicieusement dans ton code (F5 pour aller de point d'arrêt en point d'arrêt, F11 pour aller ligne par ligne)
10/04/2012, 13h57
pitite

Merci, Je reviens avec une autre question (je vais essayer de la poser clairement)

Dans une base de données, j'ai plusieurs champs comme par exemple celui-ci

Citation:

DOSSIERS.DOSSIERS_DEMANDEURS.DEMANDEURS.NomComplet

Grace à ça je dois aller rechercher dans mon document xml une valeur qui correspond pour la mettre dans le dictionary

DOSSIER est un nom de balise
DOSSIERS_DEMANDEURS est une relation
DEMANDEURS est nom de balise mais il faut que je le retrouve d'après IDDEMANDEUR
NomComplet est un nom de balise

Citation:

<DOSSIERS>
<IDDEMANDEUR>248</IDDEMANDEUR>

Citation:

<msdata:Relationship name="DOSSIERS_DEMANDEURS" msdata:parent="DOSSIERS" msdata:child="DEMANDEURS" msdata:parentkey="IDDEMANDEUR" msdata:childkey="ID" />

Citation:

<DEMANDEURS>
<ID>248</ID>
<NomComplet>AAAA, AAaa</NomComplet>

Comment puis-je faire ?