如果想繼續(xù)編輯之前的文檔，在TXT文件尾部繼續(xù)添加文本，那么還需要在函數(shù)后邊加個(gè)參數(shù)。
創(chuàng)新互聯(lián)專注于崗巴企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,商城建設(shè)。崗巴網(wǎng)站建設(shè)公司,為崗巴等地區(qū)提供建站服務(wù)。全流程按需策劃，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
VB 代碼
方法1：
? Dim?sw?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt")
? sw.Write("abc"? vbCrLf)
sw.Close()
Dim?sw2?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt",?True)
sw2.Write("456"? vbCrLf)
sw2.Close()
方法2：
? My.Computer.FileSystem.WriteAllText("test.txt",?"This is test Text",?True)
方法3：
? System.IO.File.AppendAllText("c:\temp\test.txt",?"this is extra test file")
詳見：“網(wǎng)頁(yè)鏈接”?
寫入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() （讀取文本到文本框）
Loop end if
工作需要 我需要使用對(duì)文本文件進(jìn)行讀寫操作 編程需要完成如下工作
把程序執(zhí)行錯(cuò)誤追加到錯(cuò)誤日志中
使巧巧讀書網(wǎng)的編輯能夠讀取錯(cuò)誤日志
記得以前使用vb 的時(shí)候 對(duì)文本文件的操作挺麻煩的 特別是在寫文件的時(shí)候 需要區(qū)分什么順序文件 隨機(jī)文件 很教材都專門針對(duì)文本文件的讀寫開辟了一個(gè)章節(jié)來(lái)講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因?yàn)闀r(shí)間倉(cāng)促 沒(méi)來(lái)得及細(xì)看MSDN 同時(shí)受到 的思路影響 把問(wèn)題復(fù)雜化了 在追加記錄到文本文件尾部的時(shí)候就寫不下去了 后來(lái)仔細(xì)看了一下MSDN中例子 問(wèn)題終于得到了解決
好了下面進(jìn)入正題 分別把中對(duì)文本文件進(jìn)行讀和寫的通用操作做個(gè)示例 免得后來(lái)新手多走彎路
我們這里是對(duì)文件流進(jìn)行操作 所以模塊前面要加上
Imports System IO
寫操作
使用System IO的StreamWriter 下面是代碼
Dim strFilePath As String = SaveFileDialog FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打開指定文件
For i = To j
temp = i ToString
sw WriteLine（temp）
sw Flush（）
Next
sw Close（）
sw = Nothing
首先要說(shuō)明的是構(gòu)造函數(shù)new
Public Sub New（path append Encoding）
path 要打開文件的完整路徑 如果文件不存在則自動(dòng)建立一個(gè)新的文件
append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個(gè)新文件 true——如果存在path指定的文件 則打開該文件 以追加數(shù)據(jù)的方式在文尾寫數(shù)據(jù) 否則建立一個(gè)新文件
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼寫文件
WriterLine（str） 在文本中添加一個(gè)新行 同時(shí)在行尾加上回車換行符
讀操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）
Do While sr Peek（）
line = sr ReadLine（）
Loop
sr Close（）
sr = Nothing
構(gòu)造函數(shù)new
Public Sub New（Path Encoding）
path 要打開文件的完整路徑 如果文件拋出一個(gè)錯(cuò)誤
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼讀文件
lishixinzhi/Article/program/net/201311/11973
重慶分公司
重慶分公司
