VB文件操作函数语句

2020/2/261文件访问函数和语句任课教师：赵慧22020/2/26文件访问函数和语句新课导入计算文件长度，必须要打开文件，因为要使用文件号，那如果只是想计算文件长度，不想进行读写操作，打开文件就显得有点多余。能不能不打开文件就能知道文件长度呢？32020/2/26文件访问函数和语句教学目标1、掌握FileLen函数的语法及功能2、了解FileLen函数、LOF函数和Len函数的区别42020/2/26文件访问函数和语句教学过程一、FileLen函数语法：FileLen（文件名）功能：返回一个表示文件长度的长整型数据，单位是字节52020/2/26文件访问函数和语句教学过程一、FileLen函数说明：1、文件名是一个字符串表达式，包含驱动器、目录和文件名2、使用FileLen函数不需要打开文件；否则使用LOF函数62020/2/26文件访问函数和语句教学过程一、FileLen函数示例1：dimFsizeaslongFsize=FileLen(“d:\temp.txt”)程序功能：返回“d:\temp.txt”的字节数72020/2/26文件访问函数和语句教学过程一、FileLen函数练习1：有随机文件“D:\temp.txt”，不打开文件，计算随机文件中记录的总数PrivateTypestudentnameAsString*5sexAsString*2ageAsIntegerEndType1、计算文件“D:\temp.txt”的长度82020/2/26文件访问函数和语句教学过程二、LOF函数语法：LOF（文件号）功能：返回一个长整型数据，表示已经用Open语句打开的文件长度，单位是字节注意：使用LOF函数之前应先使用Open语句打开文件92020/2/26文件访问函数和语句教学过程二、LOF函数练习2：有随机文件“D:\temp.txt”，使用LOF计算随机文件中记录的总数PrivateTypestudentnameAsString*5sexAsString*2ageAsIntegerEndType102020/2/26文件访问函数和语句教学过程三、LOF函数、FileLen函数、Len函数LOFFileLenLen参数功能返回值单位文件号计算文件长度字节Long计算字符串字符个数/变量字节数字符串或变量文件名LongLong个/字节字节计算文件长度112020/2/26文件访问函数和语句当堂检测1、FileLen函数的参数是__________，LOF函数的参数是_____________，它们都是用来返回文件的_________，单位是___________2、Len函数可以计算字符串中____________，也可以计算变量的________________122020/2/26文件访问函数和语句新课导入想要读取一个顺序文件的全部内容，必须检测是否读取到了文件末，如何来判断是否到文件末呢？教学目标掌握EOF函数的语法和功能132020/2/26文件访问函数和语句教学过程一、EOF函数语法：EOF（文件号）功能：返回一个布尔或逻辑型数据，表明是否已经到达为Random或顺序Input打开的文件的结尾。说明：1、文件号与Open语法打开的文件号相对应2、遇到文件末返回True，否则返回False142020/2/26文件访问函数和语句教学过程一、EOF函数示例：PrivateSubForm_click()DimidateAsStringOpend:\temp.txtForInputAs#1DoWhileNotEOF(1)LineInput#1,idatePrintidateLoopClose#1EndSub152020/2/26文件访问函数和语句教学过程一、EOF函数示例：PrivateSubForm_click()DimidateAsStringOpend:\temp.txtForInputAs#1DountilEOF(1)LineInput#1,idatePrintidateLoopClose#1EndSub将上程序改为直到型循环162020/2/26文件访问函数和语句教学过程二、Freefile函数语法：FreeFile（随机种子）功能：返回一个整型数据，用来随机产生一个表示Open语句可以打开的下一个文件的文件号说明：1、随机种子可选，指定一个范围，FreeFile函数返回该数范围内一个数作为有效文件号，省略种子，默认种子为02、0：1-2551：256-5113、产生一个未被使用的文件号172020/2/26文件访问函数和语句教学过程二、Freefile函数示例：DimiAsIntegeri=FreeFile(1)Opend:\temp.txtForOutputAs#iPrintiClose#i182020/2/26文件访问函数和语句教学过程二、Freefile函数练习1：在D盘根目录下创建一个名为“test.txt”的文件，使用FreeFile动态分配文件号open“D：\test.txt”forinputas#freefileclose#freefileDimszasintegersz=freefileOpen”D:\temp.txt”forinputas#szClose#sz192020/2/26文件访问函数和语句知识小结1、EOF函数指针到达文件末，EOF返回True，否则返回False2、FreeFile函数随机产生一个介于1-511之间未使用的文件号202020/2/26文件访问函数和语句当堂检测1、EOF用来判断_________是否到了文件末2、FreeFile函数参数为0，则随机产生一个介于________之间未使用的文件号212020/2/26文件访问函数和语句新课导入在文件操作中有时需要设置读写的位置教学目标掌握Seek语句的语法与功能222020/2/26文件访问函数和语句教学过程一、Seek语句语法：Seek#文件号，位置功能：用于在通过Open语句打开的文件中设置下一个读写位置232020/2/26文件访问函数和语句教学过程一、Seek语句说明：1、如果以随机方式打开文件，Seek将读写位置设置到下一个记录。2、如果不以Random打开文件，则Seek设置下一个操作发生的位置（即字节位置）。如seek#1,3是将操作位置设置在1号文件第三个字符前。242020/2/26文件访问函数和语句示例：如果以input模式打开文件，则Seek设置下一个操作发生的位置(Seek语句)。PrivateSubForm_click()DimMaxSize,x,aOpen“D:\text.txtForInputAs#1MaxSize=LOF(1)Forx=MaxSizeTo1Step-1Seek#1,xa=Input(1,#1)printaNextxClose#1EndSub252020/2/26文件访问函数和语句知识小结1、Seek语句Seek#文件号，位置2、功能用于在通过Open语句打开的文件中设置下一个读写位置262020/2/26文件访问函数和语句新课导入Seek语句可以设置下一个读写位置，如果想记录下当前操作位置该如何操作呢？教学目标掌握Seek函数的语法与功能272020/2/26文件访问函数和语句教学过程一、seek函数语法：Seek（文件号）功能：用于在通过Open语句打开的文件中得到当前读写位置282020/2/26文件访问函数和语句教学过程一、seek函数说明：1、如果以随机方式打开文件，Seek返回下一个读出或写入的记录号2、如果不以Random方式打开文件，则Seek返回下一个操作会发生的位置（字节位置）。292020/2/26文件访问函数和语句示例：如果不以Random方式打开文件，则Seek返回下一个操作会发生的字符位置PrivateSubForm_click()DimMyCharOpen“d:\1.txtForInputAs#1DoWhileNotEOF(1)MyChar=Input(1,#1)Debug.PrintSeek(1)LoopClose#1EndSub302020/2/26文件访问函数和语句知识小结1、Seek函数语法Seek（文件号）2、功能用于在通过Open语句打开的文件中得到当前读写位置312020/2/26文件访问函数和语句当堂检测1、下列选项可以用来记录当前读写位置的是()可以用来设置下一个读写位置的是（）A、Seek语句B、Dir函数C、Seek函数D、LOF函数322020/2/26练习下面vb程序段，是对顺序文件进行操作。Opend:\2.txtForOutputAs#1Print#1,A1;1234Write#1,B2;2345Print#1,C3;3456Write#1,D4;4567Close#1Opend:\2.txtForInputAs#1LineInput#1,scoreSeek#1,15LineInput#1,scorePrintscoreClose#1程序运行后，printscore输出的结果是___________2.Txt文件内容：A11234B2,2345C33456D4,4567,2345Print输出数值，前一个符号位，后一个尾随空格。Write输出数值，什么都不加。332020/2/26文件访问函数和语句新课导入我们可以用Seek语句和Seek函数设置或返回下一个操作的位置，如何返回上一个操作的位置呢？342020/2/26文件访问函数和语句教学过程一、Loc函数语法：Loc(文件号)功能：返回一个长整型，用于表示在一个已经被打开的文件中当前读写位置352020/2/26文件访问函数和语句教学过程一、Loc函数说明：不适用于顺序文件随机文件上一次操作的记录号二进制文件上次读写的字节位置362020/2/26文件访问函数和语句教学过程一、Loc函数示例1：DimxxaslongOpen“d:\temp.txt”forbinaryas#1printloc(1)close#1