VB6的文件操作

原创 2006年05月23日 16:56:00

    总结一下VB6的文件操作,省得要用的时候又到处查找。

一、文件类型

1、顺序文件(文本文件) :以ASCII码形式存放的文件。似乎还有Unicode码存放的,有没有BCD码的呢?

2、随机访问文件:这种文件格式很有特点:文件中存放若干条等长的单元(也可以说是记录);每个单元包含同类型、等数量、等长度的数据项;文件中,除了字符串以ASCII码存放之外, 其它都以二进制形式直接存放,节省存储空间。这种文件类型非常适合存储需要和软件交互的数据,如结构体数据、类数据等。这也是VB特有的文件访问方式。

3、二进制文件:以二进制形式存放,PE程序文件一般都是这个类型。

二、操作方法

1、顺序文件

打开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]...

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

2、随机访问文件

打开Open 文件名 [For Random] As [#]文件号 Len = 记录长度

         For Random可以省略,文件不存在则创建,读写都是这种打开方式。   Len是文件中记录的一条长度,用以识别记录的开始与结束,经常用Len(记录名)来获取长度。

Get [#]文件号, [记录号], 变量

        读一条记录存入变量,可以是系统类型的Integer、Single、String等等,也可以是自定义类型结构体、类等。记录号省略时从打开以后最后一次读取的末端开始读取记录。

Put [#]文件号, [记录号], 表达式

        将表达式中的数据写入文件,表达式可以是各种变量的组合,中间用逗号隔开。该组数据写入记录号对应的位置,记录号省略时从打开以后最后一次写入的末端开始写入记录。

3、二进制文件

打开Open 文件名 For Binary As [#]文件号

         文件不存在则创建,读写都是这种打开方式。当然也可以用来打开文本文件,读出来将不知所云

        读一条记录存入变量,可以是系统类型的Integer、Single、String等等,也可以是自定义类型结构体、类等。记录号省略时从打开以后最后一次读取的末端开始读取记录。

Get [#]文件号, [读位置], 变量

         从“读位置”开始读取数据,读入的长度等于变量的长度,一次读一个。“读位置”以字节为单位。“读位置”省略时从打开以后最后一次写入的末端开始读入。

Put [#]文件号, [写位置], 表达式

        将表达式中的数据写入文件,表达式可以是各种变量的组合,中间用逗号隔开。该组数据写入“写位置”,“写位置”以字节为单位。“写位置”省略时从打开以后最后一次写入的末端开始写入。

三、操作权限

        使用Input、Binary、Random模式访问,可以同时对单个文件打开多个实例。使用Append和Output模式之前则必须确定文件

        Open 文件名 For 模式 [Access access] [lock ] As [#]文件号 [len = 记录长度]

        对随机存储文件和二进制文件,可以设置文件的读写权限。access可写成Read、Write、 Read Write,对应只读、只写、读写兼备。此项功能不适用于顺序文件。

         Lock | Unlock 文件号, [记录| [起始记录 To终止记录]]

        当指明lock标识后,可用以上代码设置文件的共享权限。对顺序文件, [记录| [起始记录 To终止记录]]不起作用,将对整个文件生效;对随机存储文件,将对记录标识中的部分进行权限锁定或解锁。

四、文件操作函数

        以上部分可以实现文件操作的一些功能,但要完成如拷贝整个文件、查找文件是否已建立、取文件长度等功能,还需要一些文件操作函数来方便地实现。

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则返回目标驱动器的当前工作路径。

五、文件操作实战

1、新建文本文件a.txt,写入数据,关闭。打开该文件,全部读入到新建文件b.txt,关闭。

'新建文件,并写入数据,关闭
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

2、新建随机存储文件a.dat,写入数据,关闭。打开该文件,读入到新建文件b.dat,关闭。

'以下代码位于Module模块
'定义自定义类型结构体
Public Type Struct
    elem1 As Integer
    elem2 As String * 5
End Type

'以下代码位于窗体模块
'新建文件,并写入记录,关闭
Open "a.dat" For Random As #1 Len = Len(st)
Put #1, , st
Close #1

'打开文件,并写入新文件,关闭
Open "a.dat" For Random As #2 Len = Len(st)
Open "b.dat" For Random As #3 Len = Len(st)
Dim st2 As Struct
Get #2, , st2
Put #3, , st2
Close

3、二进制文件操作类似于随机存储文件,不再举例。

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

vb6 对文件的写入、替换、删除和插入某行操作

最近用vb在写一个软件,用到了对文件的写入、替换、删除操作,对网友的代码进行了修改,写入模块和函数,能够实现上述功能。 有5个文本框,以前四个文本框的内容为判别条件,即:如果保存的文件中某行...

VB操作文件实例

文件操作分为两种方式,一种为顺序操作文件,另一种为随机操作文件,顺序就是从头至尾一行一行的操作,随机就是将文件的内容分为一块一块的,然后操作, 第一种:顺序文件 一、新建文本demo.txt文件并且写...

vb使用open方法读写文件

vb使用open方法读写文件 (一)打开和关闭文件  1、顺序文件  打开顺序文件,我们可以使用Open语句。它的格式如下: ...
  • wjb9921
  • wjb9921
  • 2008年05月26日 12:41
  • 7226

VB 读写追加文件

    VB读写文件要用到以下语句:     1、Open语句打开文件。     2、读文件使用Line Input、Input #,(以上为文本方式)和Get(以上为二进制方式)。     3、写文...

VB Open 函数详解 打开、关闭、读、写文件

(一)打开和关闭文件      1、顺序文件      打开顺序文件,我们可以使用Open语句。它的格式如下: Open pathname For [Input |Output |App...
  • lbuskeep
  • lbuskeep
  • 2012年06月06日 14:35
  • 18261

VB操作文件夹的几个方法

****************移动文件夹************************1、添加引用"microsoft    scripting    runtime"2、使用方法   Optio...

VB 调用打开各种文件(自动查找使用默认的程序)

任何文件都可以,只要关联了相关的程序Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByV...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6的文件操作
举报原因:
原因补充:

(最多只允许输入30个字)