VB.NET中怎么实现读写文本文件操作

VB.NET中怎么实现读写文本文件操作，相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。

创新互联致力于互联网品牌建设与网络营销，包括网站设计制作、做网站、SEO优化、网络推广、整站优化营销策划推广、电子商务、移动互联网营销等。创新互联为不同类型的客户提供良好的互联网应用定制及解决方案，创新互联核心团队十多年专注互联网开发，积累了丰富的网站经验，为广大企业客户提供一站式企业网站建设服务，在网站建设行业内树立了良好口碑。

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属性使得自定义的对象可以序列化

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

看完上述内容，你们掌握VB.NET中怎么实现读写文本文件操作的方法了吗？如果还想学到更多技能或想了解更多相关内容，欢迎关注创新互联行业资讯频道，感谢各位的阅读！

网站标题：VB.NET中怎么实现读写文本文件操作
新闻来源：https://www.cdcxhl.com/article40/jposeo.html

成都网站建设公司_创新互联，为您提供网站维护、、外贸网站建设、移动网站建设、营销型网站建设、用户体验

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联