LOF(#文件号):返回用Open语句打开的文件的字节数,若是 空文件则函数值为0。对于尚未打开的文件,可使用 Filelen(文件 名)函数计算其长度。 例如: Dim Filelength as long Open"' Filel.dat" For Input as#1·打开文件进行读操作。 Filelength= LOF(1) 调用LOF函数计算文件长度 Close #1 1023文件的关闭 对文件进行完各种操作之后,必须关闭。 Close[文件号列表 文件号列表:代表一个或多个文件号。若省略,表示关闭Open语 句打开的所有文件。 例如: Close 关闭文件号为1的文件 Close1,2'关闭当前已打开的文件号为1和文件号为2的文件 Close 关闭所有打开的文件 注意:文件关闭后,与其原文件号不再关联,该文件号可分配给 其它文件使用
LOF（#文件号）：返回用Open语句打开的文件的字节数，若是 空文件则函数值为0。对于尚未打开的文件，可使用FileLen(文件 名)函数计算其长度。 例如： Dim FileLength As Long Open "File1.dat" For Input As #1 '打开文件进行读操作。 FileLength = LOF(1) '调用LOF函数计算文件长度。 Close #1 10.2.3 文件的关闭 对文件进行完各种操作之后，必须关闭。 Close [文件号列表] 文件号列表：代表一个或多个文件号。若省略，表示关闭Open语 句打开的所有文件。 例如： Close 1 '关闭文件号为1的文件 Close 1, 2 '关闭当前已打开的文件号为1和文件号为2的文件 Close '关闭所有打开的文件 注意：文件关闭后，与其原文件号不再关联，该文件号可分配给 其它文件使用
103顺序文件的读写 1031顺序文件的读操作(lput和 Line Input) 顺序文件是指文件中的记录连续存放,记录长短可不同,访问时 只能依顺序从第一条记录访问到最后一条记录。顺序文件的访问 方式适合访问普通的文本文件,如文字处理软件WPS、WORD、 或写字板等创建的文本文件。 当文件以Iput模式打开,就可以对文件进行顺序读操作 例如: Open" Filel. dat" For Input as#1'打开文件以便进行读操作 Input#1,Name, Serialnumber'将数据读入变量Name和 SerialNumber
10.3.1 顺序文件的读操作（Input和Line Input） 顺序文件是指文件中的记录连续存放，记录长短可不同，访问时 只能依顺序从第一条记录访问到最后一条记录。顺序文件的访问 方式适合访问普通的文本文件，如文字处理软件WPS、WORD、 或写字板等创建的文本文件。 当文件以Input模式打开，就可以对文件进行顺序读操作。 例如： 10.3 顺序文件的读写 Open "File1.dat" For Input As #1 '打开文件以便进行读操作 Input #1, Name, SerialNumber '将数据读入变量Name和 SerialNumber
VB提供的读取文件内容的方法有以下三种: (1)从已经打开的顺序文件中读出数据并将数据赋给变量 语法格式: Input#文件号,变量列表 其中变量列表以逗号分隔,从文件中读出的值分别赋给这些变量。 注意: ①文件中数据项目的顺序必须与变量列表中变量的顺序相同,数 据类型必须和变量列表中变量的数据类型匹配。 ②这些变量不可是一个数组或对象变量。 ③用 Input#语句只能读用 Write#语句(而不是 Printf语句)写 入的数据文件。因为 Write#语句可以确保将各个单独的数据域正 确分隔开。 例如: Dim cl c2 Open" myfile" For Input as#1·打开输入文件 Input #1, cl, c2 将数据读入两个变量。 Debug Print c1,c2在立即窗口中显示数据。 Close #1 关闭文件
VB提供的读取文件内容的方法有以下三种： （1）从已经打开的顺序文件中读出数据并将数据赋给变量。 语法格式：Input #文件号，变量列表 其中变量列表以逗号分隔，从文件中读出的值分别赋给这些变量。 注意： ① 文件中数据项目的顺序必须与变量列表中变量的顺序相同，数 据类型必须和变量列表中变量的数据类型匹配。 ② 这些变量不可是一个数组或对象变量。 ③ 用Input # 语句只能读用Write # 语句（而不是Print # 语句）写 入的数据文件。因为Write # 语句可以确保将各个单独的数据域正 确分隔开。 例如： Dim c1, c2 Open "myfile" For Input As #1 '打开输入文件。 Input #1, c1, c2 '将数据读入两个变量。 Debug.Print c1, c2 '在立即窗口中显示数据。 Close #1 '关闭文件
(2)从文件中读出指定数目的字符 语法格式: Input(读取的字符数,#文件号) Input函数返回它所读出的所有字符,包括逗号、回车符、空白列、 换行符、引号和前导空格等。 例如: Dim c Open" myfile" For Input as#1'打开文件 c=Input(l, #1) 读入一个字符并将其赋予变量c Close #1 关闭文件
（2）从文件中读出指定数目的字符。 语法格式：Input（读取的字符数，#文件号） Input函数返回它所读出的所有字符，包括逗号、回车符、空白列、 换行符、引号和前导空格等。 例如： Dim c Open "myfile" For Input As #1 '打开文件。 c = Input(1,#1) '读入一个字符并将其赋予变量c Close #1 '关闭文件
(3)从已经打开的顺序文件中读出一行字符,直到遇到回车符 (chr(13))或回车换行符(chr(13)+chr(10)为止。回车、换行 符将被跳过,而不会被附加到字符串上。 语法格式: Line Input#文件号,变量 其中变量为 String型或 Variant型。 例如 Dim linel As string Open" myfile" For Input as#1·打开文件。 Do While not eof(d) Line Input#1,line1'读入一行数据并将其赋予变量 linel。 Debug Print linel 在立即窗口中显示数据。 Loop Close #1 关闭文件
Dim line1 As String Open "myfile" For Input As #1 '打开文件。 Do While Not EOF(1) Line Input #1, line1 '读入一行数据并将其赋予变量line1。 Debug.Print line1 '在立即窗口中显示数据。 Loop Close #1 '关闭文件。 （3）从已经打开的顺序文件中读出一行字符，直到遇到回车符 （chr(13)）或回车换行符（chr(13)+chr(10)）为止。回车、换行 符将被跳过，而不会被附加到字符串上。 语法格式：Line Input #文件号，变量 其中变量为String型或Variant型。 例如：