閱讀文本文件中的每一行並添加到列表框

Question

我有一個文本文件（customers.txt），我試圖從中提取某些信息片段。我使用逗號分隔了文本文件中的每一行，並允許我將一部分行放入列表框（lstReportsUnresolved）中。但是，我無法創建一個循環來爲文本文件中的每一行執行此操作，並將每行中的部分添加到列表框中。

代碼：

Private Sub btnUnresolved_Click(sender As Object, e As EventArgs) Handles btnUnresolved.Click 

    Dim reader As New StreamReader("customers.txt") 

     Dim data As String() 

    data = reader.ReadLine().Split(",") 


     If data(18) = "No" Then 
      lstReportsUnresolved.Items.Add(data(17)) 

     End If 
     If data(20) = "No" Then 
      lstReportsUnresolved.Items.Add(data(19)) 

     End If 
     If data(22) = "No" Then 
      lstReportsUnresolved.Items.Add(data(21)) 

     End If 
     If data(24) = "No" Then 
      lstReportsUnresolved.Items.Add(data(23)) 

     End If 

End Sub 

我曾嘗試加入

For Each Line As String In File.ReadLines("customers.txt") 
Next 

與如果它們之間的語句，但這似乎只是從第一行中添加部分，以列表框三次。

我是VB新手，很抱歉，如果我犯了一個愚蠢的錯誤。

謝謝你的幫助和時間。

Answer 1

你還分裂了循環中的每一行嗎？

For Each line As String In File.ReadLines("customers.txt") 
    Dim data As String() = line.Split(",") 
    If data(18) = "No" Then 
     lstReportsUnresolved.Items.Add(data(17)) 
    End If 
    ' .... ' 
Next 

然而，使用,作爲分隔符是容易出錯，因爲該值也可能包含逗號。