Reading a sequential-access file : Binary File Read « File Directory « VB.Net

Reading a sequential-access file

Reading a sequential-access file
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")

            output = New FileStream(fileName,FileMode.OpenOrCreate, FileAccess.Write)
            formatter.Serialize(output, employee)

         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)

             Dim em As Employee = CType(reader.Deserialize(input), Employee)
         Catch serializableException As SerializationException

             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 


Related examples in the same category

1.Read and Write Binary file: int, string Read and Write Binary file: int, string
2.Read from a binary fileRead from a binary file
3.Check Files Are Identical
4.BinaryReader.Read reads the specified number of characters from the stream
5.BinaryReader.ReadByte reads the next byte from the current stream
6.BinaryReader.ReadBytes reads the specified number of bytes
7.BinaryReader.ReadChar reads the next character from the stream