工作需要小编需要使用对文本文件进行读写操作编程需要完成如下工作
把程序执行错误追加到错误日志中
使巧巧读书网的编辑能够读取错误日志
记得以前使用vb的时候对文本文件的操作挺麻烦的特别是在写文件的时候需要区分什么顺序文件随机文件很教材都专门针对文本文件的读写开辟了一个章节来讲解够麻烦的了现在使用net读写文本文件因为时间仓促没来得及细看MSDN同时受到的思路影响把问题复杂化了在追加记录到文本文件尾部的时候就写不下去了后来仔细看了一下MSDN中例子问题终于得到了解决
好了下面进入正题分别把中对文本文件进行读和写的通用操作做个示例免得后来新手多走弯路
我们这里是对文件流进行操作所以模块前面要加上
Imports SystemIO
写操作
使用SystemIO的StreamWriter下面是代码
Dim strFilePath As String = SaveFileDialogFileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True）true是指以追加的方式打开指定文件
For i = To j
temp = iToString
swWriteLine（temp）
swFlush（）
Next
swClose（）
sw = Nothing
首先要说明的是构造函数new
Public Sub New（path append Encoding）
path要打开文件的完整路径如果文件不存在则自动建立一个新的文件
append缺省值为false指示是否以追加方式打开指定文件false——如果存在path指定的文件则覆盖原文件否则建立一个新文件true——如果存在path指定的文件则打开该文件以追加数据的方式在文尾写数据否则建立一个新文件
Encoding缺省值为SystemTextEncodingDefault即使用系统缺省的编码指示以什么样的编码写文件
WriterLine（str）在文本中添加一个新行同时在行尾加上回车换行符
读操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath SystemTextEncodingDefault）
Do While srPeek（） >
line = srReadLine（）
Loop
srClose（）
sr = Nothing
构造函数new
Public Sub New（Path Encoding）
path要打开文件的完整路径如果文件抛出一个错误
Encoding缺省值为SystemTextEncodingDefault即使用系统缺省的编码指示以什么样的编码读文件
到这里就把里对文本文件的读写操作示例讲解完了其实net中对文件的读写还有其它的办法这里讲的只是最实用的办法其它的有待读者进一步研究！
