[RESOLVED] help about listbox!!

[markirving]

hi guys, i am working on my search button that searches for the items in my listbox1. however, i have several problems.. one, is that i do not know how am i supposed to search in folder browsing dialog and two, i cannot search for the items inside my listbox1. any comments is very much appreciated. i am just a newbie and i think this is advanced for me, so please help me! thanks alot!

this is my code:

 For Each foundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories
_MyDocuments, FileIO.SearchOption.SearchAllSubDirectories) --> Note 1

            If listbox1.Items.Contains(foundFile) Then  --> Note 2

                listbox2.Items.Add(foundFile)  --> Note 3
            Else

                listbox3.Items.Add(foundFile) --> Note 4

            End If
        Next

note 1: i want to change the directory to a folder browse dialog not in my documents only
note 2: this are the items in the listbox that i am searching for
note 3: if found, the paths of the items will be displayed in this listbox
note 4: if it is not found, it will be displayed here

[.paul.]

try this:

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using fbd As New FolderBrowserDialog
            If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each foundFile As String In My.Computer.FileSystem.GetFiles(fbd.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories)
                    If ListBox3.FindStringExact(foundFile) > -1 Then
                        ListBox2.Items.Add(foundFile)
                    Else
                        ListBox3.Items.Add(foundFile)
                    End If
                Next
            End If
        End Using
 
    End Sub
End Class

[markirving]

hi paul, thanks for the reply..

the file that im going to search is a .wav file.. that is why i code it like this,

If ListBox3.FindStringExact(foundFile + ".wav") > -1 Then

                        ListBox2.Items.Add(foundFile + ".wav") --> if found displays here

                    Else

                        ListBox3.Items.Add(foundFile + ".wav") --> if not, here

                    End If

unfortunately, it still cannot search the items in listbox1, it displays all in the listbox3.

[.paul.]

instead of:

My.Computer.FileSystem.GetFiles(fbd.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories)

use this:

IO.Directory.GetFiles(fbd.SelectedPath, "*.wav", IO.SearchOption.AllDirectories)

[markirving]

yes it only searches for .wav files.

but my problem is this.. for example:

1.the items in listbox1 are superman, batman and flash.
2.now i only have superman.wav in my folder.
3.when i click the search button, listbox2 displays superman.wav but it also displays batman.wav and flash.wav
4.batman and flash should be displayed on listbox3 because i do not have batman.wav and flash.wav.

can you help me solve this? im really stuck with this. sorry for giving u a hardtime. thanks dude.

[.paul.]

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using fbd As New FolderBrowserDialog
            If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each foundFile As String In IO.Directory.GetFiles(fbd.SelectedPath, "*.wav", IO.SearchOption.AllDirectories)
                    If ListBox1.FindStringExact(foundFile) > -1 Then
                        ListBox2.Items.Add(foundFile)
                    Else
                        ListBox3.Items.Add(foundFile)
                    End If
                Next
            End If
        End Using
 
    End Sub
End Class

[markirving]

hey dude, i still have same results..

[.paul.]

ok. i found the problem. listbox1 doesn't have file extensions, right?

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using fbd As New FolderBrowserDialog
            If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each foundFile As String In IO.Directory.GetFiles(fbd.SelectedPath, "*.wav", IO.SearchOption.AllDirectories)
                    If ListBox1.FindStringExact(IO.Path.GetFileNameWithoutExtension(foundFile)) > -1 Then
                        'to add filenames without extensions
                        'ListBox2.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
                        ListBox2.Items.Add(foundFile)
                    Else
                        'ListBox3.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
                        ListBox3.Items.Add(foundFile)
                    End If
                Next
            End If
        End Using
 
    End Sub
End Class

[markirving]

wow! thanks dude! your the best!!

one last thing though, what if for example what i am searching has a file name of batman_opening.wav but the item in listbox1 only has batman in it? is there a way for me to search all of the file names that has batman in it?

[.paul.]

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using fbd As New FolderBrowserDialog
            If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each foundFile As String In IO.Directory.GetFiles(fbd.SelectedPath, "*.wav", IO.SearchOption.AllDirectories)
                    Dim contains = From item In ListBox1.Items _
                                   Where foundFile.Contains(item.ToString) _
                                   Select item
                    If contains.Count > 0 Then
                        'to add filenames without extensions
                        'ListBox2.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
                        ListBox2.Items.Add(foundFile)
                    Else
                        'ListBox3.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
                        ListBox3.Items.Add(foundFile)
                    End If
                Next
            End If
        End Using
 
    End Sub
 
End Class

[markirving]

perfect! i have a question though, there is a warning in foundfile in this line..

