资源描述：
《Visual Basic文件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第10章文件10.1顺序文件10.2随机文件10.3文件系统控件文件：存储在外部介质上数据的集合。按名存取1.记录由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：数据项2.文件及其种类文件是记录的集合。顺序访问模式：顺序文件，记录可长可短；随机访问模式：随机文件，记录的长度相同；二进制访问模式：二进制文件（可认为记录长度为1）。使用传统方法处理文件P153(1)顺序文件按顺序依次把记录写入文件；按顺序依次把记录读出来。文本文件：一行一条记录，记录可长可短，以“换行”字符为分隔符号。(2)随机文件随机文件可
2、以直接访问文件中的任意一个记录。记录长度相同；根据记录号访问；(3)二进制文件直接把二进制码存放在文件中。1.打开文件Open文件名[For模式]As[#]文件号[Len=记录长度](1)模式OUTPUT：写操作；INPUT：读操作；APPEND：追加到文件末尾。(2)文件号1～511，可以用FreeFile函数获得下一个可利用的文件号。(3)记录长度小于或等于32767的整数，它指定数据缓冲区的大小。例如，打开C:VBSCORE，供写入数据，指定文件号为#1。OPEN"C:VBSCORE"FOROUTPUTAS#1
3、10.1顺序文件P130打开文件读出或写入关闭文件2.写入命令Print#文件号，[输出列表]保存文本框假定文本框的名称为Text1，文件名为TEST.DAT。方法1：把整个文本框的内容一次性地写入文件。Open"TEST.DAT"ForOutputAs#1Print#1,Text1Close#1方法2：把整个文本框的内容一个字符一个字符地写入文件。Open"TEST.DAT"ForOutputAs#1Fori=1Tolen(Test1)Print#1,Mid(Text1,i,1);NextiClose#1Write#文件号
4、，[输出列表]紧凑格式。数据项之间插入“,”，并加上双引号。例如，命令：Write#1,"One","Two",123内容："One","Two",1233.关闭文件Close[[#]文件号][,[#]文件号]...例如，Close#1,#2,#34.读顺序文件INPUT#文件号,变量列表把读出的每个数据项分别存放到所对应的变量。LINEINPUT#文件号,字符串变量读一行到变量中，主要用来读取文本文件。INPUT$(读取字符数,#文件号)随意读取字符5.函数LOF(文件号)：返回文件的长度(总字节数)。EOF(文件号)：返
5、回读写位置。指针在文件尾时，EOF函数为True，否则为False。读文本文件到文本框假定文本框名称为Text1，文件名为MYFILE.TXT。方法1：一行一行读Text1.Text＝""Open"MYFILE.TXT"ForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDataText1.Text＝Text1.Text+InputData+vbCrLfLoopClose#1方法2：一次性读Text1.Text＝""Open"MYFILE.TXT"ForInputAs#1Text1.Te
6、xt=Input$(LOF(1),1)Close#1方法3：一个个字符读DimInputDataasString*1Text1.Text＝""Open"MYFILE.TXT"ForInputAs#1DoWhileNotEOF(1)InputData=Input$(1,#1)Text1.Text＝Text1.Text+InputDataLoopClose#110.2随机文件P1561.打开Open文件名ForRandomAs#文件号[Len=记录长度]2.写操作Put[#]文件号，[记录号]，变量名将一个记录变量的内容写到指定
7、的记录位置处。忽略记录号，则表示在当前记录后的位置插入一条记录。3.读操作Get[#]文件号，[记录号]，变量名忽略记录号，则读出当前记录后的那一条记录。P157例题10-51.打开Open文件名ForBinaryAs#文件号2.写操作Put[#]文件号，[位置]，变量名写入长度等于变量长度的数据。3.读操作GET[#]文件号，[位置]，变量名从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。补充：二进制文件例1文
8、件复制DimcharAsByteDimFileNum1,FileNum2asIntegerFileNum1=FreeFile'打开源文件Open"C:STUDENT.DAT"ForBinaryAs#FileNum1FileNum2=FreeFile'打开目标文件Open"C:STUDE
