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,即使用系统缺省的编码,指示以什么样的编码读文件。


到这里就把vb.net里对文本文件的读写操作示例讲解完了,其实.net中对文件的读写还有其它的办法,这里讲的只是最实用的办法,其它的有待读者进一步研究![

本文作者:
« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3