阅读文本文件中的每一行并添加到列表框

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 

然而，使用,作为分隔符是容易出错，因为该值也可能包含逗号。