XML +Сериализация - Алгоритмы - Интересные решения для программистов - Примеры кода

Алгоритмы → XML +Сериализация → Visual Basic

Примор показывает, как получить вот такой результат XML-сериализации:<a> <b name="1"/> <b name="2"/> <b name="3"/></a>

'------------------------------------------------------------
'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

.net, serialize, vb, visual basic, xml

KOS_MOS

Алексей

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Алгоритмы → XML +Сериализация → Visual Basic Примор показывает, как получить вот такой результат XML-сериализации:<a> <b name="1"/> <b name="2"/> <b name="3"/></a> '------------------------------------------------------------ '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 .net, serialize, vb, visual basic, xml KOS_MOS Алексей 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt