vb.net appendline подстрока ошибки

Question

У меня есть этот код в VB:

Public Class Form1 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles browsebtn.Click 
    OpenFileDialog1.Filter = "Text Files|*.txt" 
    OpenFileDialog1.Title = "Select Log File" 
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
     Dim filename As String = OpenFileDialog1.FileName 
     Using streamreader As New StreamReader(filename) 
      While streamreader.Read 
       Dim line As String = streamreader.ReadLine() 
       Dim date1 As String = line.Substring(6, 6) 
       Dim writer = New StreamWriter("c:\" + date1 + ".txt") 
       writer = File.AppendText(line) 
       writer.Close() 
      End While 
     End Using 

    End If 
End Sub 
End Class 

Когда я запускаю его, он дает мне ошибку:

"startIndex cannot be larger than length of string." 

Что я делаю неправильно?

Answer 1

Несколько комментариев не имеют смысла, как ошибка, возникающая в конце цикла или как проверка длины строки может привести к ошибке доступа к файлу. Попробуйте следующее:

Dim Line as String   
    Dim Date1 As String 

    While streamreader.Read 
    Line = streamreader.ReadLine() 
    If Line.Length > 12 Then 
     date1 = line.Substring(6, 6) 
     Using sw As New StreamWriter("c:\" + date1 + ".txt") 
      sw.Write(line) 
     End Using 
    End If 
    End While