VB.NET读写文本文件方法

工作需要 我需要使用对文本文件进行读写 *** 作 编程需要完成如下工作

把程序执行错误追加到错误日志中

使巧巧读书网的编辑能够读取错误日志

记得以前使用vb 的时候 对文本文件的 *** 作挺麻烦的 特别是在写文件的时候 需要区分什么顺序文件 随机文件 很教材都专门针对文本文件的读写开辟了一个章节来讲解 够麻烦的了 现在使用 net读写文本文件 因为时间仓促 没来得及细看MSDN 同时受到 的思路影响 把问题复杂化了 在追加记录到文本文件尾部的时候就写不下去了 后来仔细看了一下MSDN中例子 问题终于得到了解决

好了下面进入正题 分别把中对文本文件进行读和写的通用 *** 作做个示例 免得后来新手多走弯路

我们这里是对文件流进行 *** 作 所以模块前面要加上

Imports System IO

写 *** 作

使用System IO的StreamWriter 下面是代码

Dim strFilePath As String = SaveFileDialog FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以羡族追加的方式打开指定文件

For i = 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） 在文本中添加一个新行 同时在行尾加上回车换行符

读 *** 作

Dim line As String

Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）

Do While sr Peek（） >

line = sr ReadLine（）

Loop

sr Close（）

sr = Nothing

构造函数new

Public Sub New（Path Encoding）

path 要打开文件的完整路径 如果文件抛出一个错误

Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码读文件

lishixinzhi/Article/program/net/201311/11973

open

"C:\1.txt"

for

output

as

#1

print

#1,"30"

print

#1,"100"

close

#1

open是打开你要 *** 作的文件。

for

output

是 *** 作类型（因为要以文本的方式写入文件，所以用output)

as

后念丛面的是文件的标识号，要以#开头，加上一个数。（因为你打开玩文件，要 *** 作它，但是windows不知道你以后要 *** 作的文件是哪一个，所以用一祥燃个标示符来表示要 *** 作的文件）

print

#1,文字

在标示符为#1的文件，写入要写的文字。

close

#1

当你 *** 作完了这仔宴樱个文件，要关闭了这个文件。

'在窗体上放置一个按钮command1

和一个文本框

text1

private

command1_click()

'按钮单击事件

open

"c:\data.txt"

for

output

as

#8

'其中"c:\data.txt"

可以换成你指定的路兆枣径

print

#8,text1.text

//往族塌拆文件中衫带写入你想要写的内容

close

#8

end

sub

---