vb實驗10實驗報告1

PAGE第3頁共3頁電子信息工程學系實驗報告成績：課程名稱：面向?qū)ο蟪绦蛟O(shè)計成績：指導教師（簽名）：實驗項目名稱：實驗10文件實驗時間：2011.12.12指導教師（簽名）：班級：電信092姓名：藍雪英學號：910706231實驗目的:理解System.IO對象模型2)熟練掌握使用File和Directory對象操作文件的方法3)熟練掌握DriveListbox、DirListbox和FileListbox控件使用方法4)理解流的概念5）掌握使用StreamReader和StreamWriter對象讀寫文本文件的方法實驗環(huán)境:WindowsXPVisualStudio.NET2003實驗內(nèi)容及結(jié)果分析:查找并替換文本文件的內(nèi)容內(nèi)容：使用StreamReader對象按行讀取文本文件數(shù)據(jù)，將查找內(nèi)容用替換內(nèi)容替換，再通過StreamWriter對象將替換后的內(nèi)容寫回文件。過程：1、新建一個“VisualBasic項目”并命名為“Exe1001”。2、界面設(shè)計由一個顯示選擇的文件的文本框（txtFileName）、一個查找內(nèi)容的文本框（txtFindText）、一個替換內(nèi)容的文本框（txtReplaceText）、一個顯示打開的文件內(nèi)容的多行文本框（txtContent）、三個標簽（Label）和兩個按鈕（btnSelFile、btnReplace）組成。另外，為能打開一個文件，還要添加一個打開文件對話框控件OpenFileDialog1。界面安排如圖1所示。圖1界面設(shè)計3、編寫代碼為了能夠使用StreamReader和StreamWriter對象提供的方法，應(yīng)該在模塊中引入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保存并運行保存該項目。單擊“調(diào)試”菜單，選擇“啟動”命令或單擊工具欄的“啟動”按鈕。在選擇一個文本文件后，分別在“查找內(nèi)容”和“替換為”文本框中輸入要查找和替換的內(nèi)容后，再單擊“替換”按鈕，即可將該文件內(nèi)容進行替換并保存到原文件中，運行結(jié)果如圖2(a)所示并且顯示如圖2（b）所示的對話框，最后單擊“關(guān)閉”按鈕即可結(jié)束程序運行。