VB课件第10章文件幻灯片.pptVIP

Private Sub chakan_Click() Form3.Show Form2.Hide End Sub Private Sub luru_Click() Form2.Show Form3.Hide End Sub Private Sub tuichu_Click() End End Sub 10.4 随机文件的访问 在随机访问模式中，文件的存取是按记录进行操作的，每个记录都有记录号并且长度全部相同。那么无论是从内存向磁盘写数据或从磁盘读数据，都需要事先定义内存空间。而内存空间的分配是靠变量说明来进行的，所以不管是读操作还是写操作，都必须事先在程序中定义变量，变量要定义成随机文件中一条记录的类型，一条记录又是由多个数据项组成的。因此在程序的变量说明部分采用用户自定义的类型说明语句，首先定义记录的类型结构，然后再将变量说明成该类型，这样就为这个变量申请了内存空间用于存放随机文件中的记录。 10.4 随机文件的访问 1．打开随机文件 格式： Open 文件名 For Random As # 文件号 [Len=记录长度] 其中：文件名可以是字符串常量，也可以是字符串变量。文件以随机访问模式打开后，可以同时进行读或写的操作。在Open语句中要指明记录的长度，记录长度的默认值是128个字节。 例如，用随机方式打开D盘根目录下MyDoc文件夹中的MyData1.txt文件，记录长度为100个字节： Open D:\MyDoc\Mydata1.txt For Random As #1 Len=100 2．关闭随机文件 与关闭顺序文件相同，仍用Close语句。 10.4.1 随机文件的打开与关闭 10.4.2 随机文件的读写操作 1．写操作 随机文件的写操作使用Put 命令 。 格式：Put # 文件号 ,[记录号], 表达式 其中：记录号指定写到文件中的的第几个记录上。如果省略，则表示在当前记录后插入一条记录。记录号应为大于1的整数。 表达式 是要写入文件的数据，可以是变量。 Put 命令将表达式的值写入由记录号指定的记录位置处，同时覆盖原记录内容。随机文件的操作不受当前文件中的记录数的限制。 10.4 随机文件的访问 2．读操作 随机文件的读操作使用Get命令。 格式：Get # 文件号，[记录号] ，变量名 Get命令将指定的记录内容存放到变量中。记录号为大于1的整数。如果省略记录号，则表示读取当前记录。 3．Seek（）函数和Seek语句 Seek（）函数返回一个长整型数，在Open语句打开的文件中指定当前的读、写位置。 Seek语句设置下一个读、写位置，其使用格式为： Seek #文件号，位置。 说明：对随机文件来说，位置是指记录号。 10.4 随机文件的访问 通用声明 Private Type numval squre As Integer cube As Long sqroot As Single End Type Dim nv As numval 定义一个numval类型的变量nu 例10.4 建立一个随机文件，文件中包含10个记录，每个记录由一个数(1至10)的平方、立方和开方根三个数值组成，以该数作为记录号 10.4 随机文件的访问 Private Sub Form_Load() Open data1.dat For Random As #1 Len = Len(nv) For i = 1 To 10 写入记录程序段 nv.squre = i * i nv.cube = i * i * i nv.sqroot = Sqr(i) Put #1, i, nv Next i Show 读出记录程序段 For i = 2 To 10 Step 4 读出3个记录 Get #1, i, nv Print 第; i; 号记录:, nv.squre, nv.cube, nv.sqroot Next i Close #1 End Sub 10.4 随机文件的访问 10.5.1 打开与关闭二进制文件 1．打开文件 格式：Open 文件名 For Binary As # 文件号 注意：以二进制方式访问文件不指定记录长度。 2．关闭文件 关闭打开的二进制文件仍用Close命令。 10.5 二进制文件的访问 10.5.2 二进制文件读写操作 1. 写操作 格式： P