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

使用它们之间的if语句，但这似乎只是将第一行中的部分添加到列表框中三次。

我是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

但是，使用,作为分隔符很容易出错，因为值可能还包含逗号。

浏览文本文件中的每一行并添加到列表框中

1 个答案: