How to implement Collective Storage by VB.NET

This article will explain in detail how to achieve collective storage in VB.NET. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.

Most programs deal with collections of objects rather than individual objects. For collection data, isn't it easy to first create an array (or other type of collection, such as ArrayList or HashTable), populate it with objects, and then serialize the collection with a Serialize method? In the following example, you first create an ArrayList with two Person objects, and then serialize itself:

Dim FS As New System.IO.FileStream _

("c:\ test.txt", IO.FileMode.Create)

Dim BinFormatter As New Binary

.BinaryFormatter ()

Dim P As New Person ()

Dim Persons As New ArrayList

P = New Person ()

P.Name = "Person 1"

P.Age = 35

P.Income = 32000

Persons.Add (P)

P = New Person ()

P.Name = "Person 2"

P.Age = 50

P.Income = 72000

Persons.Add (P)

BinFormatter.Serialize (FS, Persons)

Taking the file in which the VB.NET collection stores serialized data as parameters, calling the Deserialize method of an BinaryFormatter instance returns an object and converts it to the appropriate type. The following code deserializes all objects in the file and then processes all Person objects:

FS = New System.IO.FileStream _

("c:\ test.txt", IO.FileMode.

OpenOrCreate)

Dim obj As Object

Dim P As Person (), R As

Rectangle ()

Do

Obj = BinFormatter.

Deserialize (FS)

If obj.GetType Is GetType

(Person) Then

P = CType (obj, Person)

'Process the P objext

End If

Loop While FS.Position

< FS.Length-1

FS.Close ()

The following example calls the Deserialize method to deserialize the collection and then converts the return value to the appropriate type (Person):

FS = New System.IO.FileStream

("c:\ test.txt", IO.FileMode.

OpenOrCreate)

Dim obj As Object

Dim Persons As New ArrayList

Obj = CType (BinFormatter.

Deserialize (FS), ArrayList)

FS.Close ()

This is the end of the article on "how to implement collective storage in VB.NET". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it for more people to see.