VB.net窗體設計中，如何讀取.txt文件中的數據？

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

創新互聯專注為客戶提供全方位的互聯網綜合服務，包含不限于網站設計、成都網站建設、大埔網絡推廣、微信小程序、大埔網絡營銷、大埔企業策劃、大埔品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創新互聯為所有大學生創業者提供大埔建站搭建服務，24小時服務熱線：028-86922220，官方網址：www.cdcxhl.com

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調試代碼，點擊Command1，進入單步調試功能，

4、多次按下F8或直接按下F5運行完成，就完成了讀取文本文件內容并輸出到立即窗口。

VB.NET中怎么導入TXT文本里的數據

比如說用Richtext控件

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

Dim file As String = "f:/x.txt"

RichTextBox1.LoadFile(file)

MsgBox("ok")

End Sub

如何將已有的txt格式的文件數據導入VB.NET程序中，（也就是在VB.NET中讀取所需的txt文

一個按鈕，一個文本框，把文本框設置成多行顯示。

代碼如下：

Imports System.IO

Public Class Form1

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

Dim r As New StreamReader(Application.StartupPath "\ABC.txt", System.Text.Encoding.Default) '用StreamReader打開文本文件

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine '從打開的文件中讀取一行內容

TextBox1.Text = TextBox1.Text s vbCrLf '添加到文本框TextBox1.Text的后面并回車

Loop

r.Close() '關閉對象

End Sub

End Class

請教在VB.net中如何將數據寫入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 寫入，會覆蓋同名的文件。

Dim 要寫的內容 As String = ""

File.WriteAllText(文件路徑, 要寫的內容, 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 追加寫入。

將上面代碼的第二個參數False改為True。

◆ 滿意請采納，謝謝 ◆