第九章文件(2学) 9.1文件系统控件 9.2文件的读写 9.3常用的文件操作语句和函数
第九章 文件（2学时） 9.1 文件系统控件 9.2 文件的读写 9.3 常用的文件操作语句和函数
91驱动器、目录和文件列表框 驱动器、目录和文件列表框示例 □回区 Sub drvDrive Changeo dirDirectory. Path drvDrive Drive→s顾彐 End sub Active setup Lo ARCHES. BMP ARGYLE BMP HCOMMAND &P. EXE Sub dirDirectory_ Changeo ICONFIG ARTGALRY INI filFile Path dir Directory Path ASPIZHLP SIS AUDDRIVEHLP End sub AUDDRTVE INI 口 sorites aLmOra8 9 所有A5 Sub Form Load( Sub filFile Click() tem=“所有文件(**)” cboType AddItem Item +Space(20-Len(Item))+ tem="窗体文件(*FRM) End sub cboType Additem Item+ Space(20-Len(item))+*.FRI tem="位图文件(*BMP)" Sub filFile_DblClick() cboType. Addltem Item+ Space(20-Len(Item))+ *.BMP" cboType. ListIndex=2 End sub End sub Sub cboType Click() filFile Pattern= Mid(cboType. Text, 21) End sub 例9,1示例程序
9.1 驱动器、目录和文件列表框 Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub Sub Form_Load() Item = “所有文件(*.*)” cboType.AddItem Item + Space(20 - Len(Item)) + "*.*" Item = "窗体文件(*.FRM)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.FRM" Item = "位图文件(*.BMP)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.BMP" cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub Sub filFile_Click( ) ┆ End Sub Sub filFile_DblClick( ) ┆ End Sub 例9.1示例程序
1驱动器列表框 Drive属性 [对象]Drve=dve hange事件: 重新设置 Drive属性引发 Change事件 2.目录列表框 八 Wy Path属性: [对象]Path[= pathname Change事件: 重新设置Path属性引发 Change事件
1. 驱动器列表框 Drive属性： [对象.]Drive [= drive] Change事件： 重新设置Drive属性引发Change事件 2. 目录列表框 Path属性： [对象.]Path [= pathname] Change事件： 重新设置Path 属性引发Change事件
3文件列表框 Path属性 显示该路径下的文件 重新设置Path属性引发 Path Change事件 Pattern属性: 显示的文件类型。 [对象] Pattern[= value] 重新设置 Pattern属性引发 Pattern Change事件 例如:fFe.Patn=“*rm”,显示*fm文件。 FileName属性: CC对象】 FileName[= pathname 引用时只返回文件名,相当于fFle.ist( filfile listindex),需用Path属性得 到其路径;设置时可带路径。 cick、 DblClick事件 例如,单击输出文件名 例如,双击执行可执行程序 Sub filFile Click(ilg ChDir( dirDirectory Path)’改变当前目录 Sub filFile DblClick() MsgBoxfilFile FileName End sub Reta|=Shel( filfile. fileName,1)’执行程序 End sub
3. 文件列表框 Path属性： 显示该路径下的文件。 重新设置Path属性引发PathChange事件。 Pattern属性： 显示的文件类型。 [对象.]Pattern [= value] 重新设置Pattern属性引发PatternChange事件。 例如：filFile.Pattern = “*.frm”，显示*.frm文件。 FileName属性： [对象.]FileName [= pathname] 引用时只返回文件名，相当于filFile.List(filFile .ListIndex)，需用Path属性得 到其路径；设置时可带路径。 Click、DblClick事件： 例如，单击输出文件名。 例如，双击执行可执行程序。 Sub filFile_Click( ) Sub filFile_DblClick( ) MsgBox filFile.FileName ChDir (dirDirectory.Path) ’ 改变当前目录 End Sub RetVal = Shell(filFile.FileName, 1) ’ 执行程序 End Sub
29.2文件的读写 文件:存储在外部介质上数据的集合。 按名存取 1.记录 由若干个相互关联的数据项组成。 例如,由学生的学习成绩信息组成的记录: 匚学号1姓名「数学成绩语文成绩物理成绩|总分 数据项 2.文件及其种类 文件是记录的集合 顺序访问模式:顺序文件,记录可长可短 随机访问模式:随机文件,记录的长度相同 二进制访问模式:二进制文件(可认为记录长度为1)
9.2 文件的读写 文件：存储在外部介质上数据的集合。 按名存取 1. 记录 由若干个相互关联的数据项组成。 例如，由学生的学习成绩信息组成的记录： 学号 姓名 数学成绩 语文成绩 物理成绩 总分 数据项 2. 文件及其种类 文件是记录的集合 顺序访问模式：顺序文件，记录可长可短 随机访问模式：随机文件，记录的长度相同 二进制访问模式：二进制文件（可认为记录长度为1）