| 发表于：2007-05-26 11:29:233楼 得分:0 |
网上例子很多啊,
文件操作的内容包括目录、文件夹和文件，使用visual basic可以利用多种方法实现文件操作。在这个专题中我全面介绍了visual basic操作文件的方法：控件、命令、windows api。
利用visual basic命令操作文件
利用visual basic常用控件操作文件
利用vb控件操作目录和文件夹
vb中操作目录的winodws api小结
利用visual basic命令操作文件
一 打开和关闭文件
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文件.
二 读文件
1、顺序文件
顺序文件的读取有三种方式：
（1）line input # 语句
该语句从打开的顺序文件中读取一行数据。这里的一行指的是从当前指针位置开始到回车符或回车换行符之间的所有数据。line input # 语句的语法格式如下：
line input # 文件号，变量号
说明：“文件号”是打开文件时所用的文件号；“变量号”使用来存放读出数据的一个或多个变量，如果有多个变量，中间用空格分割开。input# 语句为参数列表中的每一个变量读取文件的一个域，并将读出的域存入变量中。该语句只能顺序的从第一个域开始，直到读取想要的域。
请看下面代码：
dim strline as string
open "c:\vb\test.txt " for input as #1
do until eof（1)
line input #1, strline
text1.text = text1.text + strline + chr（13) + chr（10)
loop
close #1
此段代码逐行读取一个文件到文本框中。
（2）input函数
此函数可以从顺序文件中一次读取指定长度的字符串。具体地说，就是从文件的当前位置开始，读取指定个数的字符，然后将他们返回。input函数可以读取包括换行符，回车符，空格符等在内的各种字符。下面是它的语法格式：
变量 = input（串长度，文件号）
例如，要从一个打开文件中读取12个字符并复制到变量file中，我们可以这样写：
file = input（12，filenum）
如果要将整个文件复制到变量，请使用inputb函数将字节从文件复制到变量。由于inputb函数返回一个ascii字符串，因此，必须用strcopy函数将ascii字符串转换为unicode字符串。代码如下：
file = strcopy （input （lof（filenanum），filenum），vbunicode）
（3）input # 语句
input #语句可以从文件中同时向多个变量内读入数据，而且读入的数据可以是不同类型的。
下面使它的语法格式：
input # 文件号，变量列表
例如，我们要在文件student.txt中写入数据,下面是代码:
open "student.txt " for output as #filenum
write #filenum, "张三 ", "初一年级 ", 14
write #filenum, "李四 ", "职业高中 ", 18
dim name as string, nianji as string, age as integer
dim name1 as string, nianji1 as string, age1 as integer
open "student.txt " for input as #filenum
input #filenum, name, nianji, age
input #filenum, name1, nianji1, age1
close #filenum
执行结果:
name=”张三” ,nianji = “初一年级” ,age =14
name=”李四” ,nianji = “职业高中” ,age =18
2、随机文件
读取随机文件是可以使用get # 语句,数据从文件的一个指定记录中读出后,存入一个用户自定义的变量中.
语法格式: get # filenum ,[recnum],usertype
说明:
（1)filenum 是要打开的文件号;recnum是要读取的记录号,若省略,则读取下一个记录
（2)usertype 是一个用来存放读出数据的用户自定义的数据类型变量.
下面是一个例子:
get # 1,5,student
该语句读取文件号为1的文件中的第5条记录.
3、二进制文件
读写二进制文件的方法和读写随机文件的方法基本相同,下面是相关的语句格式及其说明:
格式: get [#]filenumber ,[pos], var
功能: 用二进制方式,从文件的中指定的位置开始读取,所给变量长度的数据
说明:
（1)filenumber是以二进制方式打开的文件号.
（2)pos用来指定读写操作发生时的字节位置,若省略,则使用当前文件指针位置.
（3)var是用来存放读出的数据的变量.该语句会自动根据var变量包含的字节长度读取适当的文件,如果var是一个可变长度的字符串变量,则传送的字节数等于var中目前的字节数.对于文件长度的判断我们可以使用lof（)函数,eof（)函数检查文件的结尾位置.
下面的代码复制studert.txt文件到student1.txt文件中
dim ar as string * 1, i as integer
open "c:\student.txt " for binary as #1
open "c:\student2.txt " for binary as #2
for i = 1 to lof（1)
get #1, , ar
put #2, , ar
next i
close #1, #2
| | |
|
