vb程序设计 第8章 文件.pptxVIP

第8章文件2024/9/211

8.1文件的基本概念2024/9/212A.文件文件是数据信息在磁盘上的一种存储结构.为保存数据,需要把数据以文件的形式保存在磁盘,磁带等存储介质中.计算机系统中的不同文件以不同的文件标识符区分,文件标识符即文件全名,由存储路径、主名、扩展名3部分组成.B.文件的访问类型：顺序型文件.随机型文件.二进制型文件.

8.2文本文件的顺序存取1.打开文件OpenfilenameforModeAs#文件号Mode:Input:打开文件、从文件开头读数据Output:打开文件、从文件开头写数据Append:打开文件、从文件末尾写数据文件号：1到511间的整数，代表被打开的文件2024/9/213

8.2文本文件的顺序访问2024/9/2142.写入命令 Print#文件号，[输出列表]写入效果与容器内Print的效果一致。例8-2利用Print#语句直接把数据写入文件。保存文本框Text1到文件TEST.TXT.例子方法1：OpenTEST.TXTForOutputAs#1 Print#1,Text1.Text ‘一次性地写入文件 Close#1

8.2文本文件的顺序访问2024/9/2152.写入命令 Write#文件号，[输出列表]以紧凑格式存放，数据项之间插入逗号并给字符串加双引号，其他非数值型数据两端加上#号。例8-3利用Write#语句把数据写入文件。3.关闭文件 Close[[#]文件号][,[#]文件号]... 例如，Close#1Close#1,#2,#3

2024/9/216

8.2文本文件的顺序访问2024/9/2174.读顺序文件 INPUT#文件号,变量列表例子把读出的每个数据项分别存放到所对应的变量。分隔符P215 LINEINPUT#文件号,字符串变量例子读一行到变量中，主要用来读取文本文件。 Sa=INPUT$(读取字符数,#文件号)例子从指定的文件中一次读取指定个数的字符

8.2.4常用函数和语句LOF(文件号)：返回文件的长度(总字节数)。EOF(文件号)：判断文件指针是否到达文件尾。例子指针在文件尾时，EOF函数为True，否则为False。注意：参数中的文件号前不加#号！Kill语句（P219）：Kill文件名Name语句：Nameold_nameasnew_name2024/9/218

2024/9/219读文本文件d.txt到文本框Text1利用EOF（）函数一行一行读例 Text1.Text＝ Open“d.txtForInputAs#1 DoWhileNotEOF(1)LineInput#1,saText1.Text=Text1.Text+sa+Chr(13)+Chr(10)Loop Close#1

8.3综合应用Page209例8-1例8-1:找出1000之内的素数写入文件d:\su.dat,然后输入若干个数,通过在该文件中查找这些数是否存在的方法,判断它们是否为素数.Page224例8-102024/9/2110