vb点虐 文件操作函数 vbnet fileopen

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

新手关于VB点虐 的问题

您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。

例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下

Imports System.IO

添加引用之后，就在当前类的内部创建方法：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例说明：

该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：

Dim sr As StreamReader = New StreamReader(FileURL)

当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：

ReadFile = sr.ReadToEnd()

读取文件完毕之后，要对文件执行关闭操作：

sr.Close()

当然别忘了清理资源：

sr = Nothing

StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：

Peek：返回下一个可用字符，但不使用它。

Read：读取输入流中下一个字符或一组字符并移动流或文件指针。

ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。

ReadLine：从当前流中读取一行字符并将字符作为String返回。

REadToEnd：从流的当前位置到末尾读取流。

Close：关闭打开的对象，释放资源。

注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。

如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例说明：

For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：

For Each 元素 [As 数据类型] In 元素集合

[循环体]

[Exit For]

[循环体]

Next [元素]

比如：

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。

Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。

另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例说明：

定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。

如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

当然，System.Text.Encoding的成员不止一个，它还有如下成员：

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

这些是常见的成员，也是主要的成员。

另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！

写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例说明：

sr.Write(FileCon)：将FileCon写入文件FileURL之中。

另外，StreamWriter常用方法如下：

WriteLine：向流中写入一行，后面跟结束符。

Write：写入流，向流对象中写入字符并移动流或文件指针。

Close：关闭打开的对象，释放资源。

附：Visual Basic 6.0文件操作解说：

打开： Open 文件名 For Input | Output | Append As [#]文件号

Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。

读： Line Input #文件号, 字符串变量

读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）

Input #文件号, 变量1[, | ;] [变量2]...

这种方式可以存入多个变量，而且变量类型不限于字符串型。

写： Print #文件号, 参数1[, | ;] [参数2]...

将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。

Write #文件号, 参数1[, | ;] [参数2]...

这种写入方式将自动添加界定符，对不同参数的类型加以界定。

Visual Basic 6.0文件操作函数：

Seek： Seek(文件号)

返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。

Seek： Seek [#]文件号，位置

定位文件到指定位置。位置单位同上所述。

Input： Input (字节数，[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF： EOF(文件号)

判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。

LOF： LOF(文件号)

返回文件长度，单位为字节。

FileLen： FileLen (文件名)

返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。

GetAttr： GetAttr (Pathname)

返回指定文件或文件夹的属性。

FileAttr： FileAttr (文件号)

返回文件号对应文件的打开方式。

GetDateTime： GetDateTime (Pathname)

返回文件被创建或修改的最后日期和时间。

Free： FreeFile[(0|1)]

返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。

Dir： Dir (Pathname [,Attributes])

测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill： Kill (文件名)

删除指定文件，文件名可包含路径。

FileCopy： FileCopy 源文件，目标文件

拷贝文件。

Name： Name 旧文件名 As 新文件名

文件重命名。前后路径不一致时，操作为移动文件并重命名。

MkDir： MkDir path

新建文件夹。

RmDir： Rmdir path

删除文件夹。

ChDrive： ChDrive Drive

改变当前驱动器 ChDrive "D"

CurDir： CurDir [(driver)]

返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。

举例：

'新建文件，并写入数据，关闭

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打开文件，并全部写入新文件，关闭

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注：关于Visual Basic 6.0的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！

vb点虐 如何读写二进制文件？ 有各种类型的变量

open函数用来打开一个文件，其调用的一般形式为：

文件指针名=fopen(文件名,使用文件方式);

其中，

“文件指针名”必须是被说明为FILE

类型的指针变量；

“文件名”是被打开文件的文件名；

“使用文件方式”是指文件的类型和操作要求。

“文件名”是字符串常量或字符串数组。

例如：

FILE

*fp；

fp=("file

a","r");

其意义是在当前目录下打开文件file

a，只允许进行“读”操作，并使fp指向该文件。

又如：

FILE

*fphzk

fphzk=("c:\\hzk16","rb")

其意义是打开C驱动器磁盘的根目录下的文件hzk16，这是一个二进制文件，只允许按二进制方式进行读操作。两个反斜线“\\

”中的第一个表示转义字符，第二个表示根目录。

使用文件的方式共有12种，下面给出了它们的符号和意义。

文件使用方式

意义

“rt”

只读打开一个文本文件，只允许读数据

“wt”

只写打开或建立一个文本文件，只允许写数据

“at”

追加打开一个文本文件，并在文件末尾写数据

“rb”

只读打开一个二进制文件，只允许读数据

“wb”

只写打开或建立一个二进制文件，只允许写数据

“ab”

追加打开一个二进制文件，并在文件末尾写数据

“rt+”

读写打开一个文本文件，允许读和写

“wt+”

读写打开或建立一个文本文件，允许读写

“at+”

读写打开一个文本文件，允许读，或在文件末追加数据

“rb+”

读写打开一个二进制文件，允许读和写

“wb+”

读写打开或建立一个二进制文件，允许读和写

“ab+”

读写打开一个二进制文件，允许读，或在文件末追加数据

对于文件使用方式有以下几点说明：

1)

文件使用方式由r,w,a,t,b，+六个字符拼成，各字符的含义是：

r(read):

读

w(write):

写

a(append):

追加

t(text):

文本文件，可省略不写

b(banary):

二进制文件

+:

读和写

2)

凡用“r”打开一个文件时，该文件必须已经存在，且只能从该文件读出。

3)

用“w”打开的文件只能向该文件写入。若打开的文件不存在，则以指定的文件名建立该文件，若打开的文件已经存在，则将该文件删去，重建一个新文件。

4)

若要向一个已存在的文件追加新的信息，只能用“a”方式打开文件。但此时该文件必须是存在的，否则将会出错。

5)

在打开一个文件时，如果出错，fopen将返回一个空指针值NULL。在程序中可以用这一信息来判别是否完成打开文件的工作，并作相应的处理。因此常用以下程序段打开文件：

6)

if((fp=fopen("c:\\hzk16","rb")==NULL)

{

printf("\nerror

on

open

c:\\hzk16

file

vb点虐 文件夹操作

vb点虐 使用控件FolderBrowserDialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

Me.FolderBrowserDialog1.Description

=

"请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

Me.FolderBrowserDialog1.SelectedPath

=

"c:\"

If

Me.FolderBrowserDialog1.ShowDialog()

=

DialogResult.OK

Then

'取得全路径（包含文件名）

reportPath1

=

System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'设定text显示文件名

txtReport1.Text

=

reportPath1

setReportList()

End

If

在setReportList()中针对你所需要的文件进行操作等