Question

VB.net 读取txt文件后，如何把txt文件指定行的数值填入textbox里面

自己写的部分代码如下，求大神指点：
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim open As New OpenFileDialog
open.Filter = "txt files (*.txt)|*.txt" &
"|All files (*.*)|*.*"

If open.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox44.Text = （打开的txt文件第一行的数值）
TextBox41.Text = （打开的txt文件第二行的数值）
TextBox42.Text = （打开的txt文件第三行的数值）
TextBox31.Text = （打开的txt文件第四行的数值）
TextBox33.Text = （打开的txt文件第五行的数值）
TextBox32.Text = （打开的txt文件第六行的数值）
...

新学VB.net，真心求教，悬赏分没赚，日后有分必定贡献。

Answer 1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As String = ""
        Dim b As Integer
        FileOpen(1, "z:\test.txt", OpenMode.Input)
        Do While Not EOF(1)
            Input(1, a)
            b = b + 1
            If b = 1 Then
                TextBox1.Text = a
            ElseIf b = 2 Then
                TextBox2.Text = a
            End If
        Loop
    End Sub

追问

你的代码好像不太对，我的代码是，用户打开他选定的txt文件，txt文件第一行数值赋值给代码内对应的textbox...

追答

FileOpen(1, "z:\test.txt", OpenMode.Input)

把路径替换成 你open控件选中的文件即可

你连这个也不会么？

追问

我试试。。。刚学半个月，从零起步，呜呜

谢谢大神，懂了