Vb.net 文本文件中的单词作为checkedlistbox中的变量

我发现了如何获取文本文件并将其放入checkedlistbox。现在，我还想使用文本文件将变量应用于checkedlistbox中的每个项目

这是我使用的代码

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

我希望将checkedlistbox项和变量并排放在同一个文本文件中

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

---

有什么指导吗

只有当文件不超过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返回

列表（字符串）

中文件的所有行，然后您可以循环此列表并将单词逐个添加到选中列表框中

编辑
在注释之后，如果有一行由两个单词组成，并用空格分隔，并且第一个单词应存储在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

---

应该添加一点错误控制，以确保每行有两个字检查数组长度

字

在第一个空格字符拆分行时获得

此代码有什么问题？@Steve代码很好。这是我用来将文本文件单词拉入checkedlistbox的一个示例。为这一混乱道歉。我主要是用它作为参考，看看是否可以用它来提取变量，并将其分配给checkedlistbox中的相关项。checkedlistbox中的每个项都是根据从文件中读取的值初始化的，在添加该项之前，将该行保存在数组的元素中。唯一需要更改的是使用固定大小的数组。如果代码超过10行，代码将崩溃。使用（字符串的）列表instead@Steve因此，如果我在一个文本文件中有两列单词，那么最好的方法是获取第一列作为列表进入checkedlistbox，然后获取第二列作为我的变量。我想我可以把变量应用到列表中的项目上，比如说array1 item 0=array2 item 0等等，我只是不确定从哪里开始我的研究或找到一个例子。