XmlSerializer Demo
Imports System.Xml Imports System.Xml.Serialization Imports System.IO Public Class MainClass Public Shared Sub Main() Dim dehydrated As FileStream = New FileStream("test.xml", FileMode.Open) Dim serialize As XmlSerializer = New XmlSerializer(GetType(Product_Multiple)) Dim myProduct As Product_Multiple = New Product_Multiple myProduct = serialize.Deserialize(dehydrated) Dim SingleProduct As Product For Each SingleProduct In myProduct.multiProducts Console.Out.WriteLine("{0}, {1}, {2}", _ SingleProduct.name, _ SingleProduct.productId, _ SingleProduct.quantity) Next End Sub End Class Public Class Product_Multiple Public multiProducts() As Product Public Sub New() End Sub Public Sub New(ByVal multiProducts() As Product) Me.multiProducts = multiProducts End Sub End Class Public Class Product Public name As String Public productId As Integer Public quantity As Integer Public Sub New() End Sub Public Sub New(ByVal name As String, _ ByVal productId As Integer, _ ByVal quantity As Integer) Me.name = name Me.productId = productId Me.quantity = quantity End Sub End Class '<?xml version="1.0" encoding="utf-8" ?> '<Product_Multiple xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> ' <multiProducts> ' <Product> ' <name>Grease</name> ' <productId>101</productId> ' <quantity>10</quantity> ' </Product> ' <Product> ' <name>Lawrence of Arabia</name> ' <productId>102</productId> ' <quantity>10</quantity> ' </Product> ' <Product> ' <name>Star Wars</name> ' <productId>103</productId> ' <quantity>10</quantity> ' </Product> ' </multiProducts> '</Product_Multiple>
1. | Serialize Class to XML Document | ||
2. | Serializes an object using an XmlWriter. | ||
3. | Saves the XML document to the specified file. | ||
4. | SaveOptions.None |