Saving ListBox items to a file

I'm making a program that contains a listbox where you can enter a combination of 3 letters and 3 numbers into one line. Since that's not the point lets keep going. I've tried many ways to make it save the ListBox data to a file. Not only that but it also has to load the data when the program starts up. How do I do that? Just for info, the user can only enter a maximum of 50 combinations, but he could enter less if he wishes to!

This is all you will need to load and save a listbox to a file.

Code:

---

Public Sub List_Add(List As ListBox, txt As String)
List.AddItem txt
End Sub

Public Sub List_Load(TheList As ListBox, FileName As String)
On Error Resume Next
Dim TheContents As String
Dim fFile As Integer
fFile = FreeFile
 Open FileName For Input As fFile
  Do
    Line Input #fFile, TheContents$
        Call List_Add(TheList, TheContents$)
  Loop Until EOF(fFile)
 Close fFile
End Sub

Public Sub List_Save(TheList As ListBox, FileName As String)
On Error Resume Next
Dim Save As Long
Dim fFile As Integer
fFile = FreeFile
Open FileName For Output As fFile
  For Save = 0 To TheList.ListCount - 1
      Print #fFile, TheList.List(Save)
  Next Save
Close fFile
End Sub

---

Try this.

Code:

---

Private Sub Command1_Click(Index As Integer)
    'Save the contents
    Open "MyList" For Output As #1
        For I = 0 To List1.ListCount - 1
            Print #1, List1.List(I)
        Next I
    Close #1
End Sub

Private Sub Command2_Click()
    'Load the Contents
    Open "MyList" For Input As #1
        Do While Not EOF(1)
            Line Input #1, tmp
            List1.AddItem (tmp)
        Loop
    Close #1
End Sub

---

Matthew: Why are you passing through a function just to add to a ListBox? It's much faster if you do it directly

Code:

---

List1.Additem "MyText"

---

Couldn't you just open a file for output(or append) and use a for each listbox index? Then print the text to the file. Then use a
do while not eof(x)
input #1,y
listbox.additem y
loop
to open it?

Quote:

---

Megatron Matthew: Why are you passing through a function just to add to a ListBox? It's much faster if you do it directly

---

I guess you could easily do it using a simple command. I didn't know it slows it down. But I you are probably correct, it does have to call it and that would slow it down by a few milliseconds, when it could easily be directed to. My mistake! Sorry about that.

Code:

---

Public Sub List_Load(TheList As ListBox, FileName As String)
On Error Resume Next
Dim TheContents As String
Dim fFile As Integer
fFile = FreeFile
 Open FileName For Input As fFile
  Do
    Line Input #fFile, TheContents$
        TheList.Additem (TheContents$)
  Loop Until EOF(fFile)
 Close fFile
End Sub

---