第7章 vb文件课件.ppt

Visual Basic程序设计 第7章 文件;7.1 文件的基本概念;7.1 文件的基本概念;2．根据数据存取方式和组织结构分类： （1）顺序文件（Sequential File） 顺序文件一般都是普通的文本文件，文件中的记录按顺序一个接一个存放，记录的长度可以不固定。在进行文件读写操作时，总是从文件头开始，顺序读写，顺序文件的存储格式如下： 顺序文件的优点是操作简单，容易使用，只要把数据一个接一个地写入文件即可。缺点是无法任意取出某一个记录， ;3．根据数据的编码方式分类： ASCII码文件(ASCII file)又称文本文件，文件中的数据都是以ASCII码字符的方式存储的， 二进制文件(Binary file)是指文件的数据以二进制的方式存储，占用空间较小。 ;7.2 顺序文件 ;例如： Open abc.txt For Input As #1 ‘该语句将以读方式打开当前目录下的名为“abc.txt ”的文件，指定的文件号为1。 Open d:\out.dat For Output As #3 ‘该语句将以写方式打开D盘根目录下的名为“out.dat”的文件，指定的文件号为3。 2. 关闭顺序文件 当一个文件的读写操作结束时，应该通过Close语句来关闭文件。 格式： Close [[ # ] 文件号 [ ,[ # ]文件号] …… 功能：关闭指定的文件号所关联的文件或所有正打开的数据文件。;7.2.2 顺序文件的读操作;Private Sub Form_Click() Dim maxnum As Integer, minnum As Integer, temp As Integer Dim counter As Integer Dim total As Double, mean As Double Open Testdata.dat For Input As #1 打开文件 Do while Not EOF(1) Input #1, temp 读数据 counter = counter + 1 统计数据个数 total = total + temp 求出所有数值之和 If (counter = 1) Then 初始化最大值，最小值为文件中的第一个数据 maxnum = temp minnum = temp End If If (temp maxnum) Then 找到最大值 maxnum = temp End If If (temp minnum) Then 找到最小值 minnum = temp; End If Loop Close #1 ‘关闭文件 mean = total / counter ‘求出平均值 Print 最大值为; maxnum 打印结果 Print 最小值为; minnum Print 平均值为; mean End Sub ; (2)Line Input #语句 格式：Line Input #文件号，字符串变量 功能：可以从顺序文件中读取一个完整的行，并把它赋给一字符串变量。 ;; (3) Input$函数 格式：Input$(n，#文件号) 功能：本函数可返回从指定的文件中读取出指定的n个字符。 ;编写如下事件过程： 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.3 顺序文件的写操作 根据输出时的数据格式不同，一般使用Print #语句或Wri