利用Visual Basic命令操作文件_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

利用Visual Basic命令操作文件

作者：闵涛文章来源：闵涛的学习笔记点击数：652 更新时间：2009/4/23 15:02:47

　　（一）打开和关闭文件

　　1、顺序文件

　　打开顺序文件，我们可以使用Open语句。它的格式如下：

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
　　说明：

　　（1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录

　　（2）Input Output 和Append用于设置顺序文件的打开方式。其中，Input表示从打开的文件中读取数据。以这种方式打开文件时，文件必须存在，否则会产生错误。Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开始写入。如果文件不存在，则创建一个新文件。Append表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件为开始添加。如果文件不存在，则创建一个新文件。

　　（3）As[#]filenumber 子句用于为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数,既可以是数字,又可以是变量.也可以省略不用.

　　(4)当在文件与程序之间拷贝数据时,Len=buffersize子句指定缓冲区的字符数.

　　例如:

Open App.Path + "\test.dat" For Output As 1

Open App.Path + "\test.dat" For Output As 1
　　这两句代码在当前应用程序所在目录下创建了一个名为test.dat的文本文件,分配文件号为1.

Open App.Path + "\test.dat" For Input As [#]filenumber
　　这条语句是从文本文件中读取数据.

Open App.Path + "\test.dat" For Append As [#]filenumber
　　这条语句则是像文本文件中添加数据

　　2、随机文件

　　操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:

Type Student
　No As Integer
　Name As String * 20
　age As Integer
End Type

Dim Stud As Student ‘定义一个可以存放学生材料的变量
　　随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.

　　之后我们就可以打开并读写文件了.下面是打开随机文件的语法格式:

Open filename For Random as [#]filenumber Len = Reclength
　　说明:

　　(1)参数filename 和filenumber 分别表示文件名或文件号.

　　(2)关键字Random 表示打开的是随机文件

　　(3)Len子句用于设置记录长度,长度由参数Reclength指定.Reclength的值必须大于0,而且必须与定义的记录结构的长度一致.计算记录长度的方法是将记录结构中每个元素的长度相加.例如前面声明的Student的长度应该是2+20+2=24字节.

　　打开一个记录类型为Student 的随机文件的方法是:

Open "c:\Student.txt " For Random As #1 Len = 25
　　3、二进制文件

　　打开二进制文件的语法格式如下:

Open pathname For Binary As [#]filenumber
　　说明:

　　(1) 参数filename 和filenumber 分别表示文件名或文件号.

　　(2)关键字Binary 表示打开的是二进制文件

　　(3)对于二进制文件,不能指定字节长度.每个打开的二进制文件都有一个自己的指针,文件指针是一个数字值,指向下一次读写操作的文件中的位置.二进制文件中的每个”位置”对应一个数据字节,因此,有n个字节的文件,就有1到n个位置.

　　我们可以用Seek()函数返回当前的文件指针位置(即下一个要读写的字节 );用Loc()函数返回上一次读写的字节位置,除非用Seek语句移动了指针,Loc()返回值总比Seek()的小1.我们来看下面的例子:

Open “student.txt” for Binary as #1
　　该语句用二进制的方式打开了student.txt文件.

[VB.NET程序]利用Visual Basic开发SAP接口程序初探 [VB.NET程序]利用Visual Basic操作XML数据
[VB.NET程序]利用Visual Basic常用控件操作文件

教程录入：mintao 责任编辑：mintao

上一篇教程： VB中利用Windows API实现文件操作

下一篇教程： VB中操作目录的Winodws API小结

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……