《Visual Basic 程序设计教程》教学课件合集（共12章）非AI生成 (2).ppt

使用Put语句写随机文件。语法为：Put[#]文件号,[记录号],表达式“文件号”参数应该是已打开的随机文件的文件号。“记录号”参数应是正整数，指定数据将写在文件中的第几条记录上。如果省略这个参数，则写在当前记录上。如果尚未进行读写，则写在第一条记录上。“表达式”是指要写入文件中的数据来源。Put语句把“表达式”的值写入文件中指定的一条记录上。当表达式的值所占的存储空间大于打开文件时指定的“记录长度”时，会出错。一般情况下，“表达式”是自定义类型变量名，变量的各个成员对应这条记录的各个字段。写随机文件使用Get语句读随机文件，语法为：Get[#]文件号,[记录号],变量名“文件号”参数指定要读取的随机文件。“记录号”参数指定要读入随机文件中的第几条记录。如省略此参数，则读当前记录。如果尚未进行读写，则为第一条记录。“变量名”参数确定读入的数据存入哪个变量中。此变量的类型应与写文件时使用的变量类型相匹配，否则读出的数据可能没有意义。完成操作之后，Get语句将下一条记录设为当前记录。读随机文件打开【例12.3】*使用ForBinary关键字来打开二进制文件。语法为：Open文件名ForBinaryAs[#]文件号以二进制方式打开的文件既可以读也可以写。如果文件不存在，则创建新文件。随机文件打开二进制文件使用Put语句来写二进制文件。Put[#]文件号,[写位置],表达式“文件号”代表一个以二进制方式打开的文件。“写位置”参数为长整型数，指定数据要写到文件中的位置（从文件开头以字节为单位计算），如省略此参数，则写入当前位置。如果尚未进行过读写操作，则为文件头的位置。如果指定位置上本来有数据，则会被新写入的数据覆盖。当指定位置超出文件末尾时，会使用文件扩大。“表达式”是要写入文件中数据的来源，表达式的值可以是任意类型。如果“表达式”处是一个数组名，则会把数组所有元素的值依次写入文件中。写入数据成功后，Put语句将下一个字节位置设为下一次读写的当前位置。写二进制文件*使用Get语句来读二进制文件。Get[#]文件号,[读位置],变量名“文件号”代表一个以二进制方式打开的文件。“读位置”参数指定要读入的数据在文件中的位置（从文件开头以字节为单位）。如省略此参数，则从当前位置开始读。如果尚未进行过读写操作，从文件头开始读入。如果指定位置超出文件长度，并不会出错，读入的是变量类型的默认值。“变量名”参数指定从文件中读出的数据要存入的变量，变量的数据类型决定从文件中读入的字节数。如果“变量名”为字符串变量，则读入的字符数与字符串变量当前字符数相同。如果“变量名”参数是一个数组名，则会从文件中读入多个值并依次赋给数组元素，读入值的个数与数组元素个数相等。读数据成功后，Put语句将下一个字节位置设为下一次读写的当前位置。读二进制文件打开【例12.4】*1Seek语句： Seek[#]filenumber,positionSeek语句将指定文件号的文件的下一个读写位置position（长整型）。随机文件的单位是记录号，二进制文件的单位是字节。2Seek(filenumber)函数 此函数返回filenumber指定文件的当前读写位置。返回值为长整型。3Input(number,[#]filenumber)函数此函数从filenumber文件中从当前位置读入number指定的个数的字节，并作为字符串返回。这个函数只适合以顺序输入或二进制方式打开的文件。此函数读入的内容包括逗号、回车符、空白列、换行符、引号和前导空格等一起读入。4EOF(filenumber)此函数测试当前是否位于指文件号文件的末尾。是，返回True；否，则返回False。有的语句或函数在执行如果超出文件末尾，则会出错，应的使用前用本函数或LOF函数检测。5LOF(filenumber)返回指定文件号filenumber所代表文件的长度，以字节为单位。6FileLen(filename)此函数返回指定文件名的文件长度（字节为单位），文件不要求打开。如果文件打开，则返回的是打开前的文件长度。与文件操作有关的函数与语句*7Freefile函数 FreeFile[(0|1)]使用FreeFile提供一个尚未使用的文件号。参数指定文件号范围，FreeFile或FreeFile(0)返回1～255之间未使用的文件号；FreeFile(1)返回256～511之间未使用的文件号。8Dir函数Dir函数用来测试指定文件或文件