《VisulBasic程序设计课件chapter10》-公开课件.pptVIP

* * * * * * * * * * * 第10章 文 件 10.1 文件及其结构 10.2 顺序访问模式 10.3 随机访问模式 10.4 二进制访问模式 10.5 综合应用 * 10.1文件及其结构 1. 记录 由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录 2. 文件及其种类 文件是记录的集合，.NET提供了三种访问模式 : 数据项 总分 物理成绩 语文成绩 数学成绩 姓名 学号 本章目录 * 文件及其种类 (1) 顺序文件 按顺序依次把记录写入或读出来的文件。 记录n 记录n-1 … 记录3 记录2 记录1 文本文件 一行一条记录，记录可长可短，以换行符分隔记录。 (2) 随机文件 记录长度相同，根据记录号可直接访问任意一个记录。 #n记录n 记录n-1 … #2记录2 #1记录1 (3) 二进制文件 直接把二进制码存放在文件中。 * 10.2 顺序访问模式 1. 打开文件 FileOpen(文件号, 文件名, 模式) 模式 OpenMode.Output 进行写操作 OpenMode.Input 进行读操作 OpenMode.Append 在末尾追加记录 文件号 1～511 例 打开C:\SCORE，指定文件号为1，写入数据 FileOpen(1, C:\SCORE.txt,OpenMode.Output) * 顺序访问模式-写操作 写入数据所用的函数是Print、PrintLine、Write和WriteLine (1) Print函数PrintLine函数 Print(文件号，[输出列表]) PrintLine (文件号，[输出列表]) 按标准输出格式输出列表项，后者加换行符 例9.1 利用PrintLine函数把数据写入文件得到 * 写操作 (2) Write和WriteLine函数 Write(文件号，[输出列表]) WriteLine(文件号，[输出列表]) Write函数在行尾不包含换行，WriteLine在行尾包含换行。 Write以紧凑格式存放（在数据项之间插入“,”）并给字符串加上双引号。 例 Write（1, “One”, “Two”, 123） 写入到文件后格式：One,Two,123 例9.2 利用WriteLine函数把数据写入文件。 * 关闭文件 输出函数是将数据送到缓冲区，关闭文件时才将缓冲区中数据全部写入文件。关闭文件形式： FileClose([文件号]) 例 FileClose(1) 关闭1号文件。 如果省略了文件号，FileClose函数将关闭所有已经打开的文件 * 读操作 (1) Input函数 从打开的顺序文件中读出一个数据（逗号分开）并将数据赋给变量。 Input(文件号，变量) 说明：input读出的通常是write写入的数据 (2) LineInput函数 读出一行数据 字符串变量=LineInput(文件号) 说明：读出的数据中不包含回车换行符 LineInput读出的通常是print写入 的数据 * (3) InputString 函数 读取指定数目的字符 字符串变量= InputString (文件号，字符数) * 测试文件函数 (1) LOF函数:获取文件长度（字节数） LOF(文件号) (2) EOF函数：测试文件指针是否到文件末尾 EOF(文件号) (3) LOC函数：返回当前的读/写位置 LOC(文件号) * 例 读文本文件 将Myfile.txt文件的内容读入到文本框TextBox1 方法一：一行一行地读入到文本框 Dim str As String TextBox1.Text = FileOpen(1, C:\Myfile.txt, OpenMode.Input) Do While Not EOF(1) str = LineInput(1) TextBox1.Text = TextBox1.Text + str + vbCrLf Loop FileClose(1) * 方法二：一个字符一个字符地读入到文本框 Dim ch As Char TextBox1.Text = FileOpen(1, C:\Myfile.txt, OpenMode.Input) Do While Not EOF(1) ch = InputString(1, 1) TextBox1.Text = TextBox1.Text + ch Loop FileClose(1) * 方法三：一次性