VB.NET读写文本文件方法
|
工作需要,小编需要使用vb.net对文本文件进行读写操作。编程需要完成如下工作: 1、把程序执行错误追加到错误日志中 2、使巧巧读书网的编辑能够读取错误日志 记得以前使用vb6.0的时候,对文本文件的操作挺麻烦的,特别是在写文件的时候,需要区分什么顺序文件、随机文件,很教材都专门针对文本文件的读写开辟了一个章节来讲解,够麻烦的了。现在使用.net读写文本文件,因为时间仓促,没来得及细看MSDN,同时受到6.0的思路影响,把问题复杂化了,在追加记录到文本文件尾部的时候就写不下去了,后来仔细看了一下MSDN中例子,问题终于得到了解决。 好了下面进入正题,分别把vb.net中对文本文件进行读和写的通用操作做个示例,免得后来新手多走弯路。 我们这里是对文件流进行操作,所以模块前面要加上: Imports System.IO 1、写操作: 使用System.IO的StreamWriter,下面是代码: Dim strFilePath As String = SaveFileDialog1.FileName Dim sw As StreamWriter = New StreamWriter(strFilePath, True)"true是指以追加的方式打开指定文件 For i = 0 To j temp = i.ToString sw.WriteLine(temp) sw.Flush() Next sw.Close() sw = Nothing 首先要说明的是构造函数new Public Sub New(path, append, Encoding) path:要打开文件的完整路径,如果文件不存在则自动建立一个新的文件。 append:缺省值为false,指示是否以追加方式打开指定文件。false--如果存在path指定的文件,则覆盖原文件,否则建立一个新文件;true---如果存在path指定的文件,则打开该文件,以追加数据的方式在文尾写数据,否则建立一个新文件。 Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码写文件。 WriterLine(str):在文本中添加一个新行,同时在行尾加上回车换行符 2、读操作 Dim line As String Dim sr As StreamReader = New StreamReader(strPath, System.Text.Encoding.Default) Do While sr.Peek() > 0 line = sr.ReadLine() Loop sr.Close() sr = Nothing
构造函数new Public Sub New(Path, Encoding) path:要打开文件的完整路径,如果文件抛出一个错误。 Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码读文件。
|
