第25讲 VB课件new幻灯片课件.ppt

文件结构与基本操作; 文件操作流程;顺序文件;1。顺序文件的打开 顺序文件用Open语句打开要操作的文件。 格式: Open 文件名 [For打开方式 ] As [#]文件号 （1）文件名:实际的磁盘文件名。 （2）打开方式包括以下3种。 Input Output Append; （3）文件号。是一个1～511之间的整数。它用来代表所打开的文件，文件号可以是整数或数值型变量。 例如： Open d：\shu1.dat For Input As #1 该语句以输入方式打开文件shu1.dat，并指定文件号为1。 Open d：\shu2.dat For 　Output As #5 该语句以输出方式打开文件shu2.dat，即向文件shu2.dat进行写操作，并指定文件号为5。 Open d：\shu3.dat For 　Append As #7 该语句以添加方式打开文件shu3.dat，即向文件shu3.dat添加数据，并指定文件号为7。 ;（2）Write语句 用Write语句项文件写入数据时，与Print语句不同的是，不论使用“，”还是“；”，一律为紧凑格式输出，Write语句能自动在文件中各数据项之间插入逗号，并给字符串加上双引号。 Write语句的一般格式： Write #文件号 [，输出表列] ;例如： Open d：\shua.dat For 　Output As #6 Write # 6， zhang；wang；li Write # 6， 78；99；67 Close #6 执行上面的程序段后，写入到文件中的数据如下： zhang，wang，li 78，99，67 ;3、顺序文件的读操作 顺序文件的读操作，就是从已存在的顺序文件中读取数据到变量中。在读一个顺序文件时，首先要用Input方式将准备读的文件打开。VB提供了Input、Line Input语句和Input函数将顺序文件的内容读入。 （1）Input语句 Input语句一般格式： Input #文件号，变量表列 ;例如： Private Sub form_Click（） Dim x$，y$，z$，a%，b%，c% Open c：\_vb\shua.dat For Input As #1 Input #1，x，y，z Input #1，a，b，c Print x，y，z Print a，b，c Print a + b + c Close #1 End Sub;如果顺序文件shua.dat的内容如下： zhang，wang，li 78，99，67 执行Form_Click过程，在窗体上显示的内容为： zhang wang li 78 99 67 244;（2） Line Input语句 Line Input语句是从打开的顺序文件中读取一行。 一般格式： Line Input #文件号，字符串变量 例如：如果顺序文件shua.dat的内容如下： zhang，wang，li 78，99，67 我们用Line Input语句将数据读出并且把它显示在文本框中。 ; Private Sub Command1_Click（） Dim a$，b$ Open c：\_vb\shua.dat For Input As #2 Line Input #2，a Line Input #2，b Text1.Text = a b End Sub 执行以上过程，文本框中显示的内容为： zhang，wang，li78，99，67;（3） Input函数 格式：Input（字符数，#文件号） 功能：从打开的顺序文件读取指定数量的字符。Input函数返回从文件中读出的所有字符，包括逗号、回车符、换行符、引号和空格等。 例如：Text1.Text=Input（Lof（2），#2） 该语句是将2号文件的内容全部复制到文本框中。 ;4、顺序文件的关闭 顺序文件用Close语句关闭 一般格式 Close [文件号表列] 例如： ① Close #1 关闭文件号为1的文件。 ② Close #2，#7，#8