Автор:
Алексей Немиро | добавлено: 06.03.2010, 13:48 | просмотров: 2865 (1+) | комментариев:
0 | рейтинг:
x6
Простой пример xml-сериализации с использованием атрибутов. Пример позволяет получить xml вида:
'------------------------------------------------------------
'Aleksey S Nemiro, http://aleksey.nemiro.ru
'Special for Kbyte.Ru http://kbyte.ru
'31.10.2007
'------------------------------------------------------------
'Создаем два класса, названия значений не имеют, все имена для XML можно прописать отдельно в атрибутах
Public Class KbyteDotRu
<XmlArrayItem("b")> _
<XmlArray("a")> _
Public ZdesLuboiTextMojetBut() As b
End Class
Public Class b
<XmlAttribute("name")> _
Public OiAPochemuTutTakNapisano As String
Public Sub New()
End Sub
Public Sub New(ByVal s As String)
OiAPochemuTutTakNapisano = s
End Sub
End Class
'Сериализация
'Разместите на форме Button и TextBox.
'Также может потребоваться импортировать пространство имен:
'Imports System.IO
'Imports System.Xml
'Imports System.Xml.Serialization
'Код сериализации:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kbyte As New KbyteDotRu
kbyte.ZdesLuboiTextMojetBut = New b() {New b("1"), New b("2"), New b("3")}
Dim mySerializer As New Xml.Serialization.XmlSerializer(GetType(KbyteDotRu))
Dim myStream As New IO.MemoryStream()
Dim myWriter As New IO.StreamWriter(myStream)
mySerializer.Serialize(myWriter, kbyte)
myWriter.Close()
TextBox1.Text = System.Text.Encoding.UTF8.GetString(myStream.ToArray())
End Sub