Ad:

VB.NET Discussion Thread
Unsolved
Views: 7612

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Oct 21st, 2008

loading content of text file into a listbox

Expand Post »

I need to load the contents of a text file (itemInfo.txt) into a list box, I am on the wrong track, can someone please help.

VB Syntax (Toggle Plain Text)
Public Class MainForm
    Private path As String = "L:\Visual Basic\SequentialHW\"
 
    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        itemListBox.Items.Clear()
        itemListBox.Items.Add(path & "itemInfo.txt")
 
    End Sub
Public Class MainForm
    Private path As String = "L:\Visual Basic\SequentialHW\"

    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        itemListBox.Items.Clear()
        itemListBox.Items.Add(path & "itemInfo.txt")

    End Sub

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

Try this:

VB.NET Syntax (Toggle Plain Text)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")
        Dim b As String() = a.Split(vbNewLine)
        itemListBox.Items.AddRange(b)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")
        Dim b As String() = a.Split(vbNewLine)
        itemListBox.Items.AddRange(b)
    End Sub

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

or if you want to do it in one line:
itemListBox.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt"), vbNewLine))

Last edited by waynespangler; Oct 22nd, 2008 at 7:22 am.

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

It worked thanks, your code worked and I had the wrong path.
This is the information that is in the itemInfo.txt file

Shirt 11.99
Shoes 14.99
Jacket 25.99
Socks 8.99
Gloves 4.99

I actually should have specified that I only need to load the item name into the list box and upon clicking the item name the price shows up in a separate label box. Any help would be greatly appreciated again, thank you.

Last edited by bpacheco1227; Oct 22nd, 2008 at 9:55 am.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

anyone have any thoughts on this one I can't figure out how to have the program recognize just the first word and reference the price that's associated with that item and place just that price in a label box.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

You should be able to just split the string on the space character, and just loop through the array of items. Kinda like this:

VB Syntax (Toggle Plain Text)
 
       Dim paths() As String
        Dim path As String = "www.test.com"
        Dim itemlistbox As ListBox
        Dim num As Integer
 
paths = Split(My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt"), vbNewLine)
 
For J = 0 To paths.Length()
            num = paths(J).IndexOf(Chr(32))
            itemlistbox.Items.Add(paths(J).Substring(0, num + 1))
        Next
       Dim paths() As String
        Dim path As String = "www.test.com"
        Dim itemlistbox As ListBox
        Dim num As Integer
        
paths = Split(My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt"), vbNewLine)
        
For J = 0 To paths.Length()
            num = paths(J).IndexOf(Chr(32))
            itemlistbox.Items.Add(paths(J).Substring(0, num + 1))
        Next

Last edited by cellus205; Oct 22nd, 2008 at 5:25 pm. Reason: code tags

cellus205

Reputation Points: 10

Solved Threads: 3

Junior Poster in Training

Offline

57 posts
since May 2007

Permalink

Oct 22nd, 2008

Re: loading content of text file into a listbox

thanks for the help but I need Daniweb just a little more , ok I got to segregate the line into itemname now how do I display the price in a label called priceLabel upon clicking the appropriate item name

VB Syntax (Toggle Plain Text)
Public Class MainForm
    'Private path As String = "L:\Visual Basic\"
 
    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim paths() As String
        Dim path As String = "L:\Visual Basic\"
        Dim i As Integer
        '        Dim itemlistbox As ListBox
        Dim num As Integer
        'Dim a As String = My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")
        'Dim b As String() = a.Split(CChar(vbNewLine))
 
        paths = Split(My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt"), vbNewLine)
        'itemListBox.Items.Clear()
        'itemListBox.Items.AddRange(b)
        For i = 0 To paths.Length()
            num = paths(i).IndexOf(Chr(32))
            itemlistbox.Items.Add(paths(i).Substring(0, num + 1))
        Next
 
        'itemListBox.Items.Clear()
        'My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")
 
        'itemListBox.Items.Add(path & "itemInfo.txt")
 
    End Sub
Public Class MainForm
    'Private path As String = "L:\Visual Basic\"

    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim paths() As String
        Dim path As String = "L:\Visual Basic\"
        Dim i As Integer
        '        Dim itemlistbox As ListBox
        Dim num As Integer
        'Dim a As String = My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")
        'Dim b As String() = a.Split(CChar(vbNewLine))

        paths = Split(My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt"), vbNewLine)
        'itemListBox.Items.Clear()
        'itemListBox.Items.AddRange(b)
        For i = 0 To paths.Length()
            num = paths(i).IndexOf(Chr(32))
            itemlistbox.Items.Add(paths(i).Substring(0, num + 1))
        Next

        'itemListBox.Items.Clear()
        'My.Computer.FileSystem.ReadAllText(path & "itemInfo.txt")

        'itemListBox.Items.Add(path & "itemInfo.txt")

    End Sub

sorry for all the comments I was commenting things in and out alot

Last edited by bpacheco1227; Oct 22nd, 2008 at 11:47 pm.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 23rd, 2008

Re: loading content of text file into a listbox

any ideas about this one guys?

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Oct 24th, 2008

Re: loading content of text file into a listbox

One way is you can store the prices in an array, and u can store those in the same loop as the items.

VB Syntax (Toggle Plain Text)
Dim prices() As String
 
For i = 0 To paths.Length()
 
num = paths(i).IndexOf(Chr(32))
 
itemlistbox.Items.Add(paths(i).Substring(0, num + 1))
prices(i) = paths(i).Substring(num + 1)
 
Next
Dim prices() As String

For i = 0 To paths.Length()

num = paths(i).IndexOf(Chr(32))

itemlistbox.Items.Add(paths(i).Substring(0, num + 1))
prices(i) = paths(i).Substring(num + 1)

Next

Then in the function that handles the itemListbox.Selected event, just add

MyLabel.Text = prices(itemListBox.SelectedIndex)

cellus205

Reputation Points: 10

Solved Threads: 3

Junior Poster in Training

Offline

57 posts
since May 2007

Permalink

Oct 27th, 2008

Re: loading content of text file into a listbox

Thanks for the reply but when I try the code like this I get a "Warning 1 Variable 'prices' is used before it has been assigned a value. A null reference exception could result at runtime. L:\Visual Basic\SequentialHW\Form1.vb 24 13 SequentialHW"

I don't understand why prices would not have a value at this point in the code. Any further assistance would be greatly appreciated.

Last edited by bpacheco1227; Oct 27th, 2008 at 2:09 pm.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Sample Project Uploaded

Next Thread in VB.NET Forum Timeline: get the selected row in datagridview

DaniWeb Message

Cancel Changes

User Name
Password