新Visual Basic程序设计教程 华东交通大学教材 专著 基金资助项目 教学课件 熊李艳 周美玲 第10章 文件.pptVIP

学习导读 第十章 文件 方法1：一行一行读 txtTest.Text ＝ Open “myfile.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1 写语句 记录类型定义 随机文件打开 ② 随机文件的读操作 格式: Get [#]文件号,[记录号],变量名 Open “c:\s1.dat” For Random As #1 Len = Len(Stud) get #1, n, stud 记录号可省略 则读出数据的记录号为上次读/写的记录的记录号加1。 读语句 记录类型定义 随机文件打开 记录操作应用 【例10.6 】设计一个简单的学生成绩管理程序，使用随机文件存储学生信息。程序的运行界面下图所示，该程序具有数据添加、删除及浏览功能。 10.4 常用文件读写函数及语句 返回一个未打开文件的大小(B) FileLen(文件名) 返回文件当前中读写的位置 LOC(文件号) 判断读写指针是否达到文件尾 EOF(文件号) 返回打开文件的大小(B) LOF(文件号) 作用 函数形式 获得当前文件的路径 CurDir(文件名) 获得当前文件的属性 CurAttr(文件名) 调用DOS/Windows下的应用程序 ID=Shell(文件) [,窗口类型] ) Shell(文件名) 获得当前文件被创建或被修改的最后日期和时间 FileDateTime(文件名) 作用 函数形式 调用执行记事本 i = Shell(C:\WINDOWS\NOTEPAD.EXE) ‘ 进入MS_DOS状态 j = Shell(c:\, 1) 文件复制 FileCopy 源文件名，目标文件名 给文件设置属性 SetAttr文件名，属性 删除目录 RmDir 路径 创建新目录 MKDir路径 改变当前驱动器 ChDrive驱动器名 改变当前目录 ChDir路径 文件重命名 Name 旧文件名　as 新文件名 文件删除 Kill文件名 作用 语句形式 VB提供了3种直接浏览系统目录结构和文件的控件。 驱动器列表框 文件列表框 目录列表框 10.5 文件控件 驱动器列表框（DriveListBox） Change 当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发 Drive 设计时不使用 用于返回或设置运行时选择的驱动器 主要事件 主要属性 目录列表框（DirListBox） Change 当改变目录触发 Path 设计时不使用 用于返回或设置当前路径 主要事件 主要属性 当前listindex为-1 例如：下列代码可以实现驱动器列表框Drivel与目录列表框Dirl的同步。 Private Sub Drivel_Channge() ＇当用户选择新的驱动器时触发 Dirl.Path=Drivel.Drive End Sub 例如：下列代码可以实现目录列表框Dirl与文件列表框Filel的同步。 Private Sub Dirl_Change() ＇当用户选择新的目录时触发目录列表框发生 Filel.Path=Dirl.Path End Sub 文件列表框（FileListBox） 设计时不使用 返回或设置文件列表框当前目录 Path 返回或设置被选定的文件名,不包括路径名 FileName 过滤文件类型 File1.Pattern= *.txt; *.Doc “ File1.Pattern= ???.txt“ Pattern 描述 主要属性 程序分析-如何获得带全路径的文件名? If Right(file1.path,1) =\ Then Fname$=file1.path file1.filename Else Fname$=file1.path \ file1.filename End If 此条件也可改为：Len(file1.path)3 当文件列表框的路径被代码中的FileName或Path属性的设置所改变时发生 PathChange事件 当文件列表框的Pattern属性值发生改变时发生 PatternChange事件 鼠标单击/双击时发生 Click、Dbclick事件 描述 主要事件 文件控件的联动应用 【例10.7 】 实验十 思考： 比较几种文件的读写异同，各有什么特点？ 内容： 实验10的实验内容、编程题及测试题 ①顺序文件(sequential file)