快速掌握VB.NET读写文本文件操作

对于文本文件大家都知道，这里呢为大家提供一些关于VB.NET读写文本文件的代码示例。在程序中最常用、最基本的操作就是把text写入文件和读回来。现在的应用程序通常不用二进制文件作存储简单的变量，而用它来存储对象，对象集合以及其他机器代码。下面，将看到具体操作的VB.NET读写文本文件例子。

创新互联是一家专注于成都网站设计、成都做网站与策划设计,宜昌网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:宜昌等地区。宜昌做网站价格咨询:028-86922220

VB.NET读写文本文件

为了把text保存到文件，创建一个基于FileStream的StreamReader对象，然后调用Write方法把需要保存的text写入文件。下面的代码用SaveFileDialog提示用户指定一个文件，用于保存TextBox1的内容。

 
 
 

  
  
  
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 
 
 
 

同样采用类似的语句，我们读取一个文本文件，并把内容显示在TextBox控件中。StreamReader的ReadToEnd方法返回文件的全部内容。

 
 
 

  
  
  
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，无需改变任何代码，就可以以XML格式序列化对象。

首先创建一个BinaryFormatter实例：

 
 
 

  
  
  
DimBinFormatterAsNewBinary.BinaryFormatter() 
 
 
 

然后创建一个用于存储序列化对象的FileStream对象：

 
 
 

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

接着调用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) 
 
 
 

【编辑推荐】