日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

大家都知道大多數(shù)程序處理對(duì)象集合而不是單個(gè)的對(duì)象。這里我們就詳細(xì)的介紹一下關(guān)于VB.NET集合存儲(chǔ)的一些問題吧。對(duì)于集合數(shù)據(jù)，首先創(chuàng)建一個(gè)數(shù)組（或者是其他類型的集合，比如ArrayList或HashTable），用對(duì)象填充，然后一個(gè)Serialize方法就可以序列化真?zhèn)€集合，是不是很簡單？下面的例子，首先創(chuàng)建一個(gè)有兩個(gè)Person對(duì)象的ArrayList，然后序列化本身：

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信平臺(tái)小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了五常免費(fèi)建站歡迎大家使用！

VB.NET集合存儲(chǔ)代碼：

 
 
 

  
  
  
DimFSAsNewSystem.IO.FileStream_  
  
  
  
("c:\test.txt",IO.FileMode.Create)  
  
  
  
DimBinFormatterAsNewBinary.BinaryFormatter()  
  
  
  
DimPAsNewPerson()  
  
  
  
DimPersonsAsNewArrayList  
  
  
  
P=NewPerson()  
  
  
  
P.Name="Person1" 
  
  
  
P.Age=35 
  
  
  
P.Income=32000 
  
  
  
Persons.Add(P)  
  
  
  
P=NewPerson()  
  
  
  
P.Name="Person2" 
  
  
  
P.Age=50 
  
  
  
P.Income=72000 
  
  
  
Persons.Add(P)  
  
  
  
BinFormatter.Serialize(FS,Persons) 
 
 
 

以存儲(chǔ)序列化數(shù)據(jù)的文件為參數(shù)，調(diào)用一個(gè)BinaryFormatter實(shí)例的Deserialize方法，就會(huì)返回一個(gè)對(duì)象，然后把它轉(zhuǎn)化為合適的類型。下面的代碼反序列化文件中的所有對(duì)象，然后處理所有的Person對(duì)象：

 
 
 

  
  
  
FS=NewSystem.IO.FileStream_  
  
  
  
("c:\test.txt",IO.FileMode.OpenOrCreate)  
  
  
  
DimobjAsObject  
  
  
  
DimPAsPerson(),RAsRectangle()  
  
  
  
Do  
  
  
  
obj=BinFormatter.Deserialize(FS)  
  
  
  
Ifobj.GetTypeIsGetType(Person)Then  
  
  
  
P=CType(obj,Person)  
  
  
  
'ProcessthePobjext  
  
  
  
EndIf  
  
  
  
LoopWhileFS.Position 

  
  
  
FS.Close() 
 
 
 

下面的例子調(diào)用Deserialize方法反序列化真?zhèn)€集合，然后把返回值轉(zhuǎn)換為合適的類型（Person）：

 
 
 

  
  
  
FS=NewSystem.IO.FileStream("c:\test.txt",IO.FileMode.OpenOrCreate)  
  
  
  
DimobjAsObject  
  
  
  
DimPersonsAsNewArrayList  
  
  
  
obj=CType(BinFormatter.Deserialize(FS),ArrayList)  
  
  
  
FS.Close()