资源描述：
《VBNET语言操作txt文件代码.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、做二次开发过程中的一些代码搜集和个人的试错及注释：Dimstr_File_1AsString=My.Computer.FileSystem.ReadAllText("E:VisualStudioVisualBasicGUIWindowsApplication2Resources1.tcl",System.Text.Encoding.ASCII)'根据实际的编码读第一个文件Dimstr_File_2AsString=My.Computer.FileSystem.ReadAllText("E:VisualStudioVisualBasicGUIWindows
2、Application2Resources2.tcl",System.Text.Encoding.ASCII)'根据实际的编码读第二个文件FileOpen(1,"E:VisualStudioVisualBasicGUIWindowsApplication2Resources1.tcl",OpenMode.Input,OpenAccess.Default,OpenShare.Shared)'以读方式打开文件FileOpen(2,"E:VisualStudioVisualBasicGUIWindowsApplication2Resources2.tc
3、l",OpenMode.Output,OpenAccess.Default,OpenShare.Shared)'以写方式打开文件Print(2,str_File_1)'将1文件写入2中FileClose(1)FileClose(2)ImportsSystem.IOPublicClassTXTClass'为了能够操作txt文本文档，需要在类的前面加入“System.IO”空间的引用；'然后定义3个变量sw（用于write操作，变量类型StreamWriter）、'sr（用于read操作，变量类型StreamReader）、'strRead()（用于保存从文本文档中读入的数据，
4、变量类型String数组）；'然后写一个空的subNew()过程（类必须有的）。PrivateswAsStreamWriterPrivatesrAsStreamReaderPublicstrRead()AsStringPublicSubNew()EndSub'写操作'写入一行数据到文本文件'以追加的形式写入一行数据PublicSubZhuiJiaSingle(ByValParthAsString,ByValstrlineAsString)sw=NewStreamWriter(Parth,True,System.Text.Encoding.Default)sw.WriteLi
5、ne(strline)sw.Flush()sw.Close()sw=NothingEndSub'以覆盖的形式写入一行数据PublicSubFuGaiSingle(ByValParthAsString,ByValstrlineAsString)sw=NewStreamWriter(Parth,False,System.Text.Encoding.Default)sw.WriteLine(strline)sw.Flush()sw.Close()sw=NothingEndSub'写入多行数据到文本文件'以追加的形式写入多行数据PublicSubZhuiJiaDuoHang(ByV
6、alParthAsString,ByValstr()AsString)DimiAsIntegersw=NewStreamWriter(Parth,True,System.Text.Encoding.Default)Fori=0Tostr.Length-1sw.WriteLine(str(i))sw.Flush()Nextsw.Close()sw=NothingEndSub'以覆盖的形式写入多行数据PublicSubFuGaiDuoHang(ByValParthAsString,ByValstr()AsString)DimiAsIntegersw=NewStreamWrite
7、r(Parth,False,System.Text.Encoding.Default)Fori=0Tostr.Length-1sw.WriteLine(str(i))sw.Flush()Nextsw.Close()sw=NothingEndSub'读操作PublicFunctionDuWenBen(ByValParthAsString)DimiAsInteger=0DimsAsStringstrRead=Nothingsr=NewStreamReader(Parth,System.Text.Encoding.Def
