VB文件的操作函数语句.pptVIP

文件访问函数和语句 任课教师：赵慧 文件访问函数和语句 新课导入 计算文件长度，必须要打开文件，因为要使用文件号，那如果只是想计算文件长度，不想进行读写操作，打开文件就显得有点多余。 能不能不打开文件就能知道文件长度呢？ 文件访问函数和语句 教学目标 1、掌握FileLen函数的语法及功能 2、了解FileLen函数、LOF函数和Len函数的区别 文件访问函数和语句 教学过程 一、FileLen函数 语法： FileLen（文件名） 功能： 返回一个表示文件长度的长整型数据，单位是字节 文件访问函数和语句 教学过程 一、FileLen函数 说明： 1、文件名是一个字符串表达式，包含驱动器、目录和文件名 2、使用FileLen函数不需要打开文件；否则使用LOF函数 文件访问函数和语句 教学过程 一、FileLen函数 示例1： dim Fsize as long Fsize = FileLen(“d:\temp.txt”) 程序功能：返回“d:\temp.txt”的字节数 文件访问函数和语句 教学过程 一、FileLen函数 练习1：有随机文件“D:\temp.txt”，不打开文件，计算随机文件中记录的总数 Private Type student name As String * 5 sex As String * 2 age As Integer End Type 1、计算文件“D:\temp.txt”的长度 文件访问函数和语句 教学过程 二、LOF函数 语法： LOF （文件号） 功能： 返回一个长整型数据，表示已经用Open语句打开的文件长度，单位是字节 注意： 使用LOF函数之前应先使用Open语句打开文件 文件访问函数和语句 教学过程 二、LOF函数 练习2：有随机文件“D:\temp.txt”，使用LOF计算随机文件中记录的总数 Private Type student name As String * 5 sex As String * 2 age As Integer End Type 文件访问函数和语句 教学过程 三、LOF函数、FileLen函数、Len函数 文件访问函数和语句 当堂检测 1、FileLen函数的参数是__________，LOF函数的参数是_____________，它们都是用来返回文件的_________，单位是___________ 2、Len函数可以计算字符串中____________，也可以计算变量的________________ 文件访问函数和语句 新课导入 想要读取一个顺序文件的全部内容，必须检测是否读取到了文件末，如何来判断是否到文件末呢？ 文件访问函数和语句 教学过程 一、EOF函数 语法： EOF（文件号） 功能： 返回一个 布尔或逻辑型数据，表明是否已经到达为 Random 或顺序 Input 打开的文件的结尾。 说明： 1、文件号与Open语法打开的文件号相对应 2、遇到文件末返回True，否则返回False 文件访问函数和语句 教学过程 一、EOF函数 示例： Private Sub Form_click() Dim idate As String Open d:\temp.txt For Input As #1 Do While Not EOF(1) Line Input #1, idate Print idate Loop Close #1 End Sub 文件访问函数和语句 教学过程 一、EOF函数 示例： Private Sub Form_click() Dim idate As String Open d:\temp.txt For Input As #1 Do until EOF(1) Line Input #1, idate Print idate Loop Close #1 End Sub 将上程序改为直到型循环 文件访问函数和语句 教学过程 二、Freefile函数 语法： FreeFile（随机种子） 功能： 返回一个 整型数据，用来随机产生一个表示Open语句可以打开的下一个文件的文件号 说明： 1、随机种子可选，指定一个范围，FreeFile函数返回该数范围内一个数作为有