Discussion :

[BasicZX81]

Bonjour à tous,
De retour pour la 5ème version de ma classe. Au moins j'ai appris plein de choses mais ma classe est toujours au point mort pour la raison suivante :
Les listes suivantes ne sont pas serializable en XML (en Binary et SOAP, ca fonctionne) :
- SortedList
- SortedList (of Tkey , Tvalue)
- Dictionnary (of TKey, TValue)
- SortedDictionnary (of TKey, TValue)
- hashtable.

La seule liste que je peut serializer en XML est :
- List (of T)

Partant de ce constat j'ai mis ma sortedList en Private pour qu'elle ne soit plus traité par la serialization et j'ai ajouté une List (of T) qui fonctionne en parallèle. (Quand j'ajoute un objet dans List(of T) j'ajoute une clé à SortedList).
List (of T) contient mes objets à serializer et SortedList me sert pour sa fonction de trie et pour accéder à un objet grâce à sa clé.

Problème : je ne sais pas faire la correspondance entre les 2 listes. Que puis-je mettre comme valeur dans ma sortedList afin de pouvoir accéder à l'objet contenue dans ma Liste (of T) à partir de ma SortedList ?

je sais pas si je suis clair ?! J'espère.

Merci d'avance pour votre aide une nouvelle fois.

[BasicZX81]

Je laisse tomber la sérialisation XML, trop limité par rapport à SOAP.
A moins qu'il existe une solution simple auquel cas je suis preneur.
(Tant pis pour la lisibilité du fichier).

[rv26t]

Bonjour,

Exemple avec un dictionnaire

Tu crées une classe ayant la structure de tes éléments du dico

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Class DataItem
 
    Private mCle As String
    Public Property Cle() As String
        Get
            Return mCle
        End Get
        Set(ByVal value As String)
            mCle = value
        End Set
    End Property
 
    Private mValeur As String
    Public Property Valeur() As String
        Get
            Return mValeur
        End Get
        Set(ByVal value As String)
            mValeur = value
        End Set
    End Property
 
    Public Sub New()
    End Sub
 
    Public Sub New(ByVal Cle As String, ByVal Valeur As String)
        mCle = Cle
        mValeur = Valeur
    End Sub
End Class

Tu utilises une procédure qui passe les éléments de ton dico dans une liste (du type de la classe ayant la structure de tes éléments du dico) que tu sérialises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub SerialyseDico(ByVal unDictionnaire As Dictionary(Of String, String), ByVal Fichier As String)
        Dim lstDataItems As List(Of DataItem) = New List(Of DataItem)
 
        For Each Cle As String In unDictionnaire.Keys
            lstDataItems.Add(New DataItem(Cle, unDictionnaire(Cle).ToString()))
        Next
 
        ' sortie vers fichier
        Dim xs As New XmlSerializer(lstDataItems.GetType)
        Using sw As New StreamWriter(Fichier)
            xs.Serialize(sw, lstDataItems)
        End Using
 
    End Sub

Utilisation dans un programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim LeDictionnaire As Dictionary(Of String, String) = New Dictionary(Of String, String)
 
    Private Sub frmSerialDict_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 5
            LeDictionnaire.Add("cle" & i, "valeur" & i)
        Next
    End Sub
 
    Private Sub btnSerialDict_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerialDict.Click
        SerialyseDico(LeDictionnaire, "d:\dico.xml")
    End Sub

A toi de voir comment utiliser dans ta classe

A+, Hervé.

[BasicZX81]

Merci beaucoup Hervé, je me suis inspirer de ton exemple. Ca fonctionne super.

[dragondumond]

Merci pour l'exemple, c'est exactement ce que j'avais besoin, a force de faire des copié coller, je vais plus rien apprendre moi !!

[rv26t]

De rien,
Après il faut l'adapter à ton besoin, et là tu peux creuser le principe.