Writing Listbox Contents To A File
Hey,
I have a listbox on a form, and want to print the entire contents, row by row, out to a file.
So for instance, a listbox could have the following values:
Apple
Banana
Pear
Plum
Orange
I want to write each line out to the file such as the following:
Write #1, Line1, Line2, Line3, Line4, Line5 (For the entire contents of the listbox).
I understand I would probably use a For Loop, For a = 1 to List1.Listcount or whatever, or could use an alternative loop.
PS... Sorry about the overt simplification of this post, I thought it would be better to paraphrase it for clarification.
Thanks,
Snowblind.
Re: Writing Listbox Contents To A File
yes loop through
VB Code:
Open "c:\path\filename.txt" for output as #1
For x = 0 to list1.listcount - 1
print #1, list1.list(x)
next
Close #1
Re: Writing Listbox Contents To A File
Many thanks for your quick reply,
Regards,
Snowblind.
Re: Writing Listbox Contents To A File
To take what [LGS]Static posted, one step further, you can use this to both save, and then retrieve your listbox contents.
VB Code:
Private Sub SaveLoadListbox(plstLB As ListBox, pstrFileName As String, _
pstrSaveOrLoad As String)
Dim strListItems As String
Dim i As Long
Select Case pstrSaveOrLoad
Case "save"
Open pstrFileName For Output As #1
For i = 0 To plstLB.ListCount - 1
Print #1, plstLB.List(plstLB.ListIndex)
Next
Close #1
Case "load"
plstLB.Clear
Open pstrFileName For Input As #1
While Not EOF(1)
Line Input #1, strListItems
plstLB.AddItem strListItems
Wend
Close #1
End Select
End Sub
Private Sub cmdLoad_Click()
Call SaveLoadListbox(List1, "c:\path\filename.txt", "load")
End Sub
Private Sub cmdSave_Click()
Call SaveLoadListbox(List1, "c:\path\filename.txt", "save")
End Sub
Re: Writing Listbox Contents To A File
had to get all fancy didn't ya Hack ;)
(good idea)
Re: Writing Listbox Contents To A File
Hmmm, the code works well, but what I neglected to ask was if it was possible to print it all on one line?
So for instance, on my form there is a textbox and a listbox. In the textbox could be a word such as "fruit" and then in the list there could be lots of rows; "Banana", "Apple", "Pear" e.t.c, as they are all associated with that word.
Then, when the program writes the contents to a file, I would like the contents to look like this:
"Fruit", "Apple", "Pear", "Banana" all on one line
As opposed to:
Fruit
Apple
Pear
Banana
Is this easy enough to do?
Regards,
Snowblind.
Re: Writing Listbox Contents To A File
VB Code:
Dim StrBuff as string
For x = 0 to list1.listcount - 1
StrBuff = strbuff & list1.list(x) & ","
Next x
Open "c:\path\filename.txt" for output as #1
Print #1, strbuff
Close #1
easy enuff :wave:
Re: Writing Listbox Contents To A File
In fact, please ignore my previous post! I've found a way of doing it, I can have a string with all the listbox values in it, and then just write that string to a textfile.
Thanks for your help everyone,
Snowblind.
EDIT: After posting this, I realised I had a reply. Thanks for the reply, that's the same way I thought of doing it! Just took me a little longer to think it through!
Re: Writing Listbox Contents To A File
Quote:
Originally Posted by |2eM!x
VB Code:
Dim StrBuff as string
For x = 0 to list1.listcount - 1
StrBuff = strbuff & list1.list(x) & ","
Next x
Open "c:\path\filename.txt" for output as #1
Print #1, strbuff
Close #1
easy enuff :wave:
I have a question if you don't mind :rolleyes:
I edit the code to make it put the contents of the listbox in a text box:
For x = 0 to list1.listcount - 1
StrBuff = strbuff & list1.list(x) & vbcrlf
Next x
text1.text=strbuff
- The problem is that it will be always an extra empty line in the end of the Text Box
How can i do something like that:
text1.text=text1.text - vbcrlf ?
