목록 상자에서 .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 파일을 읽고 응용 프로그램을 시작할 때마다 읽습니다. 또한 업데이트 할 수 있습니다.

그래서 basicly 내가 오늘 내가 그 파일에 저장할 월요일 설명을 작성하고 난 목록 상자에서 월요일을 선택할 때마다 그것이 이것은 TEXTFILE의 각 한 줄을 읽고 추가 할 것이다 나에게의 그런 설명

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 

참고 :

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 개 항목과 textlines의 텍스트 읽기 [의