VB文件操作函数语句
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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语句打开文 件
2、Len函数可以计算字符串中____________，也可以 计算变量的________________
文件访问函数和语句
新课导入 想要读取一个顺序文件的全部内容，必须检测是否读取 到了文件末，如何来判断是否到文件末呢？
教学目标 掌握EOF函数的语法和功能
文件访问函数和语句
教学过程 一、EOF函数 语法：
文件访问函数和语句
知识小结 1、Fra Baidu bibliotekOF函数 指针到达文件末，EOF返回True，否则返回False
2、FreeFile函数 随机产生一个介于1-511之间未使用的文件号
文件访问函数和语句
当堂检测 1、EOF用来判断_________是否到了文件末
2、FreeFile函数参数为0，则随机产生一个介于 ________之间未使用的文件号
文件访问函数和语句
新课导入 在文件操作中有时需要设置读写的位置
教学目标 掌握Seek语句的语法与功能
文件访问函数和语句
文件访问函数和语句
教学过程 二、Freefile函数 示例： Dim i As Integer i = FreeFile(1) Open "d:\temp.txt" For Output As #i Print i Close #i
文件访问函数和语句
教学过程 二、Freefile函数 练习1： 在D盘根目录下创建一个名为“test.txt” 的文件，使 用FreeFile 动态分配文件号 open “D：\test.txt” for input as #freefile close #freefile Dim sz as integer sz=freefile Open”D:\temp.txt” for input as #sz Close #sz
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 将上程序改为直到型循环
文件访问函数和语句
教学过程 二、Freefile函数 语法： FreeFile（随机种子） 功能： 返回一个 整型数据，用来随机产生一个表示Open语句可以 打开的下一个文件的文件号 说明： 1、随机种子可选，指定一个范围，FreeFile函数返回该数 范围内一个数作为有效文件号，省略种子，默认种子为0 2、0：1-255 1：256-511 3、产生一个未被使用的文件号
文件访问函数和语句
教学过程 一、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”，不打开文 件，计算随机文件中记录的总数
教学过程 三、LOF函数、FileLen函数、Len函数
LOF
FileLen
Len
参数 功能
返回值 单位
文件号
计算文 件长度
Long 字节
文件名 字符串或变量
计算文 计算字符串字符 件长度 个数/变量字节数
Long 字节
Long 个/字节
文件访问函数和语句
当堂检测 1、FileLen函数的参数是__________，LOF函数的参 数是_____________，它们都是用来返回文件的 _________，单位是___________
文件访问函数和语句
任课教师：赵慧
文件访问函数和语句
新课导入 计算文件长度，必须要打开文件，因为要使
用文件号，那如果只是想计算文件长度，不想进 行读写操作，打开文件就显得有点多余。
能不能不打开文件就能知道文件长度呢？
文件访问函数和语句
教学目标
1、掌握FileLen函数的语法及功能 2、了解FileLen函数、LOF函数和Len函数的区 别
文件访问函数和语句
教学过程 二、LOF函数 练习2：有随机文件“D:\temp.txt”，使用LOF 计算随机文件中记录的总数
Private Type student name As String * 5 sex As String * 2 age As Integer
End Type
文件访问函数和语句
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)
End Type 1、计算文件“D:\temp.txt”的长度
文件访问函数和语句
教学过程 二、LOF函数 语法： LOF （文件号） 功能： 返回一个长整型数据，表示已经用Open语句 打开的文件长度，单位是字节 注意： 使用LOF函数之前应先使用Open语句打开文 件
2、Len函数可以计算字符串中____________，也可以 计算变量的________________
文件访问函数和语句
新课导入 想要读取一个顺序文件的全部内容，必须检测是否读取 到了文件末，如何来判断是否到文件末呢？
教学目标 掌握EOF函数的语法和功能
文件访问函数和语句
教学过程 一、EOF函数 语法：
文件访问函数和语句
知识小结 1、Fra Baidu bibliotekOF函数 指针到达文件末，EOF返回True，否则返回False
2、FreeFile函数 随机产生一个介于1-511之间未使用的文件号
文件访问函数和语句
当堂检测 1、EOF用来判断_________是否到了文件末
2、FreeFile函数参数为0，则随机产生一个介于 ________之间未使用的文件号
文件访问函数和语句
新课导入 在文件操作中有时需要设置读写的位置
教学目标 掌握Seek语句的语法与功能
文件访问函数和语句
文件访问函数和语句
教学过程 二、Freefile函数 示例： Dim i As Integer i = FreeFile(1) Open "d:\temp.txt" For Output As #i Print i Close #i
文件访问函数和语句
教学过程 二、Freefile函数 练习1： 在D盘根目录下创建一个名为“test.txt” 的文件，使 用FreeFile 动态分配文件号 open “D：\test.txt” for input as #freefile close #freefile Dim sz as integer sz=freefile Open”D:\temp.txt” for input as #sz Close #sz
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 将上程序改为直到型循环
文件访问函数和语句
教学过程 二、Freefile函数 语法： FreeFile（随机种子） 功能： 返回一个 整型数据，用来随机产生一个表示Open语句可以 打开的下一个文件的文件号 说明： 1、随机种子可选，指定一个范围，FreeFile函数返回该数 范围内一个数作为有效文件号，省略种子，默认种子为0 2、0：1-255 1：256-511 3、产生一个未被使用的文件号
文件访问函数和语句
教学过程 一、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”，不打开文 件，计算随机文件中记录的总数
教学过程 三、LOF函数、FileLen函数、Len函数
LOF
FileLen
Len
参数 功能
返回值 单位
文件号
计算文 件长度
Long 字节
文件名 字符串或变量
计算文 计算字符串字符 件长度 个数/变量字节数
Long 字节
Long 个/字节
文件访问函数和语句
当堂检测 1、FileLen函数的参数是__________，LOF函数的参 数是_____________，它们都是用来返回文件的 _________，单位是___________
文件访问函数和语句
任课教师：赵慧
文件访问函数和语句
新课导入 计算文件长度，必须要打开文件，因为要使
用文件号，那如果只是想计算文件长度，不想进 行读写操作，打开文件就显得有点多余。
能不能不打开文件就能知道文件长度呢？
文件访问函数和语句
教学目标
1、掌握FileLen函数的语法及功能 2、了解FileLen函数、LOF函数和Len函数的区 别
文件访问函数和语句
教学过程 二、LOF函数 练习2：有随机文件“D:\temp.txt”，使用LOF 计算随机文件中记录的总数
Private Type student name As String * 5 sex As String * 2 age As Integer
End Type
文件访问函数和语句
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)