重点难点与错误分析.pptVIP

一、文件及文件分类 文件是指记录在外部介质的数据集合，一段文字、一段音乐或者一幅图片都可以是一个文件。 顺序文件 又称 “文本文件”，是顺序存取的文件。 特点：每次只能从第一个记录开始，一个接一个的按顺序输入或输出记录。占用的磁盘空间少，适用于不经常修改数据的文件。 一、文件及文件分类 随机文件 可以按照任意顺序读写的文件。 每条记录都有一个记录号，并且所有记录的长度是固定的。 读取数据时，只要指定记录号就可以直接读取记录，所以随机文件的读写速度快，而且打开后可同时做读、写操作，不像顺序文件那样打开后只能做读写操作中的一种。 一、文件及文件分类 二进制文件 二进制数据的集合，磁盘中的文件在本质上都是以二进制方式存储的。 二进制文件存取方式以字节为单位对文件进行访问的。 二进制存储密集、空间利用率高，但操作起来不太方便。 二、文件操作 文件的类型不同，访问数据的方式也不同，但基本处理步骤都是三步： （1）打开（或新建）文件 （2）进行读/写操作 （3）关闭文件 二、文件操作 Private Sub CmdAdd_Click() Dim intFlag As Integer，n As Integer，intLasbz As Integer Dim strComp1 As String, strComp2 As String intFlag = 0 If fname Then Open fname For Random As #1 Len = Len(stuXs) Else MsgBox 请先新建或打开学生信息文件 Exit Sub End If 二、文件操作 intLasbz = LOF(1) / Len(stuXs) For n = 1 To intLasbz Get #1, n, StuXS strComp1 = Trim(txtInfor(0).Text) strComp2 = Trim(Replace(stuXs.strXh, Chr(0), )) If StrComp(strComp1, strComp2) = 0 Then intFlag = 1 End If Next n 二、文件操作 If intFlag = 0 Then With stuXS .strXh = txtInfor(0).Text .strXm = txtInfor(1).Text .strXb = IIf(OptSex(0).Value, 男, 女) .intNl = Val(txtInfor(2).Text) .strBj = txtInfor(3).Text .strBz = txtInfor(4).Text End With 二、文件操作 Put #1, intLasbz + 1, stuXs msg = stuXs.strXh + + stuXs.strXm + + _ stuXs.strXb + + stuXs.intNl + + _ stuXs.strBj + + stuXs.strBz LstStud.AddItem msg Else MsgBox 该学生已经存在, vbInformation, 提示 End If Close #1 End Sub 二、常见错误分析 出现“文件已打开”出错信息 文件所占空间和文件大小不一致 Input(LOF(文件号), #文件号) 发生 “输入超出文件尾”错误 1． 出现“文件已打开”出错信息 原因： 主要是前一次执行过打开语句，文件没有关闭，以后再打开时就会发生此问题。 文件使用完后必须用Close语句关闭，否则将可能丢失数据！ 解决方法： 文件使用结束后，关闭文件。 2．文件所占空间和文件大小不一致 操作系统将硬盘划分为若干个簇，然后以簇作为最小单位保存文件。每个簇的大小因为操作系统和分区大小而不同。 计算占用空间，先调用GetDiskFreeSpace获得磁盘的簇的大小。 然后利用文件大小除以簇的大小并将小数进位得到占用的簇数，然后再乘以簇的大小就可以获得获得文件占用的空间。 3 ． Input(LOF(文件号), #文件号) 发生 “输入超出文件尾”错误 原因： Input函数的第一个参数是要读入的字符数，采用Unicode方式（英文字母和汉字，一律算一个字符）。LOF函数却返回的是字节数。 例：如果你的文件中有10个汉字，那么LOF函数返回文件长度20个字符，执行Input(20, filenum1)，VB读到第10个汉字时就把文件读完了，所以提示错误：输出超出文件尾。 主要原因和解决办法 解决办法： （1）使用Line Input语句 Line Input语句只看文件中是否有回车和