How do I save items in a listbox into a .txt file

Question

0.00/5 (No votes)

See more:

I need help in saving contents from a listbox and when you click a save button, you can save what is in the listbox into a .txt file.

I need to do this for a project and i would really like some help on how to do this.

This is what I had, and when i tried to open it, it wouldn't work:

VB

Dim sNewName As String
CommonDialog1.DialogTitle = "Enter Name To Save File As"
CommonDialog1.Filter = "Text File (*.txt)  |  *.txt"
CommonDialog1.ShowSave
sNewName = CommonDialog1.filename
MsgBox sNewName
If sNewName <> "" Then
    Open sNewName For Output As #1
    Print #1,
    Close #1
    sFileName = sNewName
End If

this is the code that i had for opening the items into the listbox:

VB

CommonDialog1.DialogTitle = "Enter Name Of File To Open"
CommonDialog1.Filter = "Txt Files (*.txt)  |  *.txt"
CommonDialog1.ShowOpen
sFileName = CommonDialog1.filename
If sFileName = "" Then Exit Sub
Open sFileName For Input As #1
For i = 1 To MAXLINES
    If EOF(1) Then Exit For
    Line Input #1, strline
    strline = Trim(strline)
    If Len(strline) <> 0 Then List1.AddItem strline
Next i
Close #1
lbl1count = List1.ListCount
cityname = InputBox("What is the Name of the City?", "Name of City")
lbl1city.Caption = cityname
Exit Sub

maybe this will help.

Posted 9-May-14 8:58am

CodeMaster9

Updated 9-May-14 9:12am

v3

Add a Solution

Comments

[no name] 9-May-14 15:00pm

Okay so show us what you have tried, describe what the problem is with your code and we will see if we can help you.

DamithSL 9-May-14 15:08pm

update the question with how you load items to listbox

[no name] 9-May-14 15:10pm

Well you are missing a For loop to iterate through your listbox items and your Print statement is missing what it is that you want to save to your file.

CodeMaster9 9-May-14 15:12pm

what do i put for the print statement, that is confusing me

[no name] 9-May-14 15:23pm

Try List1.Items(i) or replace "i" with the variable that you use in your For loop.

CodeMaster9 9-May-14 15:25pm

where specifically

[no name] 9-May-14 15:31pm

Specifically, "Print #1, List1.Items(i)"

[no name] 9-May-14 15:24pm

I'm absolutely not the expert, but maybe it helps anyway. In my very old tool bcb6 for such items there is a method TString::SaveToFile and it's contra TString::LoadFromFile available....hope for you, that these "up to date" tools are the same comfortable...;)

CodeMaster9 9-May-14 15:26pm

that wont work in vb6

CodeMaster9 9-May-14 15:26pm

maybe that is for .NET

[no name] 9-May-14 15:34pm

you are most probably right. But Maciej seems to have a solution for you ;)

[no name] 9-May-14 15:40pm

Looks like Borland C++ Builder.

[no name] 9-May-14 16:06pm

still.....unfortunately yes :( I'm crying, but nobody (my chief[s]) hear me. 
I think about to ask a question here who can help me to get rid of bcb :) 
Regards, Bruno 
 
Ok the Background of bcb6 dfm (vs. xaml and all the other background automated created sh*t.cs from MS )is still better and much more straight forward ;)

But Embarcadero vs MS is similar idle63 vs Wes Aday *g*

[no name] 9-May-14 16:37pm

Nah.... I actually liked BCB back in the day. Borland just couldn't keep up. I don't know that they will ever dig themselves out but working with Borland doesn't pay the bills and working with Microsoft does. :-)

[no name] 9-May-14 19:03pm

I liked it also, but it seems to be past. The pain is, that MS did not recognized, that also a web web frontend can be defined easier then xaml.....Overkill ^63. It is like it is....

CodeMaster9 9-May-14 15:34pm

It worked, thanks guys

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2014-05-09T09:31:00

Solution 1

You need to loop through the collection of ListBox items.

VB

Open ... AS #1
For i = 0 to ListBox1.ListCount -1
    Print #1, ListBox1.List(i)
Next i
Close #1

Posted 9-May-14 9:31am

Maciej Los

Comments

[no name] 9-May-14 15:38pm

Why Maciej, you wrote VB6 code! Going over to the Dark Side? :-)

Maciej Los 9-May-14 15:44pm

I'm not Vader ;)

[no name] 9-May-14 15:46pm

I don't know... Maciej Vader has a nice ring to it... :-) Or would it be Darth Maciej? lol 5 anyway.

Maciej Los 9-May-14 15:51pm

Thank you, Wes ;)

joshrduncan2012 9-May-14 16:22pm

Nice Maciej! :) My +5 too!

Maciej Los 9-May-14 16:24pm

Thank you ;)

[no name] 9-May-14 16:32pm

Back to the future 5 ;)

Maciej Los 9-May-14 16:35pm

Where is the future? What is the future? The Dark Side surrounds me ;)
Thank you ;)

[no name] 9-May-14 16:46pm

the dark side of the moon? http://www.youtube.com/watch?v=7-h7emiZgBo
:)
Ok I don't know wheter you recognize the Songs there, for me it is still the top, but take into acount I'm pretty old ;)

Maciej Los 9-May-14 16:59pm

On your account i can't find any information about you (biography, age, etc.). Do you have LinkedIn account? If yes, invite me. Link to my account on LinkedIn you'll find on my profile.
Pink Floyd is not my "the most favorite", but one of them. ;( I really do like The Doors, Black Sabbath and many others bands playing good rock! ;)

[no name] 9-May-14 17:27pm

*lol* do you want me to solve this? Maciej Łoś vs Maciej Los ...no comprender, solamente hablar español; no realemente hablar alemán en primero;) 
 
hmmm.....don't found for sure your li acc. At least three possibiities

[no name] 9-May-14 17:57pm

Anyway it is not a secret, I'm : https://www.linkedin.com/pub/bruno-sprecher/3a/231/59a

Maciej Los 10-May-14 7:15am

Uppsss..... I can't invite you ;(

[no name] 10-May-14 7:28am

Why not?

Maciej Los 10-May-14 7:39am

It strange... When i visited your profile, i found the following options: 1.) Get introduced, 2) Find references, 3) Block ot Report.
I can try do it using first option, via sending mail to Sergey. I think you can invite me without any problems.

[no name] 10-May-14 7:46am

yep, it is strange....I faced this a lot of time. I send an Invitation to Maciej Los "Zastępca Dyrektora". Hope you recive it.
Regards, Bruno

Maciej Los 10-May-14 7:57am

Great! Invitation accepted. Message has been sent!

[no name] 10-May-14 8:01am

Yes great! It took only about 16 hours *g*

Maciej Los 10-May-14 8:05am

Thanks God, only 16 hours!
:laugh:

Maciej Los 10-May-14 7:13am

I can guarantee that Maciej Los and Maciej Łoś is the same person ;) Who else can edit my profile?