Deserialize XML file from disk : Serialize to XML « File Directory « VB.Net

1. VB.Net
2. File Directory
3. Serialize to XML

Deserialize XML file from disk

Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Xml

Public Class MainClass
    Shared Sub Main()
        Dim address As New Address()

        Dim stream As New FileStream("address.xml", FileMode.Create)


        ' create a serializer...
        Dim serializer As New XmlSerializer(Address.GetType)

        ' save the file...
        serializer.Serialize(stream, address)

        ' close the file...
        stream.Close()

        address = Load("address.xml", Address.GetType)


    End Sub
    
    Public Shared Function Load(ByVal stream As Stream, _
                     ByVal newType As Type) As Object

        Dim serializer As New XmlSerializer(newType)
        Dim newObject As Object = serializer.Deserialize(stream)

        Return newobject

    End Function

    Public Shared Function Load(ByVal filename As String, _
                     ByVal newType As Type) As Object

        Dim fileInfo As New FileInfo(filename)
        If fileInfo.Exists = False Then
            Return System.Activator.CreateInstance(newType)
        End If

        Dim stream As New FileStream(filename, FileMode.Open)

        Dim newObject As Object = Load(stream, newType)

        stream.Close()

        Return newObject

    End Function
End Class

Public Class Address

    ' members...
    Public FirstName As String
    Public LastName As String
    Public CompanyName As String
    Public Address1 As String
    Public Address2 As String
    Public City As String
    Public Region As String
    Public PostalCode As String
    Public Country As String
    Public Email As String


End Class




           
       

Related examples in the same category