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

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

像这样的事情

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文件，并在每次启动应用程序时从它读取。也可用于更新。

所以basicly，如果我写的说明，今天是星期一，我想保存到文件，每次我选择从列表框中周一一次显示的我，说明

来源

2014-09-05 Anel_Hodzic

的[阅读从文本中可能重复。由列表框请求]（http://stackoverflow.com/questions/25686012/read-text-from-txt-by-the-listbox-request） – Hrqls 2014-09-08 12:30:04

这将读取一个文本文件每个一行，并添加它以一个列表字符串

编辑：

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

注：第一次添加为一个导入的正则表达式

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

来源

2014-09-05 07:01:06 Enumy

谢谢你的回答。所以我需要为每一天添加7个不同的'.txt'文件。并取决于列表框中选择哪一天从该文件加载文本？ – 2014-09-05 07:05:30

@Anel_Hodzic这是你想要的吗？ – Enumy 2014-09-05 07:37:53

这只是列表框的另一种方法。我管理某种方式来保存/读取'.txt'的值到'listbox'。现在我想要当我从'listbox'例子'txtdescription'中的星期一选择了一些东西，我有周一的自定义文本，并且想显示它。周二和其他日子一样。所以基本上我为不同的日子添加不同的事情，我需要做的事情，每当我运行应用程序，我选择了一天，它显示了我的事情，我需要到选定的一天。我希望我多解释一下 – 2014-09-05 07:43:54

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

回答

相关问题