Dim contains = From item In ListBox1.Items _

                                   Where foundFile.Contains(item.ToString) _

                                   Select item

the warning is "using iteration variable in a query expression may have unexpected result"

what should i do about this? is it ok if i just disregard it?

many thanks dude, ive learned much from you.

[.paul.]

it should work ok. you can get rid of the warning by using another variable:

For Each foundFile As String In IO.Directory.GetFiles(fbd.SelectedPath, "*.wav", IO.SearchOption.AllDirectories)
    dim tempVar as string = foundFile 
    Dim contains = From item In ListBox1.Items _
                   Where tempVar.Contains(item.ToString) _
                   Select item

[markirving]

i see.. thanks again! very last last thing!

how can i copy all of the items that are listed in listbox2 to a folder?

can u correct the code that i have?

System.IO.File.Copy(listbox2.Items, fbCopyto.SelectedPath)

[.paul.]

try this. assuming listbox2 contains full file paths:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using fbCopyto As New FolderBrowserDialog
            If fbCopyto.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each file As String In ListBox2.Items
                    IO.File.Copy(file, IO.Path.Combine(fbCopyto.SelectedPath, IO.Path.GetFileName(file)))
                Next
            End If
        End Using
        
    End Sub
End Class

[markirving]

all done!! thank you very much!

[markirving]

hey dude, do you also know how to extract listbox3 into a excel file?

[markirving]

paul, can you help me with this one, i want to rename the file if the file name exists.. i cant seem to work out this code.


Dim x As Integer

x = 1

Try
                For Each file As String In listbox1.Items
                    IO.File.Copy(file, IO.Path.Combine(fbCopyto.SelectedPath, IO.Path.GetFileName(file)))
                    While IO.File.Exists(fbCopyto.SelectedPath & file)
                        file=  file & x & ".wav"
                        x += 1


                    End While
                Next

[.paul.]

can you post the full latest code you're using + i'll have a look

[markirving]

thanks for the reply paul, here is the latest code for the search button.

Dim x As Integer
x = 1

Try
                For Each file As String In listbox1.Items
                    IO.File.Copy(file, IO.Path.Combine(fbCopyto.SelectedPath, IO.Path.GetFileName(file)))
                    if IO.File.Exists(fbCopyto.SelectedPath & file)
                        file=  file & x & ".wav"
                        x += 1


                   endif 
                Next

[.paul.]

i can't understand how it fits in with the rest of the code from that.
i'd have a better idea of what you're trying to do if you post the full code.

[markirving]

actually paul, this is the full code of my button. what id like is when for example, batman.wav has already a copy or already existed in the selected path, it will try to copy another file name which will be named batman(1).wav

Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
      
Dim x As Integer
x = 1


        
            Try
                For Each file As String In listbox1.Items
                    IO.File.Copy(file, IO.Path.Combine(fbCopyto.SelectedPath, IO.Path.GetFileName(file)))
                    If IO.File.Exists(file) = True Then
                     file=  file & x & ".wav"
                        x += 1


                    End If
                Next

                MsgBox("Copied!!")


                lbFound.Items.Clear()
                lbNot.Items.Clear()

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

[.paul.]

Try
    'this is assuming ListBox1.Items are full file paths
    'which if i remember correctly they aren't
    For Each file As String In ListBox1.Items
        'here you'll need to convert file into a full file path
        Dim x As Integer = 1
        Dim dirPath As String = IO.Path.GetDirectoryName(file)
        Dim filename As String = IO.Path.GetFileNameWithoutExtension(file)
        Dim tempFilename As String = IO.Path.Combine(dirPath, filename & ".wav")
        Do While IO.File.Exists(tempFilename)
            tempFilename = IO.Path.Combine(dirPath, filename & "(" & x.ToString & ").wav")
            x += 1
        Loop
        IO.File.Copy(file, tempFilename)
    Next
 
    MsgBox("Copied!!")
 
 
    lbFound.Items.Clear()
    lbNot.Items.Clear()
 
Catch ex As Exception
    MsgBox(ex.Message)
End Try

[markirving]

wow man. thats great. may i know how do you come up with your codes? do you have an e-book or something?

[markirving]

very last problem, how can i display in listbox3 the all the items that does not have any match from listbox1'


for example, listbox1 has : batman.wav, superman.wav, ironman.wav, spiderman.wav

if it finds its match suppose batman.wav is the only things that has a match, it will be displayed on listbox2(which we already did)

then if not, superman.wav, ironman.wav, spiderman.wav will be displayed on listbox3

when i try to use this if then else statement, the items being displayed on listbox3 are the other .wav files inside the folder. do u have a solution for this one also?

If contains.Count > 0 Then

                'to add filenames without extensions

                'lisbox2.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))


                lisbox2.Items.Add(foundFile)

else

                    listbox3.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))

                    'listbox3.Items.Add(foundFile)

                
            End If

this is my current code for the search button:

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click



        For Each foundFile As String In IO.Directory.GetFiles(txtSearch.Text, "*.wav", IO.SearchOption.AllDirectories)

            Dim tempvar As String = foundFile
            Dim contains = From item In listbox1.Items _
                           Where tempvar.Contains(item.ToString) Select item
           


            If contains.Count > 0 Then

                'to add filenames without extensions

                'lisbox2.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))


                lisbox2.Items.Add(foundFile)


                If 'a line that displays all the items that does not have any match from listbox1' Then

                    listbox3.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))

                    'listbox3.Items.Add(foundFile)

                End If
            End If




        Next

       
    End Sub

[.paul.]

wow man. thats great. may i know how do you come up with your codes? do you have an e-book or something?

it's just experience + (sometimes) research online

[.paul.]

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
 
 
 
    For Each foundFile As String In IO.Directory.GetFiles(txtSearch.Text, "*.wav", IO.SearchOption.AllDirectories)
 
        Dim tempvar As String = foundFile
        Dim contains = From item In listbox1.Items _
                       Where tempvar.Contains(item.ToString) Select item
 
        If contains.Count > 0 Then
            'to add filenames without extensions
            'lisbox2.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
            ListBox2.Items.Add(foundFile)
        Else 'a line that displays all the items that does not have any match from listbox1' Then
            ListBox3.Items.Add(IO.Path.GetFileNameWithoutExtension(foundFile))
            'listbox3.Items.Add(foundFile)
        End If
 
    Next
 
    For Each item1 As String In ListBox1.Items
        Dim found As Boolean = False
        For Each item2 As String In ListBox2.Items
            If item2.Contains(item1) Then
                found = True
                Exit For
            End If
        Next
        If Not found Then ListBox3.Items.Add(item1)
    Next
    
 
End Sub

[markirving]

do you have a site that you can recommend me? i really want to be better using vb.net!


i have tried this code. the problem is that it found for example superman_opening.wav on listbox2 but still superman is still displayed on listbox3.. the weird thing that the first item in listbox3 has the correct output. (found batman_opening.wav in listbox2 and then did not display batman in listbox3)

  For Each item1 As String In ListBox1.Items

        Dim found As Boolean = False

        For Each item2 As String In ListBox2.Items

            If item2.Contains(item1) Then

                found = True

                Exit For

            End If

        Next

        If Not found Then ListBox3.Items.Add(item1)

    Next

[.paul.]

try www.homeandlearn.co.uk

what is the exact format of the list in listbox1?

[markirving]

what do u mean exact format?

what i did there is that it opens a csv file then gets the column of the excel file and then the column will be the items listed in listbox1.

[markirving]

this you start from www.homeandlearn.co.uk as well?

[.paul.]

in listbox1 is it batman or batman.wav?
i assumed after reading your earlier questions that you wanted the items in listbox1 that hadn't been added to listbox2 should be added to listbox3?

[markirving]

batman only. yes your correct.

i tried to debug the code:

  For Each item1 As String In ListBox1.Items

        Dim found As Boolean = False

        For Each item2 As String In ListBox2.Items

            If item2.Contains(item1) Then

                found = True

                Exit For

            End If

        Next

        If Not found Then ListBox3.Items.Add(item1)

    Next

i have noticed that item2 never changes its value, it is always ("c:\batman.wav") maybe that is the reason why after batman.wav (first item in listbox1) the items after batman.wav like superman displays listbox3 even though superman.wav is added on listbox2

[.paul.]

For Each item1 As String In ListBox1.Items
 
        Dim found As Boolean = False
 
        For Each item2 As String In ListBox2.Items
 
            If item2.Contains(IO.Path.GetFileNameWithoutExtension(item1)) Then
 
                found = True
 
                Exit For
 
            End If
 
        Next
 
        If Not found Then ListBox3.Items.Add(item1)
 
    Next

if you read through it step by step you'll see that it first loops through listbox1.items, then for each item loops through listbox2.items + checks them.

i didn't learn programming @ www.homeandlearn.co.uk, i've been programming since the early 90s + it wasn't around then, but it's a good place to learn

[markirving]

i see..i got a long way ahead then. lol

same output dude, hmm.. why does item2 does not change its value even though it has finished 1 loop, item2 still does not change but item1 does.

[.paul.]

it works ok for me. here's an example project:

[markirving]

hey paul. fixed the problem, i forgot to put next before the loop. thank you very much for your help. i hope to be a good vb programmer like you. thanks again and good luck to your projects!