VB.NET读写文本文件方法

工作需要，小编需要使用vb.net对文本文件进行读写操作。编程需要完成如下工作：Q8s源码网

1、把程序执行错误追加到错误日志中Q8s源码网

2、使巧巧读书网的编辑能够读取错误日志Q8s源码网
记得以前使用vb6.0的时候，对文本文件的操作挺麻烦的，特别是在写文件的时候，需要区分什么顺序文件、随机文件，很教材都专门针对文本文件的读写开辟了一个章节来讲解，够麻烦的了。现在使用.net读写文本文件，因为时间仓促，没来得及细看MSDN，同时受到6.0的思路影响，把问题复杂化了，在追加记录到文本文件尾部的时候就写不下去了，后来仔细看了一下MSDN中例子，问题终于得到了解决。Q8s源码网

好了下面进入正题，分别把VB.NET中对文本文件进行读和写的通用操作做个示例，免得后来新手多走弯路。Q8s源码网

我们这里是对文件流进行操作，所以模块前面要加上：Q8s源码网

Imports System.IOQ8s源码网

1、写操作：Q8s源码网

使用System.IO的StreamWriter，下面是代码：Q8s源码网

Dim strFilePath As String = SaveFileDialog1.FileNameQ8s源码网

Dim sw As StreamWriter = New StreamWriter(strFilePath,True)'true是指以追加的方式打开指定文件Q8s源码网

For i = 0 To jQ8s源码网

temp = i.ToStringQ8s源码网

sw.WriteLine(temp)Q8s源码网

sw.Flush()Q8s源码网

NextQ8s源码网

sw.Close()Q8s源码网

sw = NothingQ8s源码网

首先要说明的是构造函数new Q8s源码网

Public Sub New(path,append,Encoding)Q8s源码网

path:要打开文件的完整路径，如果文件不存在则自动建立一个新的文件。Q8s源码网

append:缺省值为false，指示是否以追加方式打开指定文件。false--如果存在path指定的文件，则覆盖原文件，否则建立一个新文件；true---如果存在path指定的文件，则打开该文件，以追加数据的方式在文尾写数据，否则建立一个新文件。Q8s源码网

Encoding:缺省值为System.Text.Encoding.Default，即使用系统缺省的编码，指示以什么样的编码写文件。Q8s源码网

WriterLine(str):在文本中添加一个新行，同时在行尾加上回车换行符Q8s源码网

2、读操作Q8s源码网

Dim line As StringQ8s源码网

Dim sr As StreamReader = New StreamReader(strPath,System.Text.Encoding.Default)Q8s源码网

Do While sr.Peek() > 0Q8s源码网

line = sr.ReadLine()Q8s源码网

LoopQ8s源码网

sr.Close()Q8s源码网

sr = NothingQ8s源码网

　Q8s源码网

构造函数new Q8s源码网

Public Sub New(Path,Encoding)Q8s源码网

path:要打开文件的完整路径，如果文件抛出一个错误。Q8s源码网

Encoding:缺省值为System.Text.Encoding.Default，即使用系统缺省的编码，指示以什么样的编码读文件。Q8s源码网

到这里就把VB.NET里对文本文件的读写操作示例讲解完了，其实.net中对文件的读写还有其它的办法，这里讲的只是最实用的办法，其它的有待读者进一步研究！Q8s源码网