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

軟糖來告訴你吧。

創(chuàng)新互聯(lián)公司專注于平城企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站定制開發(fā)。平城網(wǎng)站建設(shè)公司,為平城等地區(qū)提供建站服務(wù)。全流程按需策劃，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

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

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

◆ 滿意請采納，謝謝 ◆

VB.net 讀取文本文件？

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對象是否為空代碼。

3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實(shí)現(xiàn)的上傳結(jié)果。

vb.net中，讀取和寫入文件

寫入：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

如何用VB.net 讀寫Unicode編碼的文本

不要用do until，用for:

Dim arr() As String, i As Integer

arr = Split(r.ReadLine, " ")

For i = LBound(arr) To UBound(arr)

MsgBox(arr(i))

Next

－－－－－－－－－－－－－－－－－－－－

還是用readline,如果你要提取兩個(gè)非連續(xù)空格之間的字符串，可以用

Dim arr() As String

arr = Split(r.ReadLine, " ")

arr()數(shù)組里就存了你要的單詞。

快要下班了，明后天不上班，如果16：30之前還搞不定就要下個(gè)星期1了。

----------------------------------

哈，是我的失誤沒想到還有可能有半角的日文。

用utf-8就OK了，代碼如下：

（文本文件存的時(shí)候不能存成ansi，要存成utf-8，或是Unicode）

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim r As System.IO.StreamReader

r = New System.IO.StreamReader("c:\a.txt", System.Text.Encoding.GetEncoding("utf-8"))

Do While Not r.EndOfStream

MsgBox(r.ReadLine)

Loop

End Sub