我正在尝试从文本文件中读取值,然后将它们输入到数组中,从那里我可以将它们分配给文本框。我的文本文件的第一行是标题名称(字符串/字符),所有后续行都包含数字:
有多行,每个值都用空格分隔。我当前的代码是:
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()的尺寸,因为我是输入文件,可以自由选择范围不同的值。
为什么数组不记录除最后一个值以外的任何值-是因为我的当前行最终成为最后一行-我该如何解决呢?任何帮助,将不胜感激!
答案 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
之类的地方键入它。