StreamReader仅读取和输出多行,间隔文本文件中的最后一行

时间:2019-02-20 13:05:16

标签: vb.net streamreader

我正在尝试从文本文件中读取值,然后将它们输入到数组中,从那里我可以将它们分配给文本框。我的文本文件的第一行是标题名称(字符串/字符),所有后续行都包含数字:

picture of text

有多行,每个值都用空格分隔。我当前的代码是:

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
     Dim openreader As System.IO.StreamReader = New System.IO.StreamReader(openFileDialog1.FileName)
    Try

        While Not openreader.EndOfStream
            Dim currentline As String
            currentline = openreader.ReadLine()
            currentline = currentline.Trim(" "c)
            Dim inputparts() As String = currentline.Split(" "c)
            TextBox1.Text = inputparts(0)
            TextBox2.Text = inputparts(1) 'This gives out of bounds error
            TextBox3.Text = inputparts(2) 'This gives out of bounds error
            TextBox4.Text = inputparts(3) 'This gives out of bounds error
        End While

    Catch Ex As Exception
        MessageBox.Show("The file could not be read. The original error is: " & Ex.Message)
    End Try
    openreader.Close()
    End If

问题是,数组inputparts的错误超出了inputparts(0)的范围,而inputparts(0)是记录的唯一元素,始终是最后一行的最后一个数字。我不想定义inputparts()的尺寸,因为我是输入文件,可以自由选择范围不同的值。

为什么数组不记录除最后一个值以外的任何值-是因为我的当前行最终成为最后一行-我该如何解决呢?任何帮助,将不胜感激!

1 个答案:

答案 0 :(得分:0)

将拆分后的部分放入文本框的一种方法是在数组中引用文本框,并从该行的项目数组中设置它们。

使用Math.Min,我们可以确保如果行上没有足够的项目,那么我们就不会尝试将文本设置为不存在的内容。

Using openreader As StreamReader = New StreamReader(openFileDialog1.FileName)
    Dim tb = {TextBox1, TextBox2, TextBox3, TextBox4}

    Try
        While Not openreader.EndOfStream
            Dim currentline As String
            currentline = openreader.ReadLine()
            currentline = currentline.Trim(" "c)
            Dim inputparts() As String = currentline.Split(" "c)

            For i = 0 To Math.Min(tb.Length, inputparts.Length)
                tb(i).Text = inputparts(i)
            Next

        End While

    Catch ex As Exception
        MessageBox.Show("The file could not be read. The original error is: " & ex.Message)
    End Try

End Using

我使用了Using语句,因为它确保即使发生异常也可以关闭文件。

如果在代码的最前面添加Imports System.IO,则不必继续在System.IO.StreamReader之类的地方键入它。