[小学教育]vb 第7章.ppt

  1. 1、本文档共74页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[小学教育]vb 第7章

第7章 文 件 7.1 文件的概述 7.2 顺序文件的读写操作 7.3 通用对话框 7.4 文件系统控件 7.1 文件的概述 文件的概念 将需要保留的信息以文件的形式存放在磁盘上 存储在外部介质(如磁盘)上的数据的集合 文件的分类 按存储内容 程序文件、数据文件 按组织形式 文本文件、二进制文件 文本文件 以字符的ASCII码形式存储 二进制文件 数据的存储方式与其在内存中的存储形式完全相同 记录的概念 例:记录学生相关信息 一名学生信息由:学号、姓名和成绩3项数据构成,称为1条记录;该记录反映此学生的具体信息; 学号、姓名和成绩是构成记录的基本数据项,称为字段或域; 将50个记录(即50名学生的信息)存放在一个文件中,则该文件就是一有关学生信息的数据文件; 文件的访问模式 顺序访问 — 适用于数据连续存放的文 本文件; 随机访问 — 适用于记录长度固定的文 本文件或二进制文件; 二进制访问 — 适用于任意结构的文件。 7.2 顺序文件的读写操作 写操作: 【例7.1】向顺序文件中写入数据。用户在文本框中输入长度不超过20的字符串后,单击“保存”按钮将字符串输出到文件a.dat中。 程序代码 Private Sub cmdSave_Click () Open a.dat For Output As #1 Print #1, txtInput.Text Close #1 MsgBox 保存完毕 End Sub 说明 对文件进行操作时,必需首先打开该文件 使用Open语句打开文件 Open 文件名 For 打开方式 As #文件号 Open a.dat For Output As #1 以“写”方式打开文件a.dat 使用Output方式打开文件时,若指定的文件不存在,Open语句将首先创建该文件,然后再打开它 以Output方式打开的文件,其原有内容全部丢失 在完成读写操作之后必须及时将文件关闭,以避免数据丢失和破坏 使用Close语句关闭文件 Close [文件号] 使用 Print # 语句将格式化数据写入顺序文件 Print #文件号, [输出项列表][,|;] 程序运行结束后,系统在当前文件夹中建立了一个名为a.dat的顺序文件; 文件内容可以通过Windows中的记事本进行查看。 【例7.2】从顺序文件中读取数据。在例7.1的基础上添加显示功能。单击“显示”按钮后将已保存过的文件内容输出到标签中。 程序代码 Private Sub cmdShow_Click () Open a.dat For Input As #1 Line Input #1, txtstr$ lblOutput.Caption = txtstr$ Close #1 End Sub 说明 使用Input方式打开文件时,要求该文件必须已经存在,否则将产生文件错误 使用Line Input #语句从文件中读出一行数据 Line Input #文件号, 字符型变量名 遇回车符(Chr$(13))、换行符 (Chr$(10))或文件结束符时结束一行的“读”操作; 读出字符序列中不包括回车或换行符; 再次执行Line Input #语句时,将从新的一行 开始读取; 通常情况下,Print #语句与Line Input #语句匹配使用。 使用Input #语句以数据项为单位对文件进行读取 Input #文件号, 变量列表 按照变量列表中所提供的变量个数及类型,从文件中依次读取相应数目的数据项并赋给各变量; 文件中各数据项的排列顺序及数据类型必须与变量列表中的各变量一一对应匹配; Input #语句常与Write #语句配合使用。 【例7.3】程序运行时在列表框中显示当前可使用的屏幕字体,当选择其中一项或多项后单击“保存”按钮,则将所选内容写入文件font.dat中。 程序代码 Private Sub Form_Load () For i = 0 To Screen.FontCount – 1 lstFont.AddItem Screen.Fonts(i) Ne

文档评论(0)

qiwqpu54 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档