[VB.NET] Sérialisation XML de Collections

Version imprimable

14/12/2004, 18h14
nico-pyright(c)

[VB.NET] Sérialisation XML de Collections

Bonjour à tous,

j'aimerai pouvoir sérialiser en XML des objets plus ou moins complexes comme les collection, ou bien les ArrayList, voire simplement un tableau de String.

J'utilisais XmlSerializer pour mes objets simples à moi, mais ceux cités ci-dessus ne peuvent pas etre sérialisés en XML. Il y a-t-il un moyen de faire ou des objets adaptés ? (le but étant de Sérialiser un liste de valeurs indexées (genre tableau de tableau))

Merci de votre aide
14/12/2004, 18h30
karlus

sérialisation

Il n'y a pas de problème pour sérilaliser un tableau ou un arraylist. Le framework s'occupe en grande partie de la tache. J'utilise en ce moment la serialisation pour transfèrer des objet dans des arraylist ou tableaux via des webservice.
tu peux utilser les classes XmlArrayAttribute du namespace System.Xml.Serialization

Pour sérialiser un tableau tu trouveras plus d'informations et des exemples sur le lien suivant :
http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/cpref/html/frlrfsystemxmlserializationxmlarrayattributeclasstopic.asp

nb: seules les variables ou accesseurs publiques sont sérialisables.
14/12/2004, 18h46
karlus

sérialisation suite

Pour être plus complet voici le lien vers un article intéressant. :
http://msdn.microsoft.com/library/de...attributes.asp

J'espère que ça t'aidera.
Karlus

Merci de ton aide, alors plus précisément, voilà ce que je veux faire :

voici ma classe tableau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System.Xml.Serialization
Imports System.io
Public Class Tableau
 
    Public monTableau As ArrayList
 
    Public Sub New()
        monTableau = New ArrayList
    End Sub
 
    Public Sub save()
        Try
            Dim sr As XmlSerializer
            sr = New XmlSerializer(GetType(Tableau))
            Dim writer As New StreamWriter("d:\test.xml")
            sr.Serialize(writer, Me)
            writer.Close()
        Catch e As Exception
            MsgBox("error writing configCom.xml")
        End Try
    End Sub
End Class

je m'en sers ainsi, ca marche bien :

Code:

1
2
3
4
5
            Dim leTab As New Tableau
            leTab.monTableau.Add("un")
            leTab.monTableau.Add("deux")
            leTab.monTableau.Add("trois")
            leTab.save()

et ce que je voudrais faire, c'est plutot un truc du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
            Dim leTab As New Tableau
            Dim monObj As New Collection
            monObj.Add("un")
            monObj.Add("deux")
            monObj.Add("trois")
            leTab.monTableau.Add(monObj)
            Dim monObj2 As New Collection
            monObj2.Add("quatre")
            monObj2.Add("cinq")
            monObj2.Add("six")
            leTab.monTableau.Add(monObj2)
            leTab.save()

sachant que j'utilise une collection, comme je pourrais bien utiliser autre chose car c'est j'ai un nombre fixe d'élèments.

et là ... ca ne marche pas.

Comment faire ?

Merci de vos aides

15/12/2004, 10h50
karlus

Désolé je ne connais pas la syntaxe VB.net mais tu veux serialiser un tableau qui contient une collection de string... Dans ce cas il faut preciser que cette collection contient des chaines par un attribut [XmlArrayItem,Type = typeof(string)] et préciser de la même façon que le tableau contient des éléments de type arraylist. Si tu as plusieurs type d'objet , il faut le préciser pour chacun des types.
15/12/2004, 10h58
nico-pyright(c)

pourrais-tu me montrer un exemple de déclaration ? meme s'il est en c#

Une autre question, la collection peut-elle etre utilisée comme variable locale uniquement pour etre ajoutée au tableau ?

Merci d'avance

Sinon, il me vient une autre idée, au lieu de faire une collection, je pourrais utiliser une classe perso puisque je sais déjà combien d'élèments je vais avoir.
du style :
Code:

1 2 3 4 5 6 7 8 9 10 <Serializable()> Public Class MesChamps Private un_ As String Private deux_ As String Private trois_ As String Sub New(ByVal un As String, ByVal deux As String, ByVal trois As String) un_ = un deux_ = deux trois_ = trois End Sub End Class
d'où finalement mon code avant la sérialisation devient :
Code:

1 2 3 4 5 6 Dim leTab As New Tableau Dim un As New MesChamps("un", "deux", "trois") leTab.monTableau.Add(un) Dim deux As New MesChamps("quatre", "cinq", "six") leTab.monTableau.Add(deux) leTab.save()
C'est certainement plus simple, mais la sérialisation provoque une exception encore, ai-je oublié qqchose ?

Merci de vos aides

Dans mon cas j'utilise des classes dédiées ne servant qu'à transférer les données. Voici un exemple :
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 [Serializable] [XmlRoot(ElementName = "MaClasse", IsNullable=false)] public class MaClasse { private int _Id = 0; private IList _list = null; [XmlAttribute] public int Id { get {return _Id ;} set {_Id = value;} } [XmlArray(ElementName = "ListeObjetA")] [XmlArrayItem("ObjetA",Type = typeof(ObjetA))] public IList List { get {return _list;} set {_list = value;} } public MaClasse() { }
Ma classe est alors sérialisable ainsi que la collection des objetsA si bien sur l'objetA est lui même serialisable.

Il est aussi posssible d'utiliser des variables locales ou bien des classes pour lesquelles on a pas l'accès au code source. Dans ce cas il faut utiliser des objets XmlAttributes et XmlAttributeOverrides et passer en paramètre cet attribut à l'objet XmlSerializer. Cependant je n'ai pas essayé cette méthode préférant utiliser des objets de transfert de données utilisés dans l'ensemble de l'application .

Voilà j'espère que ça t'aidera.

15/12/2004, 15h28
nico-pyright(c)

Merci beaucoup pour tes liens et tes exemples, après moultes tests, je crois que je suis arrivé à faire ce que je voulais.

Merci encore