Visual Basic程序设计教程第10章 文件.pptVIP

② 顺序文件的写操作 将内存中的数据 保存到指定路径 下的文件中 格式一: Write #文件号,[输出列表] Write #1,001,张三 ,87,92 Write #1, Write #1,002,李四,76,89 Write #1,003,王五,93,86 紧凑格式 Open c:\stud.dat For Output As #1 Open c:\stud.dat For Output As #1 格式二: print #文件号,[输出列表] print #1,001,张三 ,87,92 print #1, print #1,002,李四,76,89 print #1,003,王五,93,86 (1)分区格式 print #1,001”;张三 ;87;92 print #1, print #1,002”;李四”;76,89 print #1,003”;王五”;93;86 (2) 紧凑格式 程序分析-比较两种写语句 有什么区别? Private Sub Form_Click() Dim Str $, Anum % Open D:\Myfile.dat For Output As 1 Str = ABCDEFG Anum = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub ③ 顺序文件的读操作 从指定的文件 中读出数据到内存 Open c:\stud.dat For Input As #1 例题-通过3种方式读入内容到文本框显示 格式一: Input #文件号,[变量列表] Input #1, data ‘逐个读 格式二: Line Input #文件号,[变量名] Line Input #1, data ‘逐行读 格式三:Input$(读取的字符数，#文件号) Input (LOF(1), 1) ‘指定数目读 假定文本框名为txtTest，文件名为Myfile.TXT。 方法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 回车换行 方法2：一次性读 Open “myfile.TXT For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1 方法3：一个个字符读 Dim InputData as String*1 Open “myfile.TXT For Input As #1 Do While Not EOF(1) Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData Loop Close #1 ④ 文件的关闭 完成文件操作后，要关闭打开的文件。 Close [文件号列表] ① 关闭文件号为1的文件 Close #1 ② 关闭所有打开的文件 Close 10.3 随机文件的操作 每行的记录长度 必须固定 特点 ★ 不能用字处理软件编辑/查看; ★ 查找数据可按记录的顺序任意进行; ★ 可同时进行读写操作; 每行的记录都有 对应的记录编号 ★ 知识点 什么情况下使用自定义数据类型? 如何建立自定义数据类型？ 自定义类型的变量的声明； 自定义类型的变量的使用？ 自定义数据类型 自定义数据类型的定义 一般形式： Type 自定义类型名 元素名1 [(下标)] as 类型名1 元素名2 [(下标)] as 类型名2 ··· 元素名n [(下标)] as 类型名n End Type 常用于数据库 中多记录的数据 标准数据类型 元素可为简单变量或数组 定义书写: (1)在标准模块中, 默认为public。 (2)若在窗体模块中定义,必须是private。 记录类型 字符串类型必须是定长 数据类型为自定义类型的变量声明和使用 声明形式： Dim 变量名 As 自定义数据类型 例: Dim Student as Studtype Dim s (1 To 100) As StudType 使用形式： 变量名.自定义数据类型中的元素