vb實(shí)驗(yàn)10實(shí)驗(yàn)報(bào)告1

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