select - 根据 Checked Listbox 选择号从文本文件中读取特定行

Question

我想创建一个应用程序，它将从文本文件中读取特定行并将其显示在文本框中。该行将根据我将进行的列表框选择的数量进行选择。
这是代码：

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To Me.CheckedListBox1.CheckedIndices.Count - 1
Me.CheckedListBox1.SetItemChecked(Me.CheckedListBox1.CheckedIndices(0),False)
        Next i
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckedListBox1.CheckedItems.Count <> 0 Then
            Dim reader As New System.IO.StreamReader(CurDir() & "\" & "READ.txt")
            Dim x As Integer
            Dim s As String = ""
            For x = 0 To CheckedListBox1.CheckedItems.Count - 1
                s = s & "Answer " & (x + 1).ToString & ") " & CheckedListBox1.CheckedItems(x).ToString & ControlChars.CrLf & reader.ReadLine() & ControlChars.CrLf & ControlChars.CrLf

            Next x
            Answer.Text = (s)

        Else
            MessageBox.Show("Please select questions.", "Error", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
            Return
        End If
    End Sub
End Class

因此，假设我从选中的列表框中“检查”第一个、第二个和第五个项目，我希望它从文本文件中读取第一、第二和第五行文本并将它们显示在文本框中。
当前代码只是按顺序读取第 1、2、3 行（...），无论我“检查”了什么项目。

Answer 1

每次从文件中读取一行时增加一个计数器以跟踪您正在阅读哪一行，并且仅当您的行号与选定的行号匹配时才在文本框中添加一行。