vb程序设计及应用整套课件完整版电子教案.ppt

4.Loc函数 格式：Loc(文件号) 功能：Loc函数返回由“文件号”指定的文件的当前读写位置。 说明： (1)格式中的“文件号”是在Open语句中使用的文件号。 (2)对于随机文件，Loc函数返回一个记录号，它是对随机文件读或写的最后一个记录的记录号，即当前读写位置的上一个记录； (3)对于顺序文件，Loc函数返回的是从该文件被打开用来读或写的记录个数，一个记录是一个数据块。 顺序文件和随机文件中，Loc函数返回的都是数值，但它们的意义是不一样的。对于随机文件，只有知道了记录号，才能确定文件中的读写位置；而对于顺序文件，只要知道已经读或写的记录个数，就能确定该文件当前的读写位置。 5.LOF函数 格式：LOF(文件号) 功能：LOF函数返回给文件分配的字节数(即文件的长度)。 说明： (1)与DOS下用Dir命令所显示的数值相同。 (2)“文件号”的含义同前。 在VB中，文件的基本单位是记录，每个记录的默认长度是128个字节。因此，对于由VB建立的数据文件，LOF函数返回的将是128的倍数，不一定是实际的字节数。例如，假定某个文件的实际长度是257(128×2+1)个字节，则用LOF函数返回的是384(128×3)个字节。对于用其他编辑软件或字处理软件建立的文件，LOF函数返回的将是实际分配的字节数，即文件的实际长度。 例如：LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。 例如：用下面的程序段可以确定一个随机文件中记录的个数： RecordLength=60 Open d：＼vb1＼P5 For Random As #1 x=LOF(1) NumberOfRecords=x＼RecordLength 6.EOF函数 格式：EOF(文件号) 功能：EOF函数用来测试文件的结束状态。 说明： (1)在文件输入期间，可以用EOF测试是否到达文件末尾。 (2)对于顺序文件来说，如果已到文件末尾，则EOF函数返回True，否则返回False。 (3)对于随机文件来说，如果最后执行的Get语句未能读到一个完整的记录，则返回True，这通常发生在试图读文件结尾以后的部分时。 (4)EOF函数常用来在循环中，测试是否已到文件尾，一般结构如下： Do While Not EOF(1) 文件读写语句 Loop 11.4 顺 序 文 件 在顺序文件中，记录的逻辑顺序与存储顺序相一致，对文件的读写操作只能一个记录一个记录地顺序进行。 顺序文件的读写操作与标准输入输出十分类似。其中读操作是把文件中的数据读到内存，标准输入是从键盘上输入数据，而键盘设备也可以看做是一个文件。写操作是把内存中的数据输出到屏幕上，而屏幕设备也可以看做是一个文件。 11.4.1 顺序文件的写操作 数据文件的写操作分为3步，即打开文件、写入文件和关闭文件。其中打开文件和关闭文件分别由Open和Close语句来实现，写入文件由Print#或Write#语句来完成。 1.Print#语句 格式：Print#文件号，［［Spc(n)|Tab(n)］［表达式表］［；|，］］ 功能：把数据写入文件中。 说明： (1)Print#语句与Print方法的功能是类似的。Print方法所“写”的对象是窗体、打印机或控件，而Print#语句所“写”的对象是文件。 (2)“文件号”的含义同前，数据被写入该文件号所代表的文件中。其他参量，包括Spc函数、Tab函数、“表达式表”及尾部的分号、逗号等，其含义与Print方法中相同。 例如：把变量A、B、C的值写到文件号为1的文件中。 Print #1,A,B,C 例如：把变量A、B、C的值“写”到窗体上。 Print A,B,C 说明： (3)格式中的“表达式表”可以省略。在这种情况下，将向文件中写入一个空行。 例如：Print #1 (4)和Print方法一样，Print# 语句中的各数据项之间可以用分号隔开，也可以用逗号隔开，分别对应紧凑格式和标准格式。数值数据由于前有符号位，后有空格，因此使用分号不会给以后读取文件造成麻烦。但是，对于字符串数据，特别是变长字符串数据来说，用分号分隔就有可能引起麻烦，因为输出的字符串数据之间没有空格。 例如： A$=Beijing:B$=Shanghai:C$=Tianjin Print #1,A$;B$;C$ 写到磁盘上的信息为(((((“BeijingShanghaiTianjin”。为了使输出的各字符串明显地分开，可以人为地插入逗号，即改为： Print#1,A$;,;B$;,;C$ 说明： 这样写入文件中的信息为“Beijing,Shanghai,Tianjin”。 但是，如果字符