二）写文件9

二）写文件
　　1、 顺序文件
　　写顺序文件我们可以用Write # 和Print #语句向一个已经打开的文件中写入数据.
　　下面是他们的格式和说明:

　　Print # 的语法格式:

　　Print # 文件号,变量列表

　　例如,将文本框中的文本写到文件中,代码如下:

Open "file.txt" For Output As #filenum

Input #filenum, text1.text

　　Write # 语句的语法格式:

Write # 文件号,变量列表

　　说明:用Write # 语句写入的信息便于以后用Input #语句来读取数据,因为Write #语句自动将写入到文件中的信息用逗号分开,并为字符串数据加上双引号.例如:

Open "student.txt" For Output As #filenum

Write #filenum, "张三", "初一年级", 14
Write #filenum, "李四", "职业高中", 18

　　2、 随机文件

　　向随机文件中写入数据,使用Put　＃语句.语法格式如下:

Put [#] FileNum ,[RecNum],UserType

　　说明:

　　(1) FileNum 是要打开的文件号;RecNum是要写入的记录号,若省略,则再上一次用Get 和Put语句所读写过的记录的后一条记录中写入,如果没有执行过Get 和Put语句,就从第一条记录开始

　　(2)UserType 是包含要写入数据的用户自定义的数据类型变量.例如:我们向前面的student.txt文件中的第5个记录写入数据,可用这些语句:

stud.No = 0301
stud.Name = “王武”
stud.Age =20
Put #1 ,5,stud

　　如果要插入的数据不只一两条的话,首先要确定文件和每条记录的长度,这样就可以计算出文件中究竟有多少条记录.我们可以用Lof()函数返回文件的长度,Len()函数返回每个记录的长度,计算文件中的记录个数可以用文件的长度除以给个记录的长度.示例如下:

Nextrec= (Lof(1)\Len(UserType))+1

Put #1,Nextrec,UserType

　　3、二进制文件

　　下面是以二进制方式写入文件的语句格式及其说明:

　　格式:

Put [#]fileNumber ,[Pos], Var

　　功能: 用二进制方式,从文件的中指定的位置开始写入,所给变量长度的数据

　　说明:

　　(1)FileNumber是以二进制方式打开的文件号.

　　(2)Pos用来指定写操作发生时的字节位置,若省略,则使用当前文件指针位置.

　　(3)Var是用来存放写入的数据的变量.该语句会自动根据var变量包含的字节长度写入文件,如果Var是一个可变长度的字符串变量,则传送的字节数等于Var中目前的字节数.

　　使用方法可参考二进制文件的读操作.