《Visual Basic程序设计实训教程 教学课件 ppt 作者 陆剑锋 主编 俞伟新 颜忠胜 副主编 ch12 文件操作》由会员分享，可在线阅读，更多相关《Visual Basic程序设计实训教程 教学课件 ppt 作者 陆剑锋 主编 俞伟新 颜忠胜 副主编 ch12 文件操作（38页珍藏版）》请在金锄头文库上搜索。
1、文件的打开、关闭与读写 文件操作函数与语句 使用文件编程 文件系统控件,第十二部分 文件操作,Visual Basic程序设计,文件分为三类：顺序访问文件、随机访问文件和二进制文件。 一、顺序访问文件 简称顺序文件，实际上是文本文件。写入到顺序文件中的任何类型的数据，都被转换为字符形式。 1.打开顺序文件 Open 文件名 For Input|Output|Append As #文件号 其中，文件名以字符串形式给出。 For后面的关键字决定文件的打开方式，如下页表格。,1 文件的打开、关闭与读写,Visual Basic程序设计,文件号代表被打开的文件，在范围1511内的整数。文件号前的#可以
2、省略。 打开文件后，对文件的操作均通过文件号进行。一个文件号被使用后，(除非相应的文件被关闭)不能再用于打开其它文件。 文件号不要求连续使用。,1 文件的打开、关闭与读写,Visual Basic程序设计,2.关闭文件 无论是何种文件，对文件的操作完成后都应关闭。 Close #文件号1,#文件号2 可以一次关闭多个文件。不带参数的Close语句关闭所有已经打开的文件。 也可以用Reset语句关闭所有文件。,1 文件的打开、关闭与读写,Visual Basic程序设计,3.写顺序文件 向顺序文件中写数据之前，应使用Output或Append方式打开文件。 （1）Print#语句 Print#文
3、件号,一个或多个参数 （2）Write#语句 Write#文件号,一个或多个参数 Write#语句与Print#语句的区别：前者输出到文件的数据项之前用逗号分隔；前者输出字符串时使用引号、日期时间或逻辑值用#作定界符。,1 文件的打开、关闭与读写,Visual Basic程序设计,如程序： Open “c:aa.txt“ For Output As #1 Print #1, “Hello“, 123.4, Date, True Print #1, “Hello“; 123.4; Date; True Write #1, “Hello“, 123.4, Date, True Write #1,
4、“Hello“; 123.4; Date; True Close 的文件结果为： Hello 123.4 2005-2-3 True Hello 123.4 2005-2-3 True “Hello“,123.4,#2005-02-03#,#TRUE# “Hello“,123.4,#2005-02-03#,#TRUE#,1 文件的打开、关闭与读写,Visual Basic程序设计,4.读顺序文件 读顺序文件之前必须先以Input方式打开文件。 （1）Line Input#语句 整行读入 Line Input#文件号,字符串变量 一次将文件中的一行作为一个字符串读入到变量，将本行中所有字符都作为
5、字符串的组成部分(不包括回车换行)。,1 文件的打开、关闭与读写,Visual Basic程序设计,如，将上例文件中的四行整行读入： Dim S$ Open “c:aa.txt“ For Input As 1 For i = 1 To 4 Line Input #1, S Print S Next Close 运行结果如图：,1 文件的打开、关闭与读写,Visual Basic程序设计,（2）Input#语句 Input#文件号,一个或多个变量 Input#语句一次可以读入一项或多项数据，依次赋给相应的变量，应注意变量的类型匹配问题。 因为Input#语句读取数据时能识别分隔符，故通常用于读取
6、Write#语句写入的数据。 顺序文件的特点：无论是写入还是读取，都是一项一项进行的。每个打开的文件有一个文件指针，指针指向的位置就是下一次写或读的位置。一次读写结束后，文件指针会自动后移。刚打开的文件(不是Append方式)，其文件指针指向开头，而Append方式打开的文件则指向末尾。,1 文件的打开、关闭与读写,Visual Basic程序设计,如，使用Input#语句读取前例文件中的数据： Dim a, b, c, d Open “c:aa.txt“ For Input As 1 For i = 1 To 4 Input #1, a, b, c, d Print a; b; c; d N
7、ext Close 程序运行时出现错误。,1 文件的打开、关闭与读写,Visual Basic程序设计,二、随机访问文件 随机文件有特殊的格式要求： 文件中数据分为一个个等长的单元记录； 每个单元中包含一项或多项数据字段，各记录单元中字段数相等； 除字符串外，其它类型不转换为字符形式，而是以二进制形式直接存放。 随机文件一般不能通过记事本打开查看内容。,1 文件的打开、关闭与读写,Visual Basic程序设计,1.打开随机文件 Open 文件名,For Random As #文件号 Len=记录长度 其中，For Random可以省略，以随机方式打开的文件可读可写。 记录长度以字节为单位，
8、可以通过Len函数获得。 2.向随机文件中写数据 Put #文件号,记录号,表达式 其中，记录号指定将表达式的数据写到第几个记录位置，如果省略，则写到上一次读写的记录之后，若沿未经过读写，则默认为1。,1 文件的打开、关闭与读写,Visual Basic程序设计,3.从随机文件中读出数据 Get #文件号,记录号,变量名 如，对随机文件读写简单数据。(ex1201.exe) 对随机文件读写自定义类型的数据。(ex1201.exe),1 文件的打开、关闭与读写,Visual Basic程序设计,三、二进制文件 二进制文件可以保存任何类型的数据，没有记录的概念，也不要求字符串变量为定长。 1.打开
9、二进制文件 Open 文件名 For Binary As #文件号 以二进制方式打开的文件可读可写。 2.写二进制文件 Put #文件号,写位置,表达式 其中，“写位置”为Long值。表达式为任意类型，如果表达式为数组名，则能够将数组中所有元素依次写文件。,1 文件的打开、关闭与读写,Visual Basic程序设计,3.读二进制文件 Get #文件号,读位置,变量名 其中，变量类型应与读入的数据类型匹配，如果变量为数组名，则依次读取数据放入各元素读取的数据个数与元素个数相等。如果为字符串变量，则读取的字符个数与变量原来长度相等。 如，对二进制文件进行普通变量的读写。(ex1203.exe)
10、如，对二进制文件进行字符串的读写。(ex1204.exe) 如，对二进制文件进行数组的读写。(ex1205.exe),1 文件的打开、关闭与读写,Visual Basic程序设计,四、文件的共享与访问权限 使用Binary,Input,Random方式可以用不同的文件号多次打开同一文件，而不需要先关闭文件。 使用Output或Append打开文件时，文件必须是关闭的。 Open文件名 For 模式Access accesslockAs#文件号Len=记录长度 其中，Access关键字设定要打开文件的读写权限，后接的关键字可以是：Read-只读、Write-只写、Read Write-可读可写。
11、对于顺序文件，不能使用Access关键字。,1 文件的打开、关闭与读写,Visual Basic程序设计,lock部分设定要打开文件的共享权限，可以是：Shared-其它程序可以同时访问此文件、Lock Read-其它程序不同读此文件、Lock Write-其它程序不能写此文件、Lock Read Write-其它程序不能读写此文件。 当一个文件已经打开时，也可以使用Lock和Unlock语句设置其共享权限： Lock|Unlock 文件号,记录|起始记录To终止记录 在关闭文件或退出程序之前，应解除对文件的所有锁定。,1 文件的打开、关闭与读写,Visual Basic程序设计,一、Seek
12、函数 Seek(文件号) 返回文件的当前读写位置，类型为Long。对于随机文件，返回值表示的是记录号，对于顺序文件或二进制文件，返回值表示从文件开头以字节为单位的位置。 二、Seek语句 Seek #文件号,位置 将文件指针(下一次读写位置)设置在“位置”指定处。随机文件中单位为记录，顺序文件和二进制文件中单位为字节。 如果指定的位置超出文件原有长度，则会使文件变大。,2 文件操作函数与语句,Visual Basic程序设计,三、Input函数 Input(字节数,#文件号) 从文件中当前位置读取指定数量的字符，以字符串的形式返回。 此函数只适合于以Input或Binary方式打开的文件。读入
13、的内容包括逗号、回车换行、空白列、引号和空格。 四、EOF函数 EOF(文件号) 测试文件指针是否位于文件末尾。如果是则返回True，否则返回False。,2 文件操作函数与语句,Visual Basic程序设计,五、LOF函数 LOF(文件号) 返回文件的长度，单位为字节。 六、FileLen函数 FileLen(文件名) 在不打开文件的情况下，返回文件的长度，单位为字节。 七、FreeFile函数 FreeFile(范围) 返回当前尚未被占用的文件号。参数可以是0或1。FreeFile或FreeFile(0)返回1255之间未使用的文件号；FreeFile(1)返回256511之间未使用的
14、文件号。,2 文件操作函数与语句,Visual Basic程序设计,八、Dir函数 Dir(文件名,文件属性) 用于测试一个指定路径下是否有指定的文件或文件夹。文件名中可以包含通配符*,?。文件属性可以是以下之和：,2 文件操作函数与语句,Visual Basic程序设计,Dir函数的返回值是字符串。如果文件名中未使用通配符，则文件(夹)存在返回文件(夹)名；若不存在则返回空串。 如果文件名中使用了通配符，则返回第一次找到的文件(夹)名，下一次使用不带任何参数的Dir返回第二次找到的文件(夹)名。例： 找出C:中所有文件与文件夹。 s = Dir(“c:*.*“, 16) 找文件或文件夹 Do
15、 While s “ Print s s = Dir() 没有任何参数，则按前次条件 Loop,2 文件操作函数与语句,Visual Basic程序设计,九、Shell函数 Shell(文件名,窗口状态) 如果执行成功则返回一个代号，否则返回0，若程序不存在则出错。 其中，文件名必须为可执行文件(程序)的名称，窗口状态指程序运行窗口的状态：,2 文件操作函数与语句,Visual Basic程序设计,十、Kill语句 Kill 文件名 从磁盘中删除文件，文件名中可以使用通配符。若文件正被打开，则不能删除。 十一、FileCopy语句 FileCopy 源文件,目标文件 十二、Name语句 Nam
16、e 旧文件名 As 新文件名 如果路径不同，则可以移动文件(夹)。 十三、ChDrive语句 ChDrive 驱动器名 如ChDrive “a”则当前驱动器换为A盘，ChDrive “”不改变当前驱动器。,2 文件操作函数与语句,Visual Basic程序设计,十四、ChDir语句 ChDir 路径 路径中可以包含驱动器。如ChDir “Abc”，则当前路径变为原来驱动器中的abc目录，ChDir “A:def”。 十五、CurDir函数 CurDir(驱动器名) 如果省略参数或使用空串，则返回当前盘的当前路径。 十六、MkDir语句 MkDir 路径 如果不指定路径中的盘符，则在当前盘中创建新的文件夹。如MkDir “abc”，MkDir “A:F”。,2 文件操作函数与语句,Visual Basic程序设计,十七、RmDi
