我不斷收到和錯誤消息'索引超出了數組的範圍'

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