Text 通过listbox请求从.txt读取文本

我想做这样的东西

例如：类似planer的东西，我在特定的日子里写我需要做的事情，当我在列表框中选择某一天时，它会告诉我我需要做什么

因为它会记住需要保存在某种.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

但主要问题是文本保存。如何从文本框中保存特定日期的文本或对其进行编辑。因此，当我在周一点击时，它会显示我为周一输入的自定义文本

---

我是否需要为一周中的每一天创建一个新文件（如7个文件），或者有更简单的方法？？？

不必为每个列表框项目创建单独的文件

这是我的示例项目；我对您的表单布局做了一些更改：

单击左侧列表中的某个项目时，文本字段将提供与该项目关联的文本。通过在同一字段中键入/更改某些内容来更新项目

Option Explicit

Private FileStr As String, StrArr() As String

Private Sub cmdSave_Click()

    Dim I As Long
    Open FileStr For Output As #1
    For I = 0 To lbxItems.ListCount - 1
        Print #1, lbxItems.List(I) & "," & StrArr(I)
    Next I
    Close #1

End Sub

Private Sub cmdUpdate_Click()

    StrArr(lbxItems.ListIndex) = txtDescript

End Sub

Private Sub Form_Load()

    Dim I As Long, J As Long
    Dim TempStr As String
    FileStr = App.Path & "\planner.txt"
    Open FileStr For Input As #1
    Do Until EOF(1)
        Line Input #1, TempStr
        J = InStr(TempStr, ",")
        lbxItems.AddItem Left$(TempStr, J - 1)
        TempStr = Mid$(TempStr, J + 1)
        ReDim Preserve StrArr(I)
        StrArr(I) = TempStr
        I = I + 1
    Loop
    Close #1

End Sub

Private Sub lbxItems_Click()

    txtDescript = StrArr(lbxItems.ListIndex)

End Sub

该代码的设计使其可以与手动插入“planner.txt”文件的其他项目一起使用。如果执行此操作，请确保在项目名称后面加逗号（，）

---

如果按原样将代码直接复制并粘贴到表单代码模块中，请确保根据需要更新控件名称。

@puropoix感谢您的回答。它需要每周工作一次。这是一周的计划。日期不重要。可能是的副本