Vb.net 将文本文件中的多行加载到不同的列表框

Question

简介

好的，我有一个load 和一个save 按钮。我要将所有listbox items 保存到.txt 文件中，然后将它们加载到列表框。

现在，如果它只是一个列表框，这将非常简单。我的问题是它有 9 个列表框，只有一个 .txt 文件包含来自 9 个列表框的所有项目。我不想要 9 个不同的 .txt 文件。请记住，列表框包含的项目数量各不相同。

这就是save 按钮输出到 .txt 文件的方式（下一个版本）

Channel 1
c:\folder\folder

Channel 2
\\server\folder\foldera
\\server\folder\folderb

Channel 3
\\anotherserver\foldera
\\anotherserver\folderb
\\anotherserver\folderc
\\anotherserver\folderd
\\anotherserver\foldere

Channel 4
\\somepath\folder\folder\foldera

Channel 5
\\server\folder\foldera

Channel 6
\\server\folder\foldera

\\server\folder\foldera

Channel 8
\\server\folder\foldera

Channel 9
\\server\folder\foldera

每个通道是列表框，路径是每个列表框包含的项目。

这是我的存档btnsave.click

Dim configfile As String = "C:\Applicationpath\Config\" & System.DateTime.Now.ToString("yyyyMMdd") & "_Config.txt"

Using fs As FileStream = File.Create(configfile)
fs.Close()
End Using

Write_Configfile()

... 和 Write_config() 执行以下操作：

    Dim objWriter As New System.IO.StreamWriter(configfile, True)
    Try
        objWriter.WriteLine("Channel 1")
        For Each itm1 As String In Me.lbchannel1.Items
            objWriter.WriteLine(itm1)
        Next
        objWriter.WriteLine(" ")

        objWriter.WriteLine("Channel 2")
        For Each itm2 As String In Me.lbChannel2.Items
            objWriter.WriteLine(itm2)
        Next
        objWriter.WriteLine(" ")

一直到第 9 频道。我知道，这可能有更简单的方法。

问题和疑问

现在转到load 按钮。我认为如果我可以从文本文件的指定部分加载每个列表框，我会很好。我想说“嘿，将所有项目添加到通道 1 (listbox1)，这些项目在配置文件中的“通道 1”和“通道 2”之间写入 - 等等到通道 9。这就是我所在的位置卡住了。

我需要在某个单词之后或某些单词之间readline。没有读到某一行，因为就像我说的列表框包含的项目数量不同。

请记住，如果这样更容易，我可以将保存输出更改为如下所示：

c1:c:\folder\folder   
c2:\\server\folder\foldera
c2:\\server\folder\folderb
'and so on... 

所以我的尝试是这样的：

    If OpenFileDialog1.ShowDialog = DialogResult.OK Then

        Using reader As New StreamReader(OpenFileDialog1.FileName.ToString)
            Dim line As String = reader.ReadLine(OpenFileDialog1.FileName)
            If line = "c1:" Then
                lbchannel1.Items.Add(line) 'lbchannel1 is listbox1
            End If
            'if line = "c2:" then
            'blablabla
            'if line = "c3:" then
            'same goes to c9
        End Using
    End If

但这给了我这个错误{"Conversion from string C:\Applicationpath\Config\20160405_config.txt to type integer is not valid."}，我确信这不是正确的方法。

Answer 1

如果您调整列表框的名称和文本文件中的标题以使它们相等，则有一个通用的解决方案。

更改 Write_config() 使其写入 Channel1 而不是 Channel 1 等：

Dim objWriter As New System.IO.StreamWriter(configfile, True)
For Each o As ListBox In Me.Controls.OfType(Of ListBox).Where(Function(c) c.Name.StartsWith("Channel"))
    objWriter.WriteLine(o.Name)
    For Each itm As String In o.Items
        objWriter.WriteLine(itm1)
    Next
Next

还将列表框控件的名称更改为 Channel1 到 Channel9。

新的 TextFile 看起来像：

Channel1
c:\folder\folder

Channel2
\\server\folder\foldera
\\server\folder\folderb
...

现在更改填充列表框的代码：

Using reader As New StreamReader(OpenFileDialog1.FileName.ToString)
        Dim currentListBox As ListBox = Nothing

        While reader.Peek > -1
            Dim line As String = reader.ReadLine()
            If Not String.IsNullOrEmpty(line) Then
                Dim tmpListBox = Controls.Find(line, false) 'Try to find listbox according to line 
                If tmpListBox.Any() Then 'It´s a listbox name
                   currentListBox = DirectCast(tmpListBox(0), ListBox)
                Else 'It´s a folder name
                   currentListBox.Items.Add(line) 
                End If
            End If
       End While
 End Using

Answer 2

对于你的保存功能，你可以使用这样的东西：

Using objWriter As New System.IO.StreamWriter(configfile, True)
    Try
        'We will run through each channel
        For i = 1 to 9
            objWriter.WriteLine("Channel " & i.ToString())
            'We find the ListBox based on its name
            Dim LB As ListBox = CType(Me.Controls.Find("lbchannel" & i.ToString(), True), ListBox)
            For Each itm As String In LB.Items
                objWriter.WriteLine(itm)
            Next
            objWriter.WriteLine("")
        Next
    Catch ex as Exception
        'Exception Handling here
    End Try
End Using

然后您将希望通过以下方式加载文件：

Using reader As New StreamReader(OpenFileDialog1.FileName)
    Dim Line As String = reader.ReadLine()
    Dim CurrentChanel as Integer = 0
    Dim LB As ListBox = Nothing
    While Not IsNothing(Line) 'It will be Nothing when file is over
        If Line.StartsWith("Channel ") Then
            'We will increment CurrentChannel, as we changed the section
            CurrentChannel += 1
            LB = CType(Me.Controls.Find("lbchannel" & CurrentChannel.ToString(), True), ListBox)
        Else If Line <> "" Then
            LB.Items.Add(Line)
        End If
        Line = reader.ReadLine()
    End While
End Using

Answer 3

从您的 ReadLine 中删除文件名。 然后添加一个拆分和选择案例以确定要填充的控件。

        Using reader As New StreamReader(OpenFileDialog1.FileName.ToString)
            Dim line As String = reader.ReadLine()
            Dim values() As String = line.Split(":")
            Select Case values(0)
                Case "C1"
                    lbchannel1.items.add(values(1))

                Case "C2"
                    lbchannel2.items.add(values(1))
            End Select

        End Using