全国计算肯机考试.pptVIP

数 据 文 件 8.1.2文件结构和分类 1.文件结构 8.2 文件的读写 文件：存储在外部介质上数据的集合。 (1) 顺序文件 按顺序依次把记录写入文件； 按顺序依次把记录读出来。 ?FreeFile函数：得到一个在程序中没有使用的文件号。 ? Loc函数：返回由“文件号”指定的文件的当前读写位置。 ? LOF(文件号)：返回文件的长度(总字节数)。 ? EOF(文件号)：用来测试文件的结束状态。 指针在文件尾时，EOF函数为True，否则为False。 一、 顺序访问模式 1. 打开文件 Open 文件名 [For 模式] As [#]文件号 [Len=记录长度] (1) 模式 OUTPUT：写操作； INPUT：读操作； APPEND：追加到文件末尾。 (2) 文件号 1~511，可以用FreeFile函数获得下一个可利用的文件号。 (3) 记录长度 小于或等于32767的整数，它指定数据缓冲区的大小。 方法2： 把整个文本框的内容一个字符一个字符地写入文件。 Open TEST.DAT For Output As #1 For i=1 To len(Text1) Print #1,Mid(Text1, i, 1); Next i Close #1 Write #文件号，[输出列表] ? 紧凑格式。数据项之间插入“,”，并加上双引号 ? 用Write #语句写入时，文件必须以Output或Append方式打开； ? 用Write #语句写入的正数的前面没有空格。 例如，命令：Write #1,One,Two,123 内容：One,Two,123 例2:在磁盘上建立一个电话号码文件，存放单位名称和该单位的电话号码。 private Sub Form_Click( ) Open “a:\Tel\tel.dat”For Output As #1 unti$ = InputBox(“Enter unit:”) While Ucase(unit$) “DONE” tel$ = InputBox(“Enter unit:”) 4. 读顺序文件 ?INPUT #文件号,变量列表 Input #语句从一个已经打开的顺序中读出的每个数据项分别存放到所对应的变量。 例3：用Windows自带的“记事本”程序创建一个顺序文件Testdata.dat。该文件内包含若干整型数据，各数据间用空格分开。编写一个程序，找出该文件中的最大值、最小值和平均值，并在窗体上打印出来。 private Sub Form_Click( ) Dim maxnum As Integer Dim minnum As Integer Dim temp As Integer ?读文本文件到文本框 假定文本框名称为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 二、随机文件 1. 打开 Open 文件名 For Random As #文件号 [Len=记录长度] 2. 写操作 Put [#]文件号，[记录号]，变量名 将一个记录变量的内容写到指定的记录位置处。 忽略记录号，则表示在当前记录后的位置插入一条记录。 3. 读操作 Get [#]文件号，[记录号]，变量名 忽略记录号，则读出当前记录后的那一条记录。 ?Free