vb.net 怎么寫入和多行讀取txt文件，而且多次寫如之前的不被覆蓋？

.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容，F(xiàn)ile.ReadAllLine(filename)用于讀取多行。

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),富順企業(yè)網(wǎng)站建設(shè),富順品牌網(wǎng)站建設(shè),網(wǎng)站定制,富順網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,富順網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

【vb.net】怎么把text里面的內(nèi)容生成一個(gè)txt文件

Dim SaveFileDialog1 As New SaveFileDialog()

'創(chuàng)建一個(gè)保存對(duì)話框

SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"

'設(shè)置

擴(kuò)展名

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

'如果確定保存

My.Computer.

FileSystem

.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)

'保存文本,False表示不追加文本，直接覆蓋其內(nèi)容

End If

VB.NET讀取TXT文件數(shù)據(jù)保存為數(shù)組

VB.NET編程讀取txt文本文檔中的數(shù)據(jù)，并把數(shù)據(jù)保存為數(shù)組，代碼如下：

'寫配件文件

Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)

Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw?=?Nothing

End?Sub

'讀配件文件

Private?Function?readIni(ByVal?filePath?As?String)

Dim?iniDt?As?New?DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)

Dim?line?As?String?=?""

While?Not?sr.EndOfStream

Dim?str?=?sr.ReadLine()'讀取當(dāng)前行

iniDt.Rows.Add(New?String()?{

str(0),

str(1)

})

End?While

sr.Close()

sr?=?Nothing

Catch?ex?As?Exception

End?Try

Return?iniDt

End?Function

VB.net 2008 如何以二進(jìn)制的方式向文本文件中追加一個(gè)回車符

解決了，把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。

牛，為使用二進(jìn)制的程序員鼓掌！

從來沒用過的人問：為什么要用二進(jìn)制啊，有啥好處？

請(qǐng)教在VB.net中如何將數(shù)據(jù)寫入txt文件、再從txt文件讀出？

軟糖來告訴你吧。

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 寫入，會(huì)覆蓋同名的文件。

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 追加寫入。

將上面代碼的第二個(gè)參數(shù)False改為True。

◆ 滿意請(qǐng)采納，謝謝 ◆

VB如何追加文本到TXT文檔?

在VB中以追加方式打開文本文件的方式，是Append。

以下假設(shè)已有的文件是D:\abcd.txt文件。

現(xiàn)將Text1控件中的文本追加到已有的文件中去：

Private Sub Command1_Click()

Open "d:\abcd.txt" For Append As #1 '以追加方式打開文件

Print #1, '為防止原文件末尾沒有換行，而加入的換行

Print #1, Now '加入一個(gè)空行，為新加入內(nèi)容的加入時(shí)間，若不需要可刪除或注釋它

Print #1, Text1.Text

Close #1

End Sub

本文標(biāo)題：包含vb.net追加txt的詞條
網(wǎng)頁地址：http://biofuelwatch.net/article/dsgpgoj.html