StreamReaderを使用した.txtファイルの読み込み

Question

問題が発生しました。私が作業しているプログラムがあり、複数の.txtファイルを1つずつ読み込んでwords()という文字列配列を更新する必要があります。主な問題は、アップロードした最初のファイルがfiles()文字列配列になっていることです。ドラッグ＆ドロップイベントを実行すると、配列がいっぱいで2番目のアップロードを許可しません。正常にアップロードされた後にfiles()アレイをリセットするにはどうすればいいですか？

サンプルコード：

Dim words(7) As String 
Dim i As Integer = 0 
Public Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop 

    Dim word As String = "" 
    Try 
     Dim files() As String = e.Data.GetData(DataFormats.FileDrop) 

     For Each path In files 

      MsgBox(path) 
      Dim sr As New StreamReader(path) 

      Do Until sr.Peek = -1 
       word = sr.ReadLine() 

       words(i) = word 

       frmDefaultkWh.lbDefaultkWh.Items.Add(cbAppliances.Items(i) + " = " + words(i)) 
       i = i + 1 

      Loop 


     Next 
     GetPower() 
    Catch ex As Exception 

     'MessageBox.Show(ex.ToString()) 

    End Try 

End Sub 
Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter 

    If e.Data.GetDataPresent(DataFormats.FileDrop) Then 

     e.Effect = DragDropEffects.Copy 

    End If 


End Sub 

Answer 1

私はあなたが私が唯一のサイズ7である配列による）最終的に私はあなたの言葉の範囲（外インクリメントすることを意味し、リセットされていないためであると考えていますこれらのファイルのいずれかに7行以上が含まれている場合は、エラーがスローされます。

For Each path In files 
      i = 0 'reset counter 

      MsgBox(path) 
      Dim sr As New StreamReader(path) 

      Do Until sr.Peek = -1 
       word = sr.ReadLine() 

       words(i) = word 

       frmDefaultkWh.lbDefaultkWh.Items.Add(cbAppliances.Items(i) + " = " +  words(i)) 
       i = i + 1 

      Loop 

     Next