实训十二

第1页第9章文件制作：柳淑花2020年2月24日实训十二文件操作一、实训目的1、掌握建立顺序文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。2、掌握建立随机文件的方法，以及读数据、写数据的方法，并能对其数据进行修改、追加、删除等操作。3、学会运用与文件操作相关的函数和语句。二、实训内容1、顺序文件的读写第2页第9章文件制作：柳淑花2020年2月24日【实训要求】建立一个包含4位学生姓名、年龄、专业3项数据的文本文件，分别用Print与Write语句写入到D:盘根目录下的t1.txt和t2.txt文件内，然后再将文件内容分别读入到文本框Text1和Text2中，程序的运行结果如图所示：sx12_1.VBP第3页第9章文件制作：柳淑花2020年2月24日【实训步骤】第1步：启动VB，打开一个新的标准工程。第2步：在窗体上添加二个标签（Label1、Label2）、二个文本框、二个命令按钮。第3步：编写写文件按钮的Click事件过程：PrivateSubCommand1_Click()Dimname$,age%,spe$Opend:\t1.txtForOutputAs#1Opend:\t2.txtForOutputAs#2Fori=1To4name=InputBox(“输入”&“第”&i&“位同学的姓名：)第4页第9章文件制作：柳淑花2020年2月24日age=InputBox(输入&第&i&位同学的年龄：)spe=InputBox(输入&第&i&位同学的专业：)‘写文件Next‘关闭文件EndSub第5页第9章文件制作：柳淑花2020年2月24日编写读文件按钮的Click事件过程：PrivateSubCommand2_Click()age=InputBox(输入&第&i&位同学的年龄：)spe=InputBox(输入&第&i&位同学的专业：)‘写文件Next‘关闭文件EndSub第6页第9章文件制作：柳淑花2020年2月24日2、顺序文件的添加将上面内容1中的文本文件t2.txt合并到t1.txt文件中，并通过文本框Text1和Text2分别显示合并前后t1.txt文件的内容。sx12_2.VBP运行界面如图所示：第7页第9章文件制作：柳淑花2020年2月24日3、顺序文件的应用用“记事本”建立一个数据文件“d:\data.dat”，文件格式如左图：（可输入任意多个数）试编写程序，把上述文件中的数据读入后进行排序，然后按从小到大的顺序把所有数值写入一个新文件“d:\newdata.dat”中。Sx12_3.vbp运行界面如右图所示：第8页第9章文件制作：柳淑花2020年2月24日4、随机文件的读写实训要求：在D：盘根目录下，建立一个通信录的随机文件PhoneBook.txt，内容包括：姓名、电话、地址和邮编，用文本框输入数据。单击“添加记录”按钮时，将文本框数据写入文件，单击“显示记录”按钮时，将文件中所有记录的内容显示在立即窗口。对象属性设置后的界面如右图所示：sx12_4.VBP第9页第9章文件制作：柳淑花2020年2月24日编写代码：PrivateTypepersdata‘声明自定义类型nameAsString*10phonAsString*12addressAsString*20postcdAsString*10EndTypeDimxdataAspersdata‘声明自定义类型的数据PrivateSubForm_Load()‘打开随机文件EndSub第10页第9章文件制作：柳淑花2020年2月24日Command1的Click事件过程：PrivateSubCommand1_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=EndSub第11页第9章文件制作：柳淑花2020年2月24日Command2的Click事件过程：PrivateSubCommand2_Click()reno=/Len(xdata)'返回打开文件的字节数i=1DoWhileGet#1,i,xdataDebug.Printxdata.name,xdata.phon,xdata.address,xdata.postcdi=i+1LoopEndSub第12页第9章文件制作：柳淑花2020年2月24日程序运行后的界面如下图所示：第13页第9章文件制作：柳淑花2020年2月24日5、文件操作控件的使用按下列要求设计程序：sx12_5.VBP在窗体上添加6个标签、2个文本框、1个组合框（style属性为2）、2个命令按钮、1个驱动器列表框、1个目录列表框、1个文件列表框。界面如图：第14页第9章文件制作：柳淑花2020年2月24日要求：（1）程序运行后，可以在“当前目录”下面的标签中列出当前目录；（2）在组合框中有三项：所有文件（*.*）、“文本文件(*.txt)、”WORD文档(*.doc)”，在文件列表框中列出的文件类型应与组合框中显示的文件类型相同；（3）使三个文件系统控件同步显示；（4）单击文件列表框中的一个文件名，该文件名即可在“文件名称”下的文本框中显示出来；（5）单击“读文件”按钮，可使“文件名称”下的文本框中所显示的文件（文本文件）的内容显示在右面的文本框中，并可对文本进行编辑；同时调用记事本打开该文件。（6）单击“保存”按钮，编辑后的文本文件的内容可保存到由当前目录指定的路径和由“文件名称”下的文本框中指定的文件中。第15页第9章文件制作：柳淑花2020年2月24日运行界面如图所示：