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

VB.NET讀寫文本文件

為了把text保存到文件，創(chuàng)建一個(gè)基于FileStream的StreamReader對(duì)象，然后調(diào)用Write方法把需要保存的text寫入文件。下面的代碼用SaveFileDialog提示用戶指定一個(gè)文件，用于保存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 

同樣采用類似的語(yǔ)句，我們讀取一個(gè)文本文件，并把內(nèi)容顯示在TextBox控件中。StreamReader的ReadToEnd方法返回文件的全部?jī)?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 

各種對(duì)象的存儲(chǔ)

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

首先創(chuàng)建一個(gè)BinaryFormatter實(shí)例：

DimBinFormatterAsNewBinary.BinaryFormatter() 

然后創(chuàng)建一個(gè)用于存儲(chǔ)序列化對(duì)象的FileStream對(duì)象：

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

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

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

加一個(gè)Serializable屬性使得自定義的對(duì)象可以序列化

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

【編輯推薦】

1. VB.NET重命名批量修改大揭秘
2. 程序員必看VB.NET CASE語(yǔ)句拓展篇
3. 深入介紹VB.NET類庫(kù) SmartRWLocker技巧
4. VB.NET復(fù)制讀取音頻文件到剪貼板小技巧
5. 深入概括VB.NET運(yùn)行環(huán)境