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

對于文本文件大家都知道，這里呢為大家提供一些關(guān)于VB.NET讀寫文本文件的代碼示例。在程序中最常用、最基本的操作就是把text寫入文件和讀回來?，F(xiàn)在的應(yīng)用程序通常不用二進制文件作存儲簡單的變量，而用它來存儲對象，對象集合以及其他機器代碼。下面，將看到具體操作的VB.NET讀寫文本文件例子。

創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設(shè)計、成都做網(wǎng)站與策劃設(shè)計,宜昌網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:宜昌等地區(qū)。宜昌做網(wǎng)站價格咨詢:028-86922220

VB.NET讀寫文本文件

為了把text保存到文件，創(chuàng)建一個基于FileStream的StreamReader對象，然后調(diào)用Write方法把需要保存的text寫入文件。下面的代碼用SaveFileDialog提示用戶指定一個文件，用于保存TextBox1的內(nèi)容。

 
 
 

  
  
  
SaveFileDialog1.Filter=_ 
  
  
  
"TextFiles|*.txt|AllFiles|*.*"  
  
  
  
SaveFileDialog1.FilterIndex=0 
  
  
  
IfSaveFileDialog1.ShowDialog=DialogResult.OKThen  
  
  
  
DimFSAsFileStream=SaveFileDialog1.OpenFile  
  
  
  
DimSWAsNewStreamWriter(FS)  
  
  
  
SW.Write(TextBox1.Text)  
  
  
  
SW.Close()  
  
  
  
FS.Close()  
  
  
  
EndIf 
 
 
 

同樣采用類似的語句，我們讀取一個文本文件，并把內(nèi)容顯示在TextBox控件中。StreamReader的ReadToEnd方法返回文件的全部內(nèi)容。

 
 
 

  
  
  
OpenFileDialog1.Filter=_ 
  
  
  
"TextFiles|*.txt|AllFiles|*.*"  
  
  
  
OpenFileDialog1.FilterIndex=0 
  
  
  
IfOpenFileDialog1.ShowDialog=DialogResult.OKThen  
  
  
  
DimFSAsFileStream  
  
  
  
FS=OpenFileDialog1.OpenFile  
  
  
  
DimSRAsNewStreamReader(FS)  
  
  
  
TextBox1.Text=SR.ReadToEnd  
  
  
  
SR.Close()  
  
  
  
FS.Close()  
  
  
  
EndIf 
 
 
 

各種對象的存儲

采用BinaryFormatte以二進制的形式，或者用SoapFormatter類以XML格式都可以序列化一個具體的對象。只要把所有BinaryFormatter的引用改為SoapFormatter，無需改變?nèi)魏未a，就可以以XML格式序列化對象。

首先創(chuàng)建一個BinaryFormatter實例：

 
 
 

  
  
  
DimBinFormatterAsNewBinary.BinaryFormatter() 
 
 
 

然后創(chuàng)建一個用于存儲序列化對象的FileStream對象：

 
 
 

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

接著調(diào)用BinFormatter的Serialize方法序列化任何可以序列化的framework對象：

 
 
 

  
  
  
R=NewRectangle(rnd.Next(0,100),rnd.Next(0,300),_  
  
  
  
rnd.Next(10,40),rnd.Next(1,9))  
  
  
  
BinFormatter.Serialize(FS,R) 
 
 
 

加一個Serializable屬性使得自定義的對象可以序列化

 
 
 

  
  
  
()>PublicStructurePerson  

  
  
  
DimNameAsString  
  
  
  
DimAgeAsInteger  
  
  
  
DimIncomeAsDecimal  
  
  
  
EndStructure  
  
  
  
DimPAsNewPerson()  
  
  
  
P=BinFormatter.Serialize(FS,Person)  
  
  
  
DimRAsNewRectangle  
  
  
  
R=BinFormatter.Serialize(FS,Rectangle) 
 
 
 

【編輯推薦】