1 / 15

实验十一 文件操作

实验十一 文件操作. 一、实验目的 1 、掌握建立顺序文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 2 、掌握建立随机文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 3 、学会运用与文件操作相关的函数和语句。 二、实验内容 1 、 顺序文件的读写. 【 实验要求 】.

paki-garrett
Download Presentation

实验十一 文件操作

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 实验十一 文件操作 一、实验目的 1、掌握建立顺序文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 2、掌握建立随机文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 3、学会运用与文件操作相关的函数和语句。 二、实验内容 1、 顺序文件的读写

  2. 【实验要求】 建立一个包含4位学生姓名、年龄、专业3项数据的文本文件，分别用 Print与Write 语句写入到 D:盘根目录下的 t1.txt 和 t2.txt 文件内，然后再将文件内容分别读入到文本框Text1 和 Text2中，程序的运行结果如图所示：8_zy1.vbp

  3. 【实验步骤】 第1步：启动VB，打开一个新的标准工程。 第2步：在窗体上添加二个标签（Label1、Label2）、二个文本框、二个命令按钮。 第3步：编写写文件按钮的 Click 事件过程： Private Sub Command1_Click() Dim name$, age%, spe$ Open "d:\t1.txt" For Output As #1 Open "d:\t2.txt" For Output As #2 For i = 1 To 4 name = InputBox(“输入”& “第”& i & “位 同学的姓名：")

  4. age = InputBox("输入" & "第" & i & "位同学的年龄：") spe = InputBox("输入" & "第" & i & "位同学的专业：") ‘写文件 Next ‘关闭文件 End Sub

  5. 编写读文件按钮的 Click 事件过程： Private Sub Command2_Click() Dim str1$, str2$ For i = 1 To 4 Line Input #1, str1 Line Input #2, str2 Text1 = Text1 & str1 & vbCrLf Text2 = Text2 & str2 & vbCrLf Next Close End Sub

  6. 2、 顺序文件的添加 将上面内容1中的文本文件 t2.txt 合并到 t1.txt 文件中，并通过文本框 Text1 和 Text2 分别显示合并前后 t1.txt 文件的内容。8_zy2.vbp 运行界面如图所示：

  7. 3、 顺序文件的应用 • 用“记事本”建立一个数据文件 “d:\data.dat”，文件格式如左图：（可输入任意多个数） • 试编写程序，把上述文件中的数据读入后进行排序，然后按从小到大的顺序把所有数值写入一个新文件 “d:\newdata.dat”中。8_zy3.vbp • 运行界面如右图所示：

  8. 4、 随机文件的读写 实验要求： 在D：盘根目录下，建立一个通信录的随机文件 PhoneBook.txt，内容包括：姓名、电话、地址和邮编，用文本框输入数据。单击“添加记录”按钮时，将文本框数据写入文件，单击“显示记录”按钮时，将文件中所有记录的内容显示在立即窗口。 对象属性设置后的界面如 右图所示： 8_zy4.vbp

  9. 编写代码： Private Type persdata ‘声明自定义类型 name As String * 10 phon As String * 12 address As String * 20 postcd As String * 10 End Type Dim xdata As persdata ‘声明自定义类型的数据 Private Sub Form_Load() ‘打开随机文件 End Sub

  10. Command1 的Click 事件过程： Private Sub Command1_Click() xdata.name = Trim(Text1.Text) xdata.phon = Trim(Text2.Text) xdata.address = Trim(Text3.Text) xdata.postcd = Trim(Text4.Text) '向文件中写入数据 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub

  11. Command2 的Click 事件过程： Private Sub Command2_Click() reno = / Len(xdata) '返回打开文件的字节数 i = 1 Do While Get #1 , i, xdata Debug.Print xdata.name, xdata.phon, xdata.address, xdata.postcd i = i + 1 Loop End Sub

  12. 程序运行后的界面如下图所示：

  13. 5、 文件系统控件的使用 • 按下列要求设计程序： 8_zy5.vbp 在窗体上添加6个标签、2个文本框、1个组合 框（style属性为2）、2 个命令按钮、1个驱动器 列表框、 1个目录列表框、 1个文件列表框。 • 界面如图：

  14. 要求： （1）程序运行后，可以在“当前目录”下面的标签中列出当前目录； （2）在组合框中有三项：所有文件（*.*）、“文本文件(*.txt)、”WORD文档(*.doc)”，在文件列表框中列出的文件类型应与组合框中显示的文件类型相同； （3）使三个文件系统控件同步显示； （4）单击文件列表框中的一个文件名，该文件名即可在“文件名称”下的文本框中显示出来； （5）单击“读文件”按钮，可使“文件名称”下的文本框中所显示的文件（文本文件）的内容显示在右面的文本框中，并可对文本进行编辑；同时调用记事本打开该文件。 （6）单击“保存”按钮，编辑后的文本文件的内容可保存到由当前目录指定的路径和由“文件名称”下的文本框中指定的文件中。

  15. 运行界面如图所示：

More Related