VB.Net by API/System.Runtime.Serialization.Formatters.Binary/BinaryFormatter
BinaryFormatter.Deserialize
<source lang="vbnet">
Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Runtime.Serialization.Formatters.Binary Imports System.Runtime.Serialization Public Class MainClass
Public Shared Sub Main() Dim formatter As BinaryFormatter = New BinaryFormatter() Dim output As FileStream Dim fileName As String = "test.dat" Dim employee As Employee = New Employee("First Name", "Last Name") Try output = New FileStream(fileName,FileMode.OpenOrCreate, FileAccess.Write) formatter.Serialize(output, employee) output.Close() Catch fileException As FileNotFoundException Console.WriteLine("File Does Not Exits") Catch serializableException As SerializationException Console.WriteLine("Error Writing to File") Catch formattingException As FormatException Console.WriteLine("Invalid Format") Catch e As IOException Console.WriteLine("Cannot close file") End Try
Dim input As FileStream Dim reader As BinaryFormatter = New BinaryFormatter() input = New FileStream(fileName, FileMode.Open,FileAccess.Read) Try Dim em As Employee = CType(reader.Deserialize(input), Employee) Console.WriteLine(em) Catch serializableException As SerializationException input.Close() Console.WriteLine("No more records in file") End Try End Sub
End Class <Serializable()> Public Class Employee
Private firstName, lastName As String Public Sub New(ByVal first As String, ByVal last As String) firstName = first lastName = last End Sub Public Overrides Function ToString() As String Return firstName & " " & lastName End Function
End Class
</source>
BinaryFormatter.Serialize
<source lang="vbnet"> Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Runtime.Serialization.Formatters.Binary Imports System.Runtime.Serialization Public Class MainClass
Public Shared Sub Main() Dim formatter As BinaryFormatter = New BinaryFormatter() Dim output As FileStream Dim fileName As String = "test.dat" Dim employee As Employee = New Employee("First Name", "Last Name") Try output = New FileStream(fileName,FileMode.OpenOrCreate, FileAccess.Write) formatter.Serialize(output, employee) output.Close() Catch fileException As FileNotFoundException Console.WriteLine("File Does Not Exits") Catch serializableException As SerializationException Console.WriteLine("Error Writing to File") Catch formattingException As FormatException Console.WriteLine("Invalid Format") Catch e As IOException Console.WriteLine("Cannot close file") End Try
Dim input As FileStream Dim reader As BinaryFormatter = New BinaryFormatter() input = New FileStream(fileName, FileMode.Open,FileAccess.Read) Try Dim em As Employee = CType(reader.Deserialize(input), Employee) Console.WriteLine(em) Catch serializableException As SerializationException input.Close() Console.WriteLine("No more records in file") End Try End Sub
End Class <Serializable()> Public Class Employee
Private firstName, lastName As String Public Sub New(ByVal first As String, ByVal last As String) firstName = first lastName = last End Sub Public Overrides Function ToString() As String Return firstName & " " & lastName End Function
End Class
</source>