imports Microsoft.VisualBasic

imports System

Imports System.Collections

Imports System.IO

Imports System.Runtime.Serialization.Formatters.Binary



Public Module MyModule



    <Serializable> Class Trida

        Public atribut As Integer

        Public Sub New(ByVal i As Integer)

            atribut = i

        End Sub

        Public Overrides Function ToString() As String

            ToString = atribut.ToString

        End Function

    End Class



    Private list As New ArrayList()



    Sub Uloz()

        Dim fs As New FileStream("soubor.txt", FileMode.Create)

        Dim bf As New BinaryFormatter()

        bf.Serialize(fs, list)

        fs.Close()

    End Sub



    Sub Nacti()

        Dim fs As New FileStream("soubor.txt", FileMode.Open)

        Dim bf As New BinaryFormatter()

        list = DirectCast(bf.Deserialize(fs), ArrayList)

        fs.Close()

    End Sub



    Sub Main

        Dim i As Integer

        Dim t As Trida



        For i = 1 To 5

            list.Add(New Trida(i))

        Next i

        

        Console.WriteLine("Ukladam")

        For Each t In list

            Console.WriteLine(t)

        Next t

        Uloz

        

        Console.WriteLine("Nacitam")

        Nacti

        For Each t In list

            Console.WriteLine(t)

        Next t     

   

        Console.ReadLine()

	End Sub



End Module