Visual Basic 6.0可视化编程与实训 作者 于泽 主编 项目八 文件管理.pptVIP

知识6 文件的读写相关函数 LOF函数 LOF函数返回一个长整型值，表示用Open语句打开的文件的大小，该大小以字节为单位。 语法格式： LOF(文件号) 例如： Open in.dat For Input As #1 FileLength =LOF(1) 取得文件长度 Close #1 知识6 文件的读写相关函数 EOF函数 EOF函数用于测试文件的结束标志，可以避免因试图在文件结尾处进行输入而产生的错误。 语法格式： EOF(文件号) 知识6 文件的读写相关函数 EOF函数通常用来在循环读数据时测试是否已到文件尾，例如： Open in.out For Input As #1 Do While Not Eof(1) 利用循环读取数据，一直读到文件尾 Input #1, a 把读出的数据赋予变量a Loop Close #1 课堂练习　文件的建立与读取 1）建立新文件：选择一个新的文件名，如abc123.txt. 2）选择文件的读取方式：选择Output。 3）选择文件号：选择1号文件。 4）写出相应语句： Open “abc123.txt” For Output As #1 5）输入文件内容,1至10个数字，换行输入 For i=1 To 10