我不断收到和错误消息'索引超出了数组的范围'

Question

我试图从文本文件显示信息到多行文本框中。我运行代码，但系统显示错误消息'索引超出了数组的范围'。没有明显的错误消息，我似乎无法操纵代码来摆脱此问题。看一看：

Public Class TeachCon 

Dim layout As String 
Dim Contacts(6) As Details 

Structure Details 
    Dim Name As String 
    Dim Email As String 
    Dim RoomNum As String 
    Dim number1, number2 As Integer 
End Structure 

Sub LoadTeachContacts(ByRef Contacts() As Details) 

    Dim TextFile As String = "\\Sjcdom01\mstudent\LHeywood\documents\A2\Computing\Comp 4 - Smail\Project\Text Files\Teacher Contact List.txt" 
    Dim TextLine As String = "" 
    Dim ArrayCounter As Integer = 0 
    Dim objReader As New System.IO.StreamReader(TextFile) 

    'loop through text file and load all contacts 
    Do While objReader.Peek() <> -1 

     'read next line from file 
     TextLine = TextLine & objReader.ReadLine() & vbNewLine 

     'declare an array and use it to split line from file 
     Dim TempArray() As String = Split(TextLine, ",") 

     'transfer each array element into the appropriate part of the contacts stucture 
     Contacts(ArrayCounter).Name = TempArray(0) 
     *Contacts(ArrayCounter).Email = TempArray(1)* 
     Contacts(ArrayCounter).RoomNum = TempArray(2) 
     Contacts(ArrayCounter).number1 = TempArray(3) 
     Contacts(ArrayCounter).number2 = TempArray(4) 

     'empty string before reading next line from file 
     TextLine = "" 

     'increment array counter 
     ArrayCounter = ArrayCounter + 1 
    Loop 
End Sub 


Private Sub ButShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

    Dim ArrayCounter As Integer = 0 
    LoadTeachContacts(Contacts) 

    Do Until ArrayCounter = 3 
     layout = Contacts(ArrayCounter).Name & "," & Contacts(ArrayCounter).Email & "," & Contacts(ArrayCounter).RoomNum & "," & Contacts(ArrayCounter).number1 & "," & Contacts(ArrayCounter).number2 
     If ArrayCounter = 0 Then 
      TextBox7.Text = layout 
     End If 

     ArrayCounter += 1 
    Loop 
End Sub 

End Class 

*所包含的文本是系统表示它位于数组边界之外的地方。

Answer 1

不清楚你的TextFile包含了什么。但序处理异常改变代码如下

'declare an array and use it to split line from file 
    Dim TempArray() As String = Split(TextLine, ",") 

    'transfer each array element into the appropriate part of the contacts stucture 
    If TempArray.Length > 0 Then 
    Contacts(ArrayCounter).Name = TempArray(0) 
    *Contacts(ArrayCounter).Email = TempArray(1)* 
    Contacts(ArrayCounter).RoomNum = TempArray(2) 
    Contacts(ArrayCounter).number1 = TempArray(3) 
    Contacts(ArrayCounter).number2 = TempArray(4) 
    End If 
    'empty string before reading next line from file 
    TextLine = "" 

Answer 2

好了，您的一条线路可能分裂成一个数组，它是比预期更短，因此该指数不存在。在获取值之前检查数组的长度。也许是这样的

If TempArray.Length > 0 Then Contacts(ArrayCounter).Name = TempArray(0) 
If TempArray.Length > 1 Then Contacts(ArrayCounter).Email = TempArray(1) 
If TempArray.Length > 2 Then Contacts(ArrayCounter).RoomNum = TempArray(2) 
If TempArray.Length > 3 Then Contacts(ArrayCounter).number1 = TempArray(3) 
If TempArray.Length > 4 Then Contacts(ArrayCounter).number2 = TempArray(4) 

Answer 3

这将是有益的，如果您提供的文件还的内容：

“\ Sjcdom01 \ mstudent \ LHeywood \文件\ A2 \计算\比较4 - 斯迈尔\项目\ Text Files \教师联系List.txt“

Answer 4

我认为你应该检查行是否为空，因为0作为一个空字符串可以没有错误，但项目1将抛出'索引超出阵列的范围'在LoadTeachContacts Sub

'read next line from file 
      If objReader.ReadLine().Trim = "" Then Continue Do 
      TextLine = TextLine & objReader.ReadLine() & vbNewLine