《全国计算机考试》.ppt

VB程序设计;文件;数 据 文 件;8.1.2文件结构和分类;根据数据的存取方式和结构分为：;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的整数，它指定数据缓冲区的大小。;例如，打开C:\VB\SCORE，供写入数据， 指定文件号为#1。 OPEN C:\VB\SCORE FOR OUTPUT AS #1 2. 写入命令 Print #文件号，[[Spc(n)|Tab(n)][表达式表][;|,]] ?利用Print #语句，可以向文件中写入多种格式的数据，例： Open “c:\test.dat”For Output As #1 Print #1, “Hello” ‘将字符串写入文件 Print #1, ‘将空白行写入文件 Print #1, Spc(4);”How Do you do?” ‘在字符串前加4个空格 ;Print #1, Tab(20); “Fine,Thank you.” ‘从第20列开始写数据 Close #1 例1： private Sub Form_Click( ) Open “a:\Test\tel.dat”For Output As #1 Tpname$ = InputBox(“请输入姓名:”,“数据输入”) tptel$ = InputBox(“请输入电话号码:”,“数据输入”); TpAssr$ = InputBox(“请输入地址:”,“数据输入”) Print #1, Tpname$ , tptel$ , TpAssr$ Close #1 End Sub ?保存文本框 假定文本框的名称为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(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:”); Write #1, unti$ , tel$ unti$ = InputBox(“Enter unit:”) Wend Close #1 End Sub 3. 关闭文件 Close [[#]文件号][, [#]文件号]... 例如，Clo