第七章文件模板.pptVIP

* Private Sub Form_Click() Dim max%, min%, aver!, count%, n%, sum% count = 1: sum = 0 Open “D:\data.dat For Input As #1 Input #1, max min = max While Not EOF(1) ‘判断被打开的文件是否到了文件末尾 Input #1, n If n max Then max = n If n min Then min = n count = count + 1: sum = sum + n Wend Close #1 Open f:\data.dat For Append As #1 Print #1, 最大值; max, 最小值; min, 平均值; sum / count Close #1 End Sub * * 格式：Line Input #文件号,字符串变量 功能：从文件中读出一行数据，并将读出的数据赋给指定的字符串变量 3.顺序文件的读操作 7.2 顺序文件 说明： ①“文件号”同前，“字符串变量”用来保存读出的字符串。 ② Line Input # 语句一次只能从文件中读出一个字符串，直到遇到回车符(Chr(13))或回车换行符(Chr(13) + Chr(10))为止。回车或回车换行符将被忽略，不会被加到字符串后。 ③Line Input #语句读出的数据通常用Print #语句写入文件。 ④用Line Input #语句对文本文件进行操作比较方便。 7.2 顺序文件 * 【例7-2】在窗体上分别创建一个文本框对象Text1和一个命令按钮对象Command1,单击命令按钮时，将【例7-1】中的文本文件的内容一行一行地读入文本框 * Private Sub Command1_Click( ) dim s as string Text1.Text = 　 Open d:\7-1\data.dat For Input As #1 ‘打开文件 　Do While Not EOF(1) ‘当文件里的内容未读完时就继续循环 　　 Line Input #1, s 　 Text1.Text = Text1.Text + s + Chr$(13) + Chr$(10) ‘在文本框中显示结果 　 Loop 　 Close #1 ‘关闭文件 End sub 7.2 顺序文件 * 格式：Input(读取的字符数, #文件号) 功能：调用该函数可以读取指定数目的字符， 包括逗号、回车符、换行符、引号和前导空格等。 3.顺序文件的读操作 7.2 顺序文件 说明：除了用于以Input方式打开的顺序文件外，Input函数还可用于以Binary方式打开的二进制文件。 【例7-3】编写一个程序，用Input函数从文件中一次读出一个字符并在窗体上显示出来，直到所有的数据都被读出为止。编写如下事件过程： * Private Sub Form_Click() Dim OneChar Open Testdata.dat For Input As #1 Do While Not EOF(1) OneChar = Input(1, #1) Print OneChar; Loop Close #1 End Sub 7.2 顺序文件 * 【例7-5】建立一个成绩查询窗体如图7-7所示。 要求在From_Load时打开磁盘文件test42in.txt读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入三个数组（每个数组可定义为200个元素）；并将两个列表框的ListIndex属性置为0。当点击姓名中任意一项，学号的ListIndex应随之改变，同样点击学号中任意一项，姓名的ListIndex应随之改变。点击“查询”则将该学生的三项成绩显示在右边的三个文本框内，同时将平均成绩置空。点击“计算”则将该学生三项成绩的平均值显示出来。点击“退出”则结束程序。 List1 List2 textyy Textsx Command1 Command3 Textwl Command2 Textave * 7