Visual-Basic文件.pptVIP

第10章 文 件 10.1 顺序文件 10.2 随机文件 10.3 文件系统控件 文件：存储在外部介质上数据的集合。 按名存取 1. 记录 由若干个相互关联的数据项组成。 例如，由学生的学习成绩信息组成的记录： (1) 顺序文件 按顺序依次把记录写入文件； 按顺序依次把记录读出来。 10.1 顺序文件 P130 1. 打开文件 Open 文件名 [For 模式] As [#] 文件号 [Len=记录长度] (1) 模式 OUTPUT：写操作； INPUT：读操作； APPEND：追加到文件末尾。 (2) 文件号 1～511，可以用FreeFile函数获得下一个可利用的文件号。 (3) 记录长度 小于或等于32767的整数，它指定数据缓冲区的大小。 例如，打开C:\VB\SCORE，供写入数据，指定文件号为#1。 OPEN C:\VB\SCORE FOR OUTPUT AS #1 2. 写入命令 Print #文件号，[输出列表] 保存文本框 假定文本框的名称为Text1，文件名为TEST.DAT。 方法1：把整个文本框的内容一次性地写入文件。 Open TEST.DAT For Output As #1 Print #1, Text1 Close #1 方法2：把整个文本框的内容一个字符一个字符地写入文件。 Open TEST.DAT For Output As #1 For i=1 To len(Test1) Print #1,Mid(Text1, i, 1); Next i Close #1 Write #文件号，[输出列表] 紧凑格式。数据项之间插入“,”，并加上双引号。 例如，命令：Write #1,One,Two,123 内容：One,Two,123 3. 关闭文件 Close [[#]文件号][, [#]文件号]... 例如，Close #1, #2, #3 4. 读顺序文件 INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数,#文件号) 随意读取字符 5. 函数 LOF(文件号)：返回文件的长度(总字节数)。 EOF(文件号)：返回读写位置。 指针在文件尾时，EOF函数为True，否则为False。 读文本文件到文本框 假定文本框名称为Text1，文件名为MYFILE.TXT。 方法1：一行一行读 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData Text1.Text ＝ Text1.Text + InputData+vbCrLf Loop Close #1 方法2：一次性读 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Text1.Text = Input$( LOF(1), 1) Close #1 方法3：一个个字符读 Dim InputData as String*1 Text1.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) InputData= Input$(1,#1) Text1.Text ＝ Text1.Text + InputData Loop Close #1 10.2 随机文件 P156 1. 打开 Open 文件名 For Random As #文件号 [Len=记录长度] 2. 写操作 Put [#]文件号，[记录号]，变量名 将一个记录变量的内容写到指定的记录位置处。 忽略记录号，则表示在当前记录后的位置插入一条记录。 3. 读操作 Get [#]文件号，[记录号]，变量名 忽略记录号，则读出当前记录后的那一条记录。 补充： 二进制文件 1. 打开 Open 文件名 For Binary As #文件号 2. 写操作 Put [#]文件号，[位置]，变量名 写入长度等于变量长度的数据。 3. 读操作 GET [#]文件号，[位置]，变量名