vb实验10实验报告1

PAGE第3页共3页电子信息工程学系实验报告成绩：课程名称：面向对象程序设计成绩：指导教师（签名）：实验项目名称：实验10文件实验时间：2011.12.12指导教师（签名）：班级：电信092姓名：蓝雪英学号：910706231实验目的:理解System.IO对象模型2)熟练掌握使用File和Directory对象操作文件的方法3)熟练掌握DriveListbox、DirListbox和FileListbox控件使用方法4)理解流的概念5）掌握使用StreamReader和StreamWriter对象读写文本文件的方法实验环境:WindowsXPVisualStudio.NET2003实验内容及结果分析:查找并替换文本文件的内容内容：使用StreamReader对象按行读取文本文件数据，将查找内容用替换内容替换，再通过StreamWriter对象将替换后的内容写回文件。过程：1、新建一个“VisualBasic项目”并命名为“Exe1001”。2、界面设计由一个显示选择的文件的文本框（txtFileName）、一个查找内容的文本框（txtFindText）、一个替换内容的文本框（txtReplaceText）、一个显示打开的文件内容的多行文本框（txtContent）、三个标签（Label）和两个按钮（btnSelFile、btnReplace）组成。另外，为能打开一个文件，还要添加一个打开文件对话框控件OpenFileDialog1。界面安排如图1所示。图1界面设计3、编写代码为了能够使用StreamReader和StreamWriter对象提供的方法，应该在模块中引入System.IO名称空间，即在代码最前面添加如下代码：ImportsSystem.IO双击“打开”按钮添加如下代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbtnselfile.ClickOpenFileDialog1.InitialDirectory="c:\"OpenFileDialog1.Filter="文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex=1OpenFileDialog1.RestoreDirectory=TrueIfOpenFileDialog1.ShowDialog=DialogResult.OKThentxtfilename.Text=OpenFileDialog1.FileNameEndIfIftxtfilename.Text<>""Thenreadfile(txtfilename.Text,txtcontent)EndIfEndSub双击“开始替换”按钮添加如下代码：PrivateSubbtnreplace_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbtnreplace.ClickIftxtfindtext.Text=""ThenMsgBox("请输入查找字符串。",MsgBoxStyle.Critical)EndIfTryDimfsAsNewFileStream(txtfilename.Text,FileMode.Open)DimsrAsNewStreamReader(fs)DimtempstrAsStringtempstr=Path.GetTempFileNameDimswAsNewStreamWriter(tempstr)DimsAsStringDos=sr.ReadLine()Ifs<>NothingThens=s.Replace(txtfindtext.Text,txtreplacetext.Text)sw.WriteLine(s)ElseExitDoEndIfLoopWhiles<>Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtfilename.Text)File.Move(tempstr,txtfilename.Text)Iftxtfilename.Text<>""Thenreadfile(txtfilename.Text,txtcontent)EndIfMsgBox("替换完成。",MsgBoxStyle.Information)CatchexAsExceptionMsgBox(ex.Message,MsgBoxStyle.Critical)EndTryEndSub显示文本文件的通用过程“readfile”代码：PrivateSubreadfile(ByValfilenameAsString,ByValtxtobjAsTextBox)DimsAsStringDimfsAsFileStreamfs=NewFileStream(filename,FileMode.Open,FileAccess.Read)DimsrAsStreamReadersr=NewStreamReader(fs)txtobj.Text=sr.ReadToEndsr.Close()fs.Close()EndSub保存并运行保存该项目。单击“调试”菜单，选择“启动”命令或单击工具栏的“启动”按钮。在选择一个文本文件后，分别在“查找内容”和“替换为”文本框中输入要查找和替换的内容后，再单击“替换”按钮，即可将该文件内容进行替换并保存到原文件中，运行结果如图2(a)所示并且显示如图2（b）所示的对话框，最后单击“关闭”按钮即可结束程序运行。