Vb.net 用文本文件单行上的项目填充组合框

Vb.net 用文本文件单行上的项目填充组合框,vb.net,combobox,character,readline,Vb.net,Combobox,Character,Readline,我有一行文字a;BCD在文本文件中。我想要实现的是填充一个组合框,使其如下所示 A. B C D 使用;char作为定义新组合框条目的一种方式 与以下代码结合使用非常有用 For Each line As String In IO.File.ReadAllLines("C:\TEST.txt") If line.StartsWith("+dep+") Then ComboBox1.Text = line.Substring(5)

我有一行文字a;BCD在文本文件中。我想要实现的是填充一个组合框,使其如下所示 A. B C D

使用;char作为定义新组合框条目的一种方式

与以下代码结合使用非常有用

        For Each line As String In IO.File.ReadAllLines("C:\TEST.txt")
        If line.StartsWith("+dep+") Then
            ComboBox1.Text = line.Substring(5)
        End If
它从包含大量存储数据的文件中选择一个标记(在本例中为+dep+标记,并使用该标记填充组合框)

有男孩知道怎么做吗


我使用的是vb.net

,因此您希望将文本置于
之后,并按
拆分?然后倒入一个包含所有部分的组合框:

Dim lineParts = From line In File.ReadLines(path)
                Let depIndex = line.IndexOf("<dep>")
                Where depIndex >= 0
                Select line.Substring(depIndex + 5).Split({";"c}, StringSplitOptions.RemoveEmptyEntries)
Dim allParts = lineParts.SelectMany(Function(p) p)
Dim bs = new BindingSource()
bs.DataSource = allParts 
ComboBox1.DataSource = bs
Dim allParts = lineParts.SelectMany(Function(p) p).Distinct()