VB程序设计——10-文件-----精品课件下载.pptVIP

第八章 文件;为什么在程序中读入文件?;8.1 文件的基本概念 8.2 文件控件 8.3 顺序文件 8.4 随机文件 8.5 二进制文件;8.1.1 顺序文件和随机文件(文件结构);随机文件;8.1.2 文本文件和二进制文件(数据的编码) 1. 文本文件 又称ASCII文件，它是以ASCII码的方式进行存储的，这种文件可以用字处理软件建立或修改。 2. 二进制文件 二进制文件中的数据均以二进制方式存储，适用于读写任意结构的文件，其存储单位是字节，可按各种方式对其进行存取，;8.1.3 文件的存取类型 1. 顺序存取 由于顺序文件按行存储，通常它是一个文本文件。顺序存取方式适用于以连续方式存取的文本文件。在文件中，数字和字符均以ASCII码形式存储。 2. 随机存取 随机存取操作实际上是对文件中的记录进行操作，每个记录都有记录号并且记录长度全部相同。适用于有固定结构的二进制文件。 3. 二进制存取 适用于读写任意结构的文件，与随机存取很相似。二进制存取方式与随机存取方式的不同之处在于二进制存取可以定位到文件中的任一字节，而随机存取必须定位到文件中记录的边界上。;8.1.4 文件的操作 1. 文件的打开或创建 Open 文件名 For 方式 [Access 存取类型] [锁定] As [#]文件 _号 [Len=记录长度] 2. 文件的读写 文件的读操作是指把文件中的数据传送到内存的操作，文件写操作是指把内存中的数据存入磁盘文件的操作 3. 文件的关闭 Close [[#]文件号] [, [#]文件号] ...;8.1.5 其他文件操作语句和函数 1. LOF 函数 函数调用格式：LOF(文件号) LOF函数返回被打开文件的大小 2. LOC 函数 函数调用格式：LOC(文件号) LOC函数返回被打开文件的当前读写位置 3. EOF 函数 函数调用格式：EOF(文件号) EOF 函数返回被打开文件是否到了文件末尾。返回值为True，表示到达文件末尾；否则返回值为False。;4. FreeFile 函数 FreeFile函数的返回值是一个在程序中没有使用的文件号 5. FileAttr 函数 函数调用格式：FileAttr(文件号,属性) FileAttr函数的返回值是所打开文件的相关属性。 6. Lock 函数与Unlock 函数 函数调用格式： Lock[#]文件号[,记录|[开始] To 结束] ...... Unlock[#]文件号[,记录|[开始] To 结束] Lock函数与Unlock函数用于对文件的锁定和解锁。;8.2 文件控件;常见属性;常见事件;DirListBox Name: Dir1;Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() If Right(Dir1.Path, 1) \ Then Image1.Picture = LoadPicture(File1.Path + \ + File1.FileName) Else Imange1.Picture = LoadPicture(File1.Path + File1.FileName) End If End Sub ;8.3 顺序文件 1. 顺序文件的打开; 打开c:\VB目录下一个文件名为Score.txt的文件，供读 出数据，指定文件号为# 1;顺序文件的写操作;随机产生一个5×5的二维数组，将该数组的所有元素写入文件test.txt。;顺序文件的追加操作;Wirte #文件号, [输出列表] 输出列表：一般指用， 或 ;分隔的数值或字符串表达式 Wirte 均以紧凑格式写入信息，并自动添加， ;2. 顺序文件的读操作;【例8-2】用Windows自带的“记事本”程序创建一个顺序文件data.dat。该文件内包含若干整型数据，各数据间用空格分开。编写一个程序，找出该文件中的最大值、最小值和平均值，并写入该文件。;Private Sub Form_Click() Dim max%, min%, aver!, count%, n%, sum% count = 1: sum = 0 Open f:\data.dat For Input As #1 Input