文件制作柳淑花4.pptVIP

实训十二 文件操作 一、实训目的 1、掌握建立顺序文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 2、掌握建立随机文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。 3、学会运用与文件操作相关的函数和语句。 二、实训内容 1、 顺序文件的读写 【实训要求】 建立一个包含4位学生姓名、年龄、专业3项数据的文本文件，分别用 Print 与Write 语句写入到 D:盘根目录下的 t1.txt 和 t2.txt 文件内，然后再将文件内容分别读入到文本框Text1 和 Text2中，程序的运行结果如图所示：sx12_1.VBP 【实训步骤】 第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 “位 同学的姓名：) age = InputBox(输入 第 i 位同学的年龄：) spe = InputBox(输入 第 i 位同学的专业：) ‘写文件 Next ‘关闭文件 End Sub 编写读文件按钮的 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 2、 顺序文件的添加 将上面内容1中的文本文件 t2.txt 合并到 t1.txt 文件中，并通过文本框 Text1 和 Text2 分别显示合并前后 t1.txt 文件的内容。 sx12_2.VBP 运行界面如图所示： 3、 顺序文件的应用 用“记事本”建立一个数据文件 “d:\data.dat”，文件格式如左图：（可输入任意多个数） 试编写程序，把上述文件中的数据读入后进行排序，然后按从小到大的顺序把所有数值写入一个新文件 “d:\newdata.dat”中。 Sx12_3.vbp 运行界面如右图所示： 4、 随机文件的读写 实训要求： 在D：盘根目录下，建立一个通信录的随机文件 PhoneBook.txt，内容包括：姓名、电话、地址和邮编，用文本框输入数据。单击“添加记录”按钮时，将文本框数据写入文件，单击“显示记录”按钮时，将文件中所有记录的内容显示在立即窗口。 对象属性设置后的界面如 右图所示： sx12_4.VBP 编写代码： 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 Command1 的Click 事件过程： Private Sub Command1_Click() xdata.name = Trim