vb.net 读写html 文件路径,VB.NET 文本文件读写

Imports system.IO

'将文件中的文本读入TextBox1中

Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

TextBox1.Text

= ""

Dim

sw As New StreamReader("文本文件路径名")

Do

While sw.Peek <> -1

TextBox1.Text

+= sw.ReadLine + Chr(13) + Chr(10)

Loop

sw.Close()

End

Sub

'将TextBox1中的文本写入文件中

Private

Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click

Dim

sw As New StreamWriter(("文本文件路径名")

For

i = 0 To TextBox1.Lines.Length - 1

sw.WriteLine(TextBox1.Lines(i))

Next

sw.Flush()

sw.Close()

MsgBox("写入成功",

MsgBoxStyle.OkOnly, "提示")

End

Sub

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中对文件的读写还有其它的办法，这里讲的只是最实用的办法，其它的有待读者进一步研究！