IndexOutOfRangeException - RichText

-1

我得到了一個RichTextBox（txt）和一個OpenFileDialog（Open1）。當我嘗試以下方法，我對指定線路IndexOutOfRangeException：IndexOutOfRangeException - RichText

Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click 
    If (Open1.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then 
     fName = Open1.FileName 
     txt.LoadFile(fName, RichTextBoxStreamType.PlainText) 
     Dim i As Integer = 0 
     While i < txt.Lines.Length 
      AnalyseLine(i) 
      i = i + 1 
     End While 
    End If 
End Sub 

Private Sub AnalyseLine(ByVal line As Integer) 
    Select Case txt.Lines(line).Substring(0, 1) '''' EXCEPTION ON THIS LINE '''' 
     ' [...] 
    End Select 
End Sub

異常拋出每次，不管什麼線變量的價值。我真的不明白爲什麼，因爲它會在每個文本文件中引發同樣的異常。此外，它似乎像出現此問題，只有當一個新的文件是開放的，因爲用下面的代碼，它工作正常...

Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged 
    AnalyseLine(txt.GetLineFromCharIndex(txt.GetFirstCharIndexOfCurrentLine)) 
End Sub

來源

2014-02-24 Lovy

我得到它的工作，通過更換 txt.LoadFile（FNAME，RichTextBoxStreamType.PlainText）通過 txt.Text = System.IO.File.ReadAllText（FNAME）但我還是不明白... – Lovy

一條線可能只是一個空字符串（最後一行我猜），請檢查：

Private Sub AnalyseLine(ByVal line As Integer) 
    If txt.Lines(line).Length > 0 Then 
    Select Case txt.Lines(line).Substring(0, 1) 
     ' [...] 
    End Select 
    End If 
End Sub

來源

2014-02-24 22:11:06 LarsTech

Nah它不起作用，現在它在If語句中拋出異常 – Lovy

AnalyseLine有問題。 1）你不應該假設行將是有效的，應該檢查它是否在0的範圍內......如果它在外部使用外看它可能會失敗。 2）如果txt爲空，該怎麼辦？它會失敗。 3）你需要檢查長度，看它是否> 0 4）你爲什麼使用子串而不是數組索引[0]？您正在使用一種方法獲取只有1個字符。糟糕的編碼。

代碼太多問題。它不會通過同行評審。

來源

2015-01-02 00:30:29

IndexOutOfRangeException - RichText

回答

相關問題