vb的课件.pptVIP

第12章文 件 12.1 文件的基本概念 文件:是指存储在外部介质上的数据的集合 分类: 从文件内容分—程序文件、数据文件 按存取方式分—顺序文件、随机文件、二进制文件 1.顺序文件: 普通的纯文本文件，可以用任何字处理软件进行访问 优点 结构简单，访问方式简单 缺点 查找数据必须按记录顺序进行 不能同时进行读写操作 12.1 顺序文件 1. 顺序文件的打开 格式: Open 文件名 FOR [Input|Output|Append] AS [#]文件号[Len=缓冲区大小] 方式: Input—以只读方式打开。当文件不存在时出错。 Output —以写方式打开。 如果文件不存在，则创建一个新文件。 如果文件已经存在，则删除原数据。 Append—以添加方式打开文件。 如果文件不存在，就创建一个新的文件。 如果文件已经存在，写数据时从文件尾开始进行添加。 文件号 : １到511之间的整数。 FreeFile[(rangenumber)] 例: (1) 在C盘Data文件夹下建立一个名为stud.dat的文件 Open c:\Data\stud.dat For Output As #1 (2) 打开当前盘当前文件夹下的salary.dat文件，以便从中读取数据 Open salary.dat For Input As #8 (3) 打开C盘Data文件夹下名为stud.dat的文件，以便在文件末尾添加数据 Open c:\Data\stud.dat For Append As 2 2. 顺序文件的关闭 格式: Close [文件号列表] 例: (1) 关闭文件号为1的文件 Close #1 (2) 关闭文件号为1、2、8的文件 Close #1, 2, #8 文件号前的“#”号可以省略 (3) 关闭所有打开的文件 Close 3. 顺序文件的读写 (1)顺序文件的写操作 Write #语句 格式: Write #文件号,[输出列表] 说明: ? 输出列表中各项之间要用逗号分开 ? 输出列表每一项可以是常量、变量或表达式。 ? 写到文件中的各数据间自动插入逗号，字符串自动加上双引号 ? 所有数据写完后，在最后加入一个回车换行符。 Print #语句 格式: Print #文件号,输出列表 ? 当输出列表用逗号分隔时，采用分区格式输出； ? 当输出列表用分号分隔时，采用紧凑格式输出。 ? 所有项将在一行内输出，输出后将自动换行。 ? 可以使用Spc()函数和Tab()函数。 将例12-1中的Write #语句改用Print #语句: Print #2, no, na, g1, g2 (2) 顺序文件的读操作 a. Input #语句 格式: Input #文件号,变量列表 Private Sub Command1_Click() CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #3 Text1.Text = Do While Not EOF(3) 装入用Write #语句生成的文件 Input #3, num, nam, s1, s2 ave = (s1 + s2) / 2 Text1.Text = Text1.Text num nam _ Str(s1) Str(s2) _ Str(ave) Chr(13) Chr(10) Loop Close #3 End Sub EOF函数: 格式 EOF(文件号) b. Line Input #语句 格式: Line Input #文件号,变量名 c. Input函数 格式: 变量名=Input(整数,[#]文件号) d. InputB函数 格式: 变量名=InputB(字节数,[#]文件号) 【例12-3】读取例12-1生成的学生成绩文件，计算每个学生的平均成绩，计算每门课的平均成绩，将结果显示于文本框中，同时将计算结果与原数据保存于另外一个指定的文件中，设计界面