vb.net 把TXT文件中的文本以数组的形式读入文本框

VB.NET中 怎么读入TXT文本的数字到一个数组。。~

代码及注释如下：

Dim aa$, s, ss'定义变量
Private Sub Form_Load()
Open "c:emp.txt" For Input As #1'打开txt文件
aa = StrConv(InputB(LOF(1), 1), vbUnicode)'将文本读入aa中
Close #1'关闭文件
End Sub

Private Sub Command1_Click()
s = Split(aa, vbNewLine)'将文本分离出来并放入数组s中
For i = 0 To UBound(s)'i从0到S的最大元素数循环
If s(i) "" Then'如果数组部位空
ss = Split(s(i), "=")'择将数组按照=分离，并放入数组ss
Print Val(ss(1))‘显示数值化的数组ss第一个元素
End If
Next i
End Sub

如果TXT文件是单行的话
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(lof(1), 1)
Close #1
Dim a
a = Split(Text1.Text)

如果是多行要加循环

Option Explicit
Dim a$, n%, k%, c$(), d%

Private Sub Form_Click()
n = 0
Open App.Path & "emp.txt" For Input As #1
Do Until EOF(1)
n = n + 1
Line Input #1, a
ReDim c(n)
d = Len(a)
k = InStr(1, a, "=")
c(n) = Right(a, (d - k + 1))
Print "c(" & n & ")=" & c(n)
Loop
Close #1
End Sub

看你的意思是以行分隔，只须3行代码就可以了
Dim str_All As String = My.Computer.FileSystem.ReadAllText("g:\vb.net\student.txt")
Dim str_Sp() As String = str_All.Split(vbCrLf) '以行分隔
TextBox1.Text = str_All

---

vb.net 把TXT文件中的文本以数组的形式读入文本框视频