如果想繼續(xù)編輯之前的文檔,在TXT文件尾部繼續(xù)添加文本,那么還需要在函數(shù)后邊加個參數(shù)。

廣饒ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)建站的ssl證書銷售渠道,可以享受市場價格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
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)頁鏈接”?
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "1111", True)
End If
就可以了
寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀取:If (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
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim aa As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
Dim i As Integer = 0
For i = 0 To Val(TextBox4.Text)
aa.WriteLine("[" i "]")
aa.WriteLine("[" i "]")
Next
aa.Close()
aa.Dispose()
End Sub
Dim sr As New IO.StreamReader("路徑") '打開文件
Dim str As String = sr.ReadToEnd() '讀取文本
sr.Close() '關(guān)閉流
str = "not" str '修改文字
Dim sw As New IO.StreamWriter("路徑") '打開
sw.Write(str) '寫入
sw.Close() '關(guān)閉
寫入模式為覆蓋會出現(xiàn)這個現(xiàn)象
要使用添加模式
就會累加了
名稱欄目:vb.net寫入文件,vb 引用庫文件
本文來源:http://chinadenli.net/article41/dsgjhed.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、微信公眾號、品牌網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、電子商務(wù)、企業(yè)網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)