Mega Code Archive

 

Categories / VB.Net / XML

 

Serializes an object using an XmlWriter

Imports System Imports System.IO Imports System.Text Imports System.Xml Imports System.Xml.Serialization Public Class OrderedItem     Public ItemName As String     Public Description As String     Public UnitPrice As Decimal     Public Quantity As Integer     Public LineTotal As Decimal     Public Sub Calculate()         LineTotal = UnitPrice * Quantity     End Sub End Class Public Class Test     Public Shared Sub Main()         Dim serializer As New XmlSerializer(GetType(OrderedItem))         Dim i As New OrderedItem()         With i             .ItemName = "Widget"             .Description = "Regular Widget"             .Quantity = 10             .UnitPrice = CDec(2.3)             .Calculate()         End With         Dim fs As New FileStream("c:\\a.xml", FileMode.Create)         Dim writer As New XmlTextWriter(fs, Encoding.Unicode)         serializer.Serialize(writer, i)         writer.Close()     End Sub End Class