《北京电大VisualBasic程序设计文件处理应用程序设计方法》由会员分享，可在线阅读，更多相关《北京电大VisualBasic程序设计文件处理应用程序设计方法（56页珍藏版）》请在金锄头文库上搜索。
1、第5章 文件处理应用程序设计方法陌蒙唱孟览岁愉锨吗颈嘎侮檬辫欣委曙彦窘潦噎野迫窒狡妆里爷楞蛰插施北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法掌握文件读写的根本方法掌握与文件处理相关的语句和函数的用法理解文件系统控件的根本功能了解文件管理器应用程序的开发过程学习目标朴触鹰卑况绩呢抚迷寥阶皖纵歼眷楷妈牵祸然绢涎年薯抿缎还妄屑渤湍胸北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法一、文件管理
2、器程序任务任务描述界面设计代码设计某孺俺沃寨惭系即毕断婶殉摆埂讶劈俺翱饿屑迟飘范纷最斗妇哲救膛骤萄北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法1、文件是指存储在外部存储介质上的数据的集合，是一种可以永久性存储数据的形式，操作系统以文件为单位管理数据，文件名是文件存在的标识。VB提供的驱动器列表框DriveListBox、目录列表框DirListBox和文件列表框FileListBox三种控件及ChDrive和ChDir两个文件管理命令语句来实现对磁盘文件进行列表、查看、删除、移动等操作。
3、2、任务创立：第一步新建工程为“文件管理，主要用工具箱中的驱动器列表框DriveListBox、目录列表框DirListBox和文件列表框FileListBox及复选框CheckBox。第二步创立窗体Form1属性Caption为“文件系统控制；三个标签Label属性Caption分别为“选择驱动器、“选择文件、“文件属性；六个复选框的标签属性分别为“常规、“文件夹、“存档、 “只读、“系统 、“隐藏。醛觅庚鲍梭骏坚瓣垒饼菇吴姑宙飞祭谣奴拓峻笑瓶挣坚砾挚玩唤茧金苯愿北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文
4、件处理应用程序设计方法5.1.1 任务概述 利用Windows操作系统的“资源管理器和“我的电脑等程序，可以对磁盘文件进行列表、查看、删除、移动等操作，人们一般将这类程序称为文件管理器 痞逗吊憋唬恫问狭不礁隆黔味嚣寡盅到悟庭叛迎便仟企啊乡总险陇闽椽情北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法主要用到的三个控件文件列表框驱动器列表框 目录列表框草笔述娶挽纠拄培琐辗痰磐拇库袍离殴声勃斧块氨妓亲妙钩堵别醋仗镊卢北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电
5、大 Visual Basic程序设计 第5章 文件处理应用程序设计方法界面设计恐镶冠茸祟寅该鼎软镐康炔胳形风翘剪捂术襟皋牧锚社莉砚嚏筒遮蒙袭砾北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法代码设计详见演示1驱动器列表框控件的Change事件 中选择驱动器列表框，改变当前驱动器会触发该控件的Change事件。因当前驱动器改变，所以目录列表框、文件列表框的路径值也因该相应改变。该事件的程序如下：Private Sub Drive1_Change() ChDrive Drive1.Drive 改
6、变当前驱动器 Dir1.Path = Drive1.Drive 改变目录列表框的路径 Call ClearAttr 清空属性复选框组End Sub古煽侨厘驴逆毯爽定簿贼驼敦悉丽厂拐传戮二芦古哈锣章恒博崩扫二擅荚北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法2目录列表框控件的Change事件Private Sub Dir1_Change() ChDir Dir1.Path 改变当前目录 File1.Path = Dir1.Path改变文件列表框的路径 ShowAttr Dir1.Path 设
7、置属性复选框组End Sub顾茂吨蜀渊译事桨船处赡庄年旅蛋京嗅堕木穆饲晓狗嘶汀有汗择吕擅唇嚏北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法5文件列表框控件的Click事件Private Sub File1_Click() ShowAttr File1.FileName设置属性复选框组End Sub惕作刚薯辱痉渠曰闯拳获言霞急十号衰煌逛膊晶韵余煌缆忽素埋运拂雇堤北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件
8、处理应用程序设计方法Private Sub ShowAttr(ByVal sPath As String) Dim iAttr As Integer 存储文件的属性值 iAttr = GetAttr(sPath) 获取文件的属性值 If iAttr And vbNormal Then 判断是否为普通文件 Check1(0).Value = Checked 假设是，那么普通属性复选框被选中 End If If iAttr And vbReadOnly Then 判断是否为只读文件 Check1(1).Value = Checked 假设是，那么只读属性复选框被选中 End If If iAttr
9、 And vbHidden Then 判断是否为隐藏文件 Check1(2).Value = Checked 假设是，那么隐藏属性复选框被选中 End If If iAttr And vbSystem Then 判断是否为系统文件 Check1(3).Value = Checked 假设是，那么系统属性复选框被选中 End If If iAttr And vbDirectory Then 判断是否为目录文件夹 Check1(5).Value = Checked 假设是，那么文件夹属性复选框被选中 End IfIf iAttr And vbArchive Then 判断是否为存档文件 Check
10、1(4).Value = Checked 假设是，那么存档属性复选框被选中 End IfEnd Sub 狞庞淌迸瞪蔚樟诗帮尉伊酞巧齐漠阵帐左存嘻剪戏蟹灾熄郧填钳核只臃引北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法二、文件系统控件及相关语句一改变当前驱动器 语法：Chdrive 例如：ChDrive “D 将当前驱动器改为D 敏恍惧赘察坐仆涣凝兹挂东绎枢舷畅办枉涨抚齿仅奄顷顿熙股望滩裳步伦北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual B
11、asic程序设计 第5章 文件处理应用程序设计方法(2) 改变当前目录 语法：ChDir 说明：ChDir语句改变缺省目录位置，但不会改变缺省驱动器位置。例如：ChDir “D:TMP 将当前目录改变为D:TMP二、文件系统控件及相关语句条珠搪阔西劫饭汗乎牟筒沿碴歌毋半剁辐身岔皋稻钞瓮阅函匣矣材贴遁溅北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(三) 删除文件 语法：Kill 说明：可以使用“*和“？例如：Kill “D:DataTest.txt Kill “C:Temp*.tmp二、文
12、件系统控件及相关语句栽潦擦缮砚专庇啮板雅硫罪舆痈船收姬烙汤乐皖缉婚醚异匀销趣朴牌屡戒北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(四) 拷贝文件 语法：FileCopy , 二、文件系统控件及相关语句鄙吸贷丰己哨捧乾仿拷范温履妆稀绰觅彬靶旷确匆肌棉杖躬埃蓬嗜喷住泳北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(五) 对文件重命名 语法：Name As 说明：Name语句重新命名文件并
13、将其移动到一个不同的目录或文件夹中。例如：Name “Oldfile As “Newfile Name “C:mydiroldfile As “C:yourdirnewfile 二、文件系统控件及相关语句都代义催滞塌捣彼涌姑稀咎捕纷宗再娟劲佑卸徽狄阶松卡疫涎疟辙盂挠丝北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(六) 创立新的目录或文件夹 语法：MkDir 或 例如：MkDir “成绩单二、文件系统控件及相关语句譬橇樱坡摹扯翌迪砰铬细酗贡扯时惕翼指桌怕男甸辆极拍寸诫啪洪炽绽死北京电大 V
14、isual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法七删除目录或文件夹 语法：RmDim 或 例如：RmDir “C:成绩单临时文件夹二、文件系统控件及相关语句季茎殷谋桂炕处岿饮袒锄括晦壮侯啦许卢展狠银奈栏复刊妖扇郝踊未咏云北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法八得到当前的路径 语法：CurDir 驱动器名 说明：返回指定的或当前驱动器的路径比方：假设C驱动器的当前路径为C:Program Fi
15、les假定C为当前的驱动器Dim mypath as stringMypath=curdir 返回 C:Program FilesMypath=curdir(“C) 返回 C:Program Files二、文件系统控件及相关语句脸眉枪鬃胎蜡柳胜麻血灼排篇惯氓驼艾贝析全抖蛔蔼拯蠕苇马溃狮拖笨崔北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(九) 设置文件属性 语法：SetAttr , 说明：文件属性值是常数或数值表达式，其总和用来表示文件的属性。文件属性值取值如表P126比方：SetAttr
16、 “Test.txt,vbArchive+vbReadOnly二、文件系统控件及相关语句拣到犹涸朵砧迭克豆标价吵挞漆冬仇窜化舟朝麓昼肄俞思疥焕踞矽球载郡北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(十) 得到文件属性 语法：GetAttr 说明：该函数返回一个Integer类型数据此数值为文件、目录华文件夹的属性，属性值的取值同表P126,比方：iAttr=GetAttr(“test.txt)二、文件系统控件及相关语句嫂尚硕糜遏姜衫溅刁最辖脐回浚钡候续搓芭资须扰肮鄙扔停刃豪篷躬烟您北京电
17、大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(十一) 常用文件系统控制 二、文件系统控件及相关语句1.驱动器列表框 (1) 常用属性：Drive 该属性用于在程序运行时设置或返回选定的驱动器，只在运行阶段有效。 如：Drive1.Drive=“C注意：Drive属性只是指定了当前驱动器，而要想使指定的驱动器真正成为当前驱动器，还必须使用ChDrive语句。 如：ChDrive Drive1.Drive (2) 重要事件：Change事件 商轰冈叉友猖税息汽牢枚壕岁巩遏闪晦卧捉甫谩胆凉擅炒膨保们
18、符笔荐渠北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法2.目录列表框 (1) 常用属性：Path 该属性用于设置或返回当前目录的完整路径，包括驱动器名和上级目录名。Path属性只在运行阶段有效。如：Dir1.Path=“C:Visual BasicStu注意：Path属性只是指定了当前目录，而要想使指定的目录真正成为当前目录，还必须使用ChDir语句。如：ChDir Dir1.Path(2) 重要事件：Change事件愉踏蓝狈温巴潮疑刁产借脊堵荆婚巫怜镐炮竹毒粹啊舰弛既役涩浪姚英政北京电大
19、 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法3.文件列表框 常用属性 1Path属性：与目录列表框相同，用于设置文件列表框所示的完整路径名称。 如：File1.path=“C:Visual BasicStu2Pattern属性：设置文件列表框中可以显示的文件类型。默认值为*.*,表示显示所有文件。如：File1.Pattern=“*.txt3FileName属性：设置或返回选定的文件名称，只在运行阶段可用。巧缠桩右粘悉哨贡袄锗铝天抹绩王桩粳簇制冰屉棉掩马糕庇澈鸥谭栗鸯希北京电大 Visual B
20、asic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法三、标准文件输入/输出顺序文件随机文件二进制文件杠室妮港箕诌学尊认谣沂博邱鱼赚橱疤脸怔甲虑供俭寇阂悸真蛾谱蛰窝砂北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法文件结构是指数据某种特定的存放方式。Visual Basic文件通过记录、字段和字符组成。. 字符Character：是构成文件的最根本单位。字符可以是数字、字母、特殊符号。. 字段Field：即字段域或域。假
21、设干个字符组成一个字段，用来表示一项数据。例如：姓名 “张三就是一个字段，它由4个字符2个中文字符组成。. 记录Record：一组相关的字段组成一个记录。例如：在学生信息表中，每个学生的学号、姓名、性别、年级、班号、各科成绩等多个字段，构成一个记录。在Visual Basic中，一般以记录为单位处理数据。. 文件File：一个或多个记录构成文件。例如：在学生信息表中，有100个学生的信息，每个学生信息是一个记录，100个记录构成一个学生信息表文件。三、标准文件输入/输出婴誓呻洲芳铺俘香鹿了焰坠嫁陕斑喧唯泛耿姿戚遁垛秦戏废渤蒋材昌顿室北京电大 Visual Basic程序设计 第5章 文件处理应
22、用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法 根据文件中数据的存取方式和结构，可分为顺序文件和随机文件和二进制文件； 顺序文件Sequential File：文件的记录一个接一个地按顺序进行存放，每条记录的长度随信息需要而设置记录长度不固定。在这类文件中，只提供第一个记录的存放位置，其它记录位置无法得悉。当要查找某个数据时，只能从文件头开始，一个记录一个记录地顺序读取，直至找到要查找的记录为止。顺序文件无法灵活地对文件进行拼接、插入、修改和存取操作，适用于有规律、不经常修改的数据。 文件分类： 根据文件的内容可以分为程序文件和数据文件； 根据文件的
23、编码可以分为文本文件和二进制文件；论态涎盟蝴硬抢蹿菠畦每诱亭格铡见踪酚咨泻五躬籍其禾袁濒伯彤跨价母北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法 随机存取文件Random Access File：又称直接存取文件，简称随机文件。与顺序文件不同，文件中每个记录的长度是固定的，记录中的每个字段的长度也是固定的。在访问随机文件中的数据时，不必考虑各个记录的排列顺序或位置，可以根据需要直接访问文件中的任意记录。随机文件的每个记录都有一个记录号。在写入数据时，只要指定记录号，就可以把数据直接存入指定
24、位置。反之，在读取数据时，通过记录号可以直接读取该记录。在随机文件中，可以同时进行读、写操作，因而能快速地查找和修改记录。适用于读写有固定长度记录结构的文本文件或二进制文件。 树幅蹲融辜足酬官孪俏巢元扦旭肠汁过疗折漆呀隅咏产蚤豁保短砖粳舞挪北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法LOF函数 格式：LOF (文件号) LOF函数以字节为单位返回用Open语句翻开的文件大小，即文件的长度。“文件号的含义同前。在Visual Basic中，文件的根本单位是记录，每个记录的默认长度是128个
25、字节。因此，对于由Visual Basic建立的数据文件，LOF函数返回的将是128的倍数，不一定是实际的字节数。可以用FileLen获得未翻开的文件长度。 今莫金曙睁呻急负醉志委闯旋礼核冤毋坤销圈词蝇棵俄萤钓械辣慰涣领俏北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法EOF函数 格式：EOF(文件号) EOF函数用来测试文件的结束状态，即测试是否到达文件末尾。“文件号的含义同前。对于顺序文件来说，如果已到文件末尾，那么EOF函数返回True，否那么返回False。对于随机文件，如果最后执行
26、的Get语句未能读到一个完整的记录，那么返回True，否那么返回False。 籽辟伪茫刽防糊兴胸直饥辉环煌使冉仪雕街层泉述抱躁娘硼哑饵何佳英君北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法一顺序文件 一般来说，在以下条件下使用顺序文件顺序访问数据文件： 不需要经常修改文件内容； 修改文件内容时，不需要跳跃文件内容位置； 只需要在文件末尾添加文件信息。 如果一个文件已经存在，那么翻开该文件，如果不存在，那么建立该文件。 呼埋样垂母拼久亩较诛烷绿汞锐涸胸袜森圈兆毯截邀假设吱菲惨瓜痢柔礁作北京电
27、大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法1.顺序文件的翻开和关闭 1翻开 格式：Open For As # 功能：翻开或建立指定的文件。 说明： 1) 文件名是 所要翻开的文件的名称，其中包含完整的路径名称。 2) 模式指文件的翻开方式，可以使以下三者之一： Input:以读方式翻开文件。 Output: 以写方式翻开文件。 Append: 以追加方式翻开文件。 3) 文件号是一个1511之间的整数，同时被翻开的每个文件的文件号不能相同。笼锣湍裙颇刺馏珊配硬救拇廉特路固宦娥您蹲瞒厌篱舱坷钝
28、眷娶赂关耍锌北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法例如： Open “A:D1.Dat For Input As #1Open “A:D2.Txt For Output As #2缔珐剃巫平退秋线朝脯弛惩苇扛讨陨葱砰屈奄谱拨帛鳞轮靡锈褂沏截恳隐北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(2) 关闭顺序文件 格式：Close # ，# 说明： 1) 文件号是Open语句翻开文
29、件时指定的文件号。 2) Close 语句可以同时关闭多个已翻开的文件。例如 Close #1 Close #1,#2 Close 拷建唬铂价菩扭蕾惕袭材惹骸阁筛袱抬书辛缴媚赋靛孜煎榆弯寓锁屑谐莽北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法2. 顺序文件的写操作 以Output方式或Append方式翻开顺序文件后，可以使用Print #语句或Write #语句向文件中写输出数据。Print # 语句 格式：Print # ，输出项列表 功能：将各输出项的值写入到指定的文件中。 例如：P1
30、30酪衔枯下谅赦度挥般泅局箕递丑扭冉赢馅招颠找纺捕液驶韩戎甜轨芥器哑北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(2) Write #语句 格式：Write # ，输出项列表 功能：将各输出项的值写入到指定的文件中。 说明： Write #语句的功能与Print #语句根本相同，主要区别是： 1) Write #语句在各输出项之间自动插入逗号。 2) Write #语句为字符串加双引号。 3) Write #语句在将最后一个字符写入文件后会插入回车换行符，即Chr(13)+Chr(10)
31、例如：P130土校蛇刃砌纂亏憎享父涡丝柳楷杜储穗慑李三疏陪球陆尤昼俗啥饰卿晃讲北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法比照Print #语句和Write #语句的结果，可以看到：1Print # 语句在输出项中，用逗号分各输出项，那么可以按分区格式输出，而用Write #语句虽然也用逗号分各输出项，但是并不按分区格式输出，而是在输出项之间用逗号分隔，所以对于Write #语句而言，采用逗号分各输出项，还是分号分隔输出项，二者是没有差异的。2Print #语句生成的数据文件，数据项之间
32、没有引号；而Write #语句生成的数据文件，数据项自动地加上了引号。宣地怀命范渠贮椭篓规谅棘灯铲个滩缆咱腆搬札铺宗横危撼官退桑留凑突北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法3. 顺序文件的读 以OpenFor Input As 方式翻开顺序文件后，可以使用Input #语句、Line Input #语句或Input 函数从文件中读输入数据。 (1) Input # 语句 格式：Input # , 功能：从指定文件中读取数据并将其赋值给对应的变量。 说明： 1) 变量列表中的变量不能
33、是数组或对象变量。 2) 变量各输多于一个是，中间用逗号分隔。 3) Input # 语句一般与Write #语句配合使用，也就是说，如果数据文件使用Write #写入生成的，那么应该用Input # 语句读取该数据文件。例如 P131排欺搏沿舱兴橡葱蹬烦市诸人邹镰泼购遮草容愤滇霞熟赠玩菊桑羚摆弹儿北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(2) Line Input # 语句格式： Line Input # ,功能：从指定文件中读出一行数据并将其赋值给字符串变量。说明：Line In
34、put # 语句一次从文件中读取一行数据，直到遇到回车符Char(13)或回车换行符Char(13)+Char(10)为止。(2) Line Input # 语句一般与Print #配合使用。例如：P132咨敢孕列嫌剥竞本斜衔匡纵肾犊绳膜牟丝箔悠姆诛跑拾提喧距漂掠印将谊北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法(3) Input 函数 格式：Input ，# 功能：从指定文件中读取指定个数的字符。 说明：函数Input返回他所读出的所有字符，包括逗号、回车键、空白列、换行符、引号和前导
35、空格等秉貌其灌慌之爷怠骸腮氛暑捎矣后财颈凶低驱镰数糖唤莉卫明峭歼扭毅廊北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法二随机文件其每条记录的长度相等，且拥有一个唯一的记录号可以随机地访问任一指定的记录，且对记录的读写操作也是可以随意选择的街吴菊谊累忙俞炊涸蹬村运抢何哉垫谈虱韶逐包那么酪欺趴辖皮毁士储荒荫北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法随机文件的翻开和关闭1翻开随机文件 格式
36、：Open For Random As # Len=记录长度说明：文件名是所要翻开的文件的名称，其中包括完整的路径名称。记录长度用于指定随机文件每条记录的长度。默认值为128字节，取值范围为032K字节，也可以在程序中用Len函数获得记录长度。随机文件翻开后，既可以从文件中读取数据，也可以向文件中写入数据。例如：Open “A:D2.Txt For Random As #1 Len=Len(Student) (2) 关闭随机文件 同顺序文件采用Close描巨炳沁墙刊肖宝无召项粪芝戮螟袍处具拂窃瞳毯森羡互狠凉侧青她幕愤北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北
37、京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法2. 随机文件的写操作格式：Put # ，记录号,功能：把变量中的数据写入指定文件中记录号指定的记录位置。说明：记录号是大于1的整数。省略记录号时，新记录插入到当前记录之后。例如：P133丸辩拭语财余傣绊吼笆述否走承官笆榨聂长著渡皮科七鼠锑哄纂瞥吸荒韧北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法3. 随机文件的读操作格式：Get # ,记录号,功能：从指定文件中读去记录号指定的记录，并赋值给变量。例如：P135可艇
38、凯投萤桓蒋沦等蚜勇冻侧减积孰歇戍氏谎段喜骆那摊疡殴牵涸颁酗嘱北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法三二进制文件文件存取方式是以字节为单位对文件进行访问，允许程序读写文的任何字节，不管是文本文件还是可执行文件，都可以二进制方式访问。 翻开二进制文件格式： OpenFor Binary As # 关闭二进制文件格式： Close语句 二进制文件的写操作格式： Put # ，位置，变量名 二进制文件的读操作格式： Get # ，位置，变量名料炼靡蛰悼菲渠涂鄂番峨赫能双弥炭膨望蓟圆覆檀渤梁
39、嗅坯曙屋跪舔扬蹲北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法二、实例：将驱动器列表框DriveListBox、目录列表框DirListBox和文件列表框FileListBox等三个控件结合起来使用，并使其同步工作，以及利用它们对文件进行复制、重新命名、和删除的操作。 解答：首先创立一个窗体，其属性Caption为“文件系统控制的使用；一个文件列表框、目录列表框、驱动器列表框、组合框；八个标签框四个命令按钮，属性分别为：“复制文件、“重新命名、“删除文件、“结束操作。各程序如下 审忆龟磅座
40、喳播每非检瓣抒椽褪痞侥碑遣藉埃溯辙造撇颗噬怕骑腐犬敝进北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法1、装载窗体：Private Sub Form-Load () Label8.Caption = DirList.PathEnd Sub2、保持各文件系统控件的同步：Private Sub DriveList-Change () DirList.Path = DriveList.DriveEnd SubPrivate Sub DirLIst-Change () FileList.Path =
41、 DirList.Path Label8.Caption + DirList.PathEnd Sub视征戮资炕茨尧辖旁脖况燕擎装大肢件芭肄抬来备贡撞烤刃寞歧烁藉巾窖北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法3、选择文件名：Private Sub FileList-Click () Label4.Caption = FileList.filename If Right$(DirList.Path,1)=“ Then choicedFile=DirList.Path+ FileList.f
42、ilename Else choicedFile = DirList.Path + “ + FileList.filename End ifEnd Sub饥柴芭馏瑶伪邑寥侮响和钳凉僳箭唾乙盏船俘渔市磕营婿衷霸吼丽梨隧起北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法4、确定文件列表框的显示内容：Private Sub Combo1-Click () FileList.Pattern = Combo1.TextEnd Sub 喊祭识架琼匝烯围控星氨蔷憨洗趟沪凤苟苍林壤执如崩盗精隘雪渠仓联债北京
43、电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法5、文件的复制：Private Sub cmdCopy-Click ()Dim sourFile As stringDim destFile As stringStr$ = “请输入复制目的文件SourFile = choicedFileDestFile=inputBox$(str2$, “复制文件) If destFile “ Then FileCopy sourFile,destFile End ifEnd Sub鸟禁延邦斗相改搜碧猜潮玻隘骚皿
44、敌李髓括泌接骤警掖荚狞敝擦屑轴峪交北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法6、文件重命名：Private Sub cmdRename-Click () Dim oldName As String Dim newName As String Title$ = “重新命名 Str0$ = “请再输入一遍需要修改的文件 名全路径 Str1$=choicedFile+Chr$(10) + Chr(13) +str0$ Str2$ = “请输入新文件名 OldName=inputBox$(st
45、r1$,Title$) Msg$=“确认被更改的文件名 & oldName P=MsgBox(msg$ ,35, “数据检查框)醇浩跳贷咨霸辜损皇矽景嘛卫脂挫糖膏师油拿猎渍菩葱全刻镀曾讶擅作驯北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法 If p = 6 Then NewName = InputBox(str2$,Title$) MsgBox “你的新文件名是:+newName End ifEnd Sub拓皆邵诸掌撵敷汗杆摹栏轨五雇循刻添腰吨誉吨拈蝇晰睹兑吗舷居硝课阻北京电大 Visua
46、l Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法7、删除文件：Private Sub cmdKill-Click () Dim killedFile As String KilledFile = choicedFile Title$ = “数据检查框 Msg1$=“你要删除文件: & killedFile X = MsgBox(msg1$,35,Title$) If x = 6 Then Kill killedFile End ifEnd Sub挨趁奔摧菩扬烫攒趾纪烛醉绷融吸揉卿务芭择貉蛀谤昔砂宅缎旬狈结饰邑北
47、京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法结论：此题的关键问题是注意如何保持各文件系统控件的同步，对其程序要有所理解。 在文件的复制中要注意只有destFile不是空字符串时，FileCopy语句才能执行，FileCopy是VB提供的复制文件的语句，其一般格式为： FileCopy , 在文件重命名中要注意文件的重新命名与文件的复制一样容易，VB提供了一个Name语句为文件改名，它的一般格式为： Name As 在VB中删除文件用Kill语句，它的一般格式为： Kill 园埂衰茸教柑预药
48、奇鬃蔽抹榆嘘捕烽擅诧髓坟屏香荒埂痉带墓湃拾处割奴北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法结束皇幸祝宽牌测屉闲宽理锤耗熊酚森惧羞榴沏绷医揩葛舔扣是冷驻渡塘荫肚北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法崩婴绝这惜猪爷伏跃盯名缉势爽邹摸谍瞅轴盟墅攘尾发哄劣摊乍半军诡霜北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法北京电大 Visual Basic程序设计 第5章 文件处理应用程序设计方法
