VB教学第2章【医药版】.pptVIP

问题回顾;第二章 文件;;文件的引入; 解决以上问题的方法是使用文件，将有用的 数据永久性的保存在外存介质上。;2.1文件系统控件与数据文件定义;按照数据性质分为：;根据访问模式分为：; (1) 顺序文件 记录可长可短；换行符、英文逗号、空格都可以作为记录间的分割符。按顺序依次把记录写入文件；按顺序依次把记录读出来。一般用来存储一些不经常修改的数据。 ;①首先打开或建立（外存）文件。 ②将文件中的数据读到（内存）变量中。 ③使用和处理（内存）变量中的数据。 ④将（内存）变量中的数据写到（外存）文件中。 ⑤最后关闭（外存）文件。 ;2.2顺序文件的打开、读写和关闭;2.2.1顺序文件的打开与关闭;2.2.3顺序文件的写入操作;2.2.3顺序文件的写入操作;2.2.2顺序文件的读取操作;2.2.3顺序文件的读取操作;方法3：一个个字符读 Dim InputData as String*1 Text1.Text ＝ Open c:\temp\outfile.txt For Input As #1 Do While Not EOF(1) InputData= Input$(1,#1) Text1.Text ＝ Text1.Text + InputData Loop Close #1;2.2.4顺序文件应用举例1;顺序文件练习 例2-2 下面程序的运行结果是什么？ Private Sub Command1_Click() Open C:\temp\test.txt For Output As #1 Print #1, Visual Basic 6.0, 666.88, Date, 200100 Write #1, Visual Basic 6.0, 666.88, Date, 200100 Print #1, Visual Basic 6.0; 666.88; Date; 200100 Write #1, Visual Basic 6.0; 666.88; Date; 200100 Close #1 End Sub ;顺序文件练习 例2-3 通过下面程序读取上题生成的文件，运行结果是什么？ Private Sub Command1_Click() Dim str1 As String: Dim str2 As String Dim num1 As Single: Dim dnum1 As Date Dim blnum1 As Boolean Open C:\temp\test.txt For Input As #1 Line Input #1, str1 Print str1 Input #1, str2, num1, dnum1, blnum1 Print str2：Print num1：Print dnum1：Print blnum1 Close #1 End Sub ;2.5 文件处理函数与语句;2.5 文件处理函数与语句;QA;2.2.4顺序文件应用举例2;2.6 综合举例;2.1 文本系统控件 ——引导用户查找/定位磁盘文件的向导;2.1.1 文件系统控件;驱动器列表框(DriveListBox) 用于列出系统中包括网络共享的驱动器,该控件属于特殊的下拉列表框(只能选); 重要属性: Drive设置或者获取驱动器 重要事件: Change;目录列表框(DirListBox) 用于列出某驱动器下的目录结构,属于特殊的列表框; 重要属性: Path 列出path路径下的文件夹 重要事件： Change;文件列表框(FileListBox) 用于列出某目录下指定类型的文件,属于特殊的列表框; 重要属性: Path显示该路径（目录）下的文件 Pattern指定显示文件类型 例如：File1.Pattern = *.frm，显示*.frm文件。 同时显示多个文件类型用分号；分界。例如： *.frm;*.vbp FileName文件名（不含路径） 重要事件： Click\DblClick;若想得到包含完整路径的文件名，需要利用文件列表框path属性