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

这将读取文本文件中的每一行并将其添加到List String

编辑：

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个不同的项目和文本行

从列表框保存到.text文件并在启动时从中加载

1 个答案: