Option Strict On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MaClasse As New Files MaClasse.Add(New File("tata", "1", 10)) MaClasse.Add(New File("titi", "2", 200)) MaClasse.Add(New File("toto", "1", 6)) MaClasse.Add(New File("tutu", "7", 40)) Dim ser As New Xml.Serialization.XmlSerializer(GetType(Files)) Using writer As New IO.StreamWriter("test.xml") ser.Serialize(writer, MaClasse) End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim MaClasse As New Files Dim ser As New Xml.Serialization.XmlSerializer(GetType(Files)) Using reader As New IO.StreamReader("test.xml") MaClasse = CType(ser.Deserialize(reader), Files) End Using End Sub Public Class Files Dim _Liste As New List(Of File) Sub New() End Sub Sub Add(ByVal File As File) _Liste.Add(File) End Sub Property Liste As List(Of File) Set(ByVal value As List(Of File)) _Liste = value End Set Get Return _Liste End Get End Property End Class Public Class File Dim _Nom, _Version As String Dim _Taille As Long Sub New() End Sub Sub New(ByVal nom As String, ByVal version As String, ByVal Taille As Long) _Nom = nom _Version = version _Taille = Taille End Sub Property Nom As String Set(ByVal value As String) _Nom = value End Set Get Return _Nom End Get End Property Property Version As String Set(ByVal value As String) _Version = value End Set Get Return _Version End Get End Property Property Taille As Long Set(ByVal value As Long) _Taille = value End Set Get Return _Taille End Get End Property End Class End Class
Dim MaClasse As New Files Dim ser As New Xml.Serialization.XmlSerializer(GetType(Files)) Using reader As New IO.StreamReader("test.xml") MaClasse = CType(ser.Deserialize(reader), Files) End Using 'ajout d'un élément MaClasse.Add(New File("bibi", "3", 240)) 'modif d'une donnée existante MaClasse.Liste.Item(0).Nom = "bubu" 'sauvegarde du xml Using writer As New IO.StreamWriter("test.xml") ser.Serialize(writer, MaClasse) End Using
Private textWriter As New XmlTextWriter(Application.StartupPath & "\testxml.xml", Nothing) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Writexml() End Sub Private Sub Writexml() textWriter.WriteStartDocument() ' Write first element textWriter.WriteStartElement("Model") textWriter.WriteStartElement("ShapeRotation") ' Write next element textWriter.WriteStartElement("cxcxcdxfs") textWriter.WriteEndElement() textWriter.WriteStartElement("c22cxcdxfs") textWriter.WriteEndElement() textWriter.WriteEndElement() textWriter.WriteEndElement() ' Ends the document. textWriter.WriteEndDocument() ' close writer textWriter.Close() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<Xml.Serialization.XmlAttribute()> _ Property Taille As Long Set(ByVal value As Long) _Taille = value End Set Get Return _Taille End Get End Property
so you'd have to make use of psychic powers to figure out when to start appending