第07章节 文件.ppt

7.1 文件管理控件 7.1 文件管理控件 7.1 文件管理控件 7.1 文件管理控件 （1）Input # 语句 格式： Input #文件号, 变量列表 功能： 从已打开的顺序文件中读入一项或多项数据，并将数据赋给用逗号分隔的变量列表中的变量。 说明： ① 读入的数据项的类型应与变量列表中的变量的类型相对应； ② Input # 语句在读入数据时，是按文件中的分隔符（空格、回车、换行、逗号）来区分数据项的，所以应用Input # 语句来读Write #语句产生的数据； （2）Line Input # 语句 （3）Input 函数 示例:学生成绩录入示例 请演示文件示例文件夹中的程序 录入：把成绩写入文件 Private Sub Cmdinput_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Open App.Path + \考试成绩.txt For Append As #10 number = xh.Text score1 = Val(bs.Text) score2 = Val(js.Text) Text1 = Text1 number Str(score1) Str(score2) return1 Write #10, number, score1, score2, score1 + score2 Close #10 xh.Text = CStr(Val(number) + 1) End Sub 从文件中读出成绩: Private Sub CmdDwj_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer, score3 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Text2 = Open App.Path + \考试成绩.txt For Input As #10 Do Input #10, number, score1, score2, score3 Text2 = Text2 number Str(score1) _ Str(score2) Str(score3) return1 Loop Until EOF(10) Close #10 End Sub 作业 P.156 1、2、4 * Visual Basic 程序设计 * 第7章 文件 7.1 文件管理控件 7.2 文件处理 7.3 示例 ? 总结与练习 盐城工学院 Visual Basic 程序设计 作业 实验 掌握 重点 驱动器列表框 VB中用于文件管理操作的控件有： 驱动器列表框、目录列表框和文件列表框 文件夹列表框 文件列表框 改变Drive属性的两种方法： ① 在驱动器控件中选取 ② 用赋值语句：Drive1.Drive=“d:\” 1.驱动器列表框(DriveListBox) (1)属性： name: Drive1(默认） Drive：返回Drive控件中选取的驱动器 是运行时属性。 ListIndex：选定驱动器的索引值(只读),从0开始计 ListCount：列表中驱动器总数(只读） (2)事件: Change：改变Drive属性时触发. （选择、输入或给Drive属性赋值时） 1.驱动器列表框(DriveListBox) (3) ChDrive语句: 作用：改变当前工作驱动器 格式： ChDrive Drive 例如： ChDrive D: Open ABC.txt For Input As #1 ChDrive C: Open ABC.txt For Output As #2 (1)属性： Name：Dir1（默认值） Path：设置或返回列表框中显示的当前目录 是运行时属性 2.目录列表框（DirListBox) ListIndex：选定文件夹的索引值(只读) 当前文件夹的索引值为-1, 所包含的子文件夹从0开始计数，依次递增 它的上级文件夹依次递减 ListCount 列表中驱动器总