从列表框保存到 .txt 文件并在开始时从它加载

Question

如果我有名称为 lstPerioda 的 listox 和名称为 txtDescription 的文本框。我想为列表中的每个项目选择并保存/加载 txtdescription 中的不同文本。

类似的东西

http://pokit.org/get/img/fade9475ab42b1eaaf1b25320aed5a2d.jpg

这些是我将要做的一些笔记。所有这些都应该保存到某种文档中。我在想.txt 文件或者database 你怎么看？？

编辑： 我可以将列表框中的值写入.txt 文件并再次加载

    Private Sub Command1_Click()
Open "Listbox.txt" For Output As #1
For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
Next
Close
End Sub

Private Sub Form_Load()

List1.AddItem "Monday"
List1.AddItem "Tuesday"
List1.AddItem "Wednesday"
List1.AddItem "Thursday"
List1.AddItem "Friday"
List1.AddItem "Saturday"
List1.AddItem "Sunday"
End Sub

但是我怎样才能制作不同的文本，这些文本将保存到某个 .txt 文件中，并在我每次启动应用程序时从中读取。也可用于更新。

所以基本上，如果我写今天是星期一的描述，我想将其保存到文件中，每次我从列表框中选择星期一时，它都会向我显示该描述

Answer 1

这将读取文本文件中的每一行并将其添加到列表字符串中

编辑：

Dim lists As New List(Of String)

Private Sub Main()
    Dim FSO As FileSystemObject
    Dim TS As TextStream
    Dim Final As String
    Set FSO = New FileSystemObject
    Set TS = FSO.OpenTextFile("C:\text.txt", ForReading)
    Final = TS.ReadAll

    Dim pattern As String = "\r\n|\r|\n"
    Dim result() As String = Regex.Split(Final, pattern)
    For Each s As String In result
        lists.Add(s)
    Next
End Sub

注意：首先将此添加为 Regex 的导入

Imports System.Text.RegularExpressions

EDIT2：

当列表框项目选择如下时，您可以显示您的文本：

Private Sub ListBox_SelectedIndexChanged()
    Select ListBox1.SelectedIndex
        Case 0
            TextBox1.Text = lists.Item(0)
        Case 1
            TextBox1.Text = lists.Item(1)
        Case 2
            TextBox1.Text = lists.Item(2)
        Case 3
            TextBox1.Text = lists.Item(3)
        Case 4
            TextBox1.Text = lists.Item(4)
        Case 5
            TextBox1.Text = lists.Item(5)
    End Select
End Sub

假设您的列表框和文本框包含 6 个不同的项目和文本行