八章节 数据文件.pptVIP

第八章 数据文件;8.1 数据文件概述 8.1.1 引例 8.1.2 文件分类 8.1.3 文件访问流程 8.2 文件访问 8.2.1 顺序文件 8.2.2 随机文件 8.2.3 二进制文件 8.3 综合应用;8.1 数据文件概述;例8.1 设计一个如图所示的学生信息管理程序 ;8.1.2 文件分类;8.1.3 文件读写;8.2.1 顺序文件 顺序文件的特点： ? 访问规则：按顺序进行访问 ? 写文件：各种类型的数据自动转换成字符串后写入文件 从本质上来说，顺序文件是ASCII文件，可以用记事本打开 ? 读文件时： 可以按原来的数据类型读出来 可以按通常的文本文件来进行处理 一行一行地读或一个字符一个字符地读;8.2.1 顺序文件;2. 写文件 (1) Print函数PrintLine函数 Print(文件号，[输出列表]) PrintLine (文件号，[输出列表]) 说明： ? PrintLine输出数据后再输出回车换行符（vbCrLf） ? 按标准输出格式写数据： 一个区（14个字符位置）只能写入一个数据， 数据之间没有逗号，字符串也不用双引号括起来。; (2) Write和WriteLine Write(文件号，[输出列表]) WriteLine (文件号，[输出列表]) 说明： ? WriteLine输出数据后再输出回车换行符（vbCrLf） ? 以紧凑格式输出数据： 数据项之间插入“,” 给字符串加上双引号，数值数据没有双引号一个区;FileOpen(1, C:\Data.txt, OpenMode.Output) WriteLine(1, 091023, 王海涛, 66) WriteLine(1, 092498, 周文英, 88) FileClose(1);3. 关闭文件 FileClose([文件号]) 说明： ? 要关闭文件，否则数据可能会丢失，因为数据在缓冲区 ? 省略文件号，关闭所有已经打开的文件 例如：FileClose(1) 关闭1号文件;2. 写文件 (1) Input函数 读出一个数据并将数据赋给变量 Input(文件号，变量) ? 按原来的数据类型读出一个数据 ? 要使用Write(WriteLine)写，不能使用Print或(PrintLine) 写：WriteLine(1, 091023, 王海涛, 66) 读：Dim No As String, Name As String, Score As Integer Input (1, No) Input (1, Name) Input (1, Score); (2) LineInput函数 读出一行数据 字符串变量=LineInput(文件号) ? 读出的数据中不包含回车换行符 例如，将文本文件Myfile.txt中的内容读入TextBox1. Dim str As String TextBox1.Text = FileOpen(1, Myfile.txt, OpenMode.Input) Do While Not EOF(1) str = LineInput(1) TextBox1.Text = TextBox1.Text + str + vbCrLf Loop FileClose(1) ; (3) InputString 函数 读取指定数目的字符 字符串变量= InputString (文件号，字符数) (4) EOF函数 读文件时测试是否到文件末尾 EOF(文件号) (5) LOF函数 返回文件的字节数 LOF(文件号) ;例8.2 编写如图所示的顺序文件读写程序。若选择“添加数据”，则将一个学生的学号、姓名和成绩（Integer）添加到Scores.txt文件中；若选择“读取数据”，则从文件读取数据并计算总分和平均成绩”，最后送入文件框。;8.2.2 随机文件 ;8.2.2 随机文件;8.2.2 随机文件;8.2.2 随机文件;8.2.2 随机文件;1.随机文件的打开和关闭 打开随机文件 FileOpen(文件号,文件名, OpenMode.Rando