.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容,F(xiàn)ile.ReadAllLine(filename)用于讀取多行。
10年積累的成都網(wǎng)站設(shè)計、網(wǎng)站制作經(jīng)驗,可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你,你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程,更有新泰免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
軟糖來告訴你吧。
VB.net中讀寫文件主要使用System.IO命名空間。
① 使用 File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 寫入,會覆蓋同名的文件。
Dim 要寫的內(nèi)容 As String = ""
File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 寫入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加寫入。
將上面代碼的第二個參數(shù)False改為True。
◆ 滿意請采納,謝謝 ◆
Imports?Microsoft.VisualBasic.FileSystem?'在聲明區(qū)加這句,這包含vb6的一些文件讀寫功能
Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click
Dim?p?As?Integer?=?FreeFile()
Static?index?As?Integer?=?0
FileOpen(p,?"D:\list.csv",?OpenMode.Append)
index?+=?1
WriteLine(p,?"姓名"??index,?"年齡"??index,?"職業(yè)"??index,?"住址"??index)
FileClose(p)
End?Sub
'?FileIO.TextFieldParser?類可以讀取csv文件,或者數(shù)據(jù)庫有關(guān)類也可以讀取
ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只給新字段賦值
分享標題:vb.net追加寫入 vba追加寫入文本
本文來源:http://muchs.cn/article36/ddcecpg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、網(wǎng)站導(dǎo)航、微信小程序、ChatGPT、軟件開發(fā)、微信公眾號
聲明:本網(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)