文本文件中的单词作为选中列表框中的变量

Question

我发现了如何获取文本文件并将其放入选中的列表框中。现在我想也使用文本文件将变量应用于选中列表框中的每个项目。

这是我使用的代码。

Imports System.IO 'Top of the source code
 Dim sr As New StreamReader("C:\Users\Me\Desktop\test.txt")
    Dim word As String = ""
    Dim words(9) As String
    Dim i As Integer = 0

    Do Until sr.Peek = -1
        word = sr.ReadLine()
        words(i) = word
        Vlanbx1.Checklisbox.Items.Add(words(i))
        Vlanbx2.Checklisbox.Items.Add(words(i))

        i = i + 1

    Loop

我想将选中的列表框项目和变量并排放在同一个文本文件中。

我的主要目标是拥有一个列表，当它在文本文件中发生更改时，它会在打开表单时更新。但我不确定如何将变量抓取到文本并将它们应用于列表中的相邻项目。

任何指导，请。

Answer 1

只有当您的文件不超过 10 行时，您的代码才能正常工作。
你可以这样改

Imports System.IO 
....
Dim words = File.ReadLines("C:\Users\Me\Desktop\test.txt").ToList()
For Each word in words
    Vlanbx1.Checklisbox.Items.Add(word)
    Vlanbx2.Checklisbox.Items.Add(word)
Next

现在 File.ReadLines returns 你的文件的所有行都在一个 List(Of String) 中然后你可以遍历这个列表并将单词一个一个地添加到你的 CheckedListBoxes

编辑
根据您的评论，如果您有一行由两个单词组成的行，由 space 分隔，并且第一个单词应存储在 checkedlistbox 中，而第二个单词应存储在内部单词列表中，那么您的代码应更改为

Imports System.IO 
....
Dim listOfSecondWords = new List(Of String)()
Dim lines = File.ReadLines("C:\Users\Me\Desktop\test.txt").ToList()
For Each line in lines
    Dim words = line.Split(" "c)
    Vlanbx1.Checklisbox.Items.Add(words(0))
    Vlanbx2.Checklisbox.Items.Add(words(0))
    listOfSecondWords.Add(words(1))
Next

应该添加一点错误控制以真正确保每行有两个单词检查数组的长度words获得在第一个space字符处拆分行

文本文件中的单词作为选中列表框中的变量

Words from text file as variables in a checkedlistbox

vb.net

variables