VB.NET中怎么實(shí)現(xiàn)讀寫(xiě)文本文件操作

VB.NET中怎么實(shí)現(xiàn)讀寫(xiě)文本文件操作，相信很多沒(méi)有經(jīng)驗(yàn)的人對(duì)此束手無(wú)策，為此本文總結(jié)了問(wèn)題出現(xiàn)的原因和解決方法，通過(guò)這篇文章希望你能解決這個(gè)問(wèn)題。

VB.NET讀寫(xiě)文本文件

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

同樣采用類(lèi)似的語(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類(lèi)以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)

看完上述內(nèi)容，你們掌握VB.NET中怎么實(shí)現(xiàn)讀寫(xiě)文本文件操作的方法了嗎？如果還想學(xué)到更多技能或想了解更多相關(guān)內(nèi)容，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！