计算机基础与Visual Basic程序设计 教学课件 作者 978 7 302 28844 2 第十一章 文件.pptVIP

计算机基础与Visual Basic程序设计 教学课件 作者 978 7 302 28844 2 第十一章 文件.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第11章 数据文件 第11章 数据文件 文件是存储在外部介质(如磁盘)上的以文件名标识的数据的集合。通常由一组存放在磁盘上的相关字节组成。当应用程序要访问文件时,必须自己决定文件中字节的意义(比如,表示字符、数据记录、整数、字符串等等)。 存储在磁盘上的文件称为磁盘文件,与计算机相连的设备称为设备文件。这些文件都不在计算机内,统称为外部文件。 一、文件及其结构 文件:存储在外部介质上数据的集合。按名存取 磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位,它由一组具有共同属性相互关联的数据项组成。 虽然这3种文件访问的数据类型不同,但应用程序访问它们的步骤却相似: ① 使用Open语句打开文件,并为文件指定一个文件号。对文件进行任何I/O操作之前,都必须经过这步操作。 ② 从文件中读取部分或全部数据到变量中。 ③ 对变量中的数据进行处理。 ④ 将处理后的数据保存回文件中。 ⑤ 使用Close语句关闭文件。如果没有关闭文件,则会导致文件中部分或全部信息丢失。 (2) 文件号 1~511,可以用FreeFile函数获得下一个可利用的文件号。 (3) 记录长度 小于或等于32767的整数,它指定数据缓冲区的大小。 例如,打开C:\VB\SCORE,供写入数据,指定文件号为#1。 打开文件的真正含意: (1)并不是把文件内容显示出来,而是读文件或显示文件内容的必经步骤; (2)打开文件并不一定只是为了读文件内容而打开,其实写文件或新建文件之前都要把对应的文件打开。 如何打开由用户任意指定的文件: (1)用打开/另存为对话框; (2)用文件列表框/目录列表框/驱动器列表框 ★ 要注意OPEN语句与它们分工上的不同 1. 顺序文件读操作 从现存文件中读入数据,应以顺序Input方式打开该文件。然后使用 Input# 语句、Line Input# 语句和Input( )函数读入到程序变量中。 使用格式如下: 格式一:Input # 语句 INPUT #文件号 , 变量列表 把读出的每个数据项分别存放到所对应的变量,从文件中读出数据时,凡是遇到文件中的逗号、空格或回车符便认为是一个数据项的结束。 Eof 函数 Eof 函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾,Eof 函数返回TRUE(-1),否则返回FALSE(0)。 从文件中读数据的常见循环方式: Do While Not Eof(文件号) 读文件及其它语句 Loop 例2:把文件文件datain.txt的内容全部读出并显示在窗体中: FName= App.Path \ datain.txt Open FName For Input As #1 Do While Not Eof(1) Input #1 , a Print a Loop Close #1 格式二:Line Input # 语句 LINE INPUT #文件号 , 字符串变量 功能:从顺序文件中读取一整行字符到后面指定的字符串变量中。 例:把程序文件夹下面的文本文件myfile.txt的内容显示在一个多行文本框中: FName= App.Path \ myfile.txt Open FName For Input As #1 Do While Not EOF(1) Line Input #1 , s Text1.Text = Text1.Text + s + vbCrLf Loop Close #1 格式三:Input函数: INPUT$( N , #文件号) 从指定文件中读取N个字符的字符串,作为函数的返回值 例:把程序文件夹下面的文本文件myfile.txt的内容一次性读出并显示在多行文本框中: FName= App.Path \ myfile.txt Open FName For Input As #1 Text1.Text = Input( LOF(1) , 1) Close #1 例:把程序文件夹下面的文本文件myf

您可能关注的文档

文档评论(0)

时间加速器 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档