VB.NET如何实现集合存储

这篇文章将为大家详细讲解有关VB.NET如何实现集合存储，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。

成都创新互联公司专注于乌达网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供乌达营销型网站建设，乌达网站制作、乌达网页设计、乌达网站官网定制、重庆小程序开发服务，打造乌达网络公司原创品牌,更为您提供乌达网站排名全网营销落地服务。

大多数程序处理对象集合而不是单个的对象。对于集合数据，首先创建一个数组（或者是其他类型的集合，比如ArrayList或HashTable），用对象填充，然后一个Serialize方法就可以序列化这个集合，是不是很简单？下面的例子，首先创建一个有两个Person对象的ArrayList，然后序列化本身：

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) 

以VB.NET集合存储序列化数据的文件为参数，调用一个BinaryFormatter实例的Deserialize方法，就会返回一个对象，然后把它转化为合适的类型。下面的代码反序列化文件中的所有对象，然后处理所有的Person对象：

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() 

下面的例子调用Deserialize方法反序列化这个集合，然后把返回值转换为合适的类型（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() 

关于“VB.NET如何实现集合存储”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，使各位可以学到更多知识，如果觉得文章不错，请把它分享出去让更多的人看到。