阅读文本由列表框要求
问题描述:
我想让这样的事情 阅读文本由列表框要求
例:喜欢的东西刨我写的东西,我需要为特定的天做,当我在ListBox一天选择它显示的我需要做什么。
所以,因为它会记住数据,它需要保存在某种.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”文件中的项目一起使用。如果您这样做,请确保您使用逗号(,)跟随项目名称。
如果将代码直接复制并粘贴到表单代码模块中,请确保根据需要更新控件名称。
@Plutonix谢谢你的回答。它需要每周工作。它的一周计划。日期不重要。 – 2014-09-05 12:44:21
可能重复的[从列表框保存到.txt文件并从开始加载](http://*.com/questions/25680002/save-from-listbox-to-txt-file-and-load-from-它上开始) – Deanna 2014-09-05 14:06:25