[2003] Remove Items Read from file, from ListBox

[GrimmReaper]

Hello, me again...

OK, straight to the point.

I write folder names to a file like this :

    Private Sub WriteExcludeFolders()
        Dim SelFolders(clbExclude.CheckedItems.Count - 1) As String

        Dim i As Integer


        For i = 0 To clbExclude.CheckedItems.Count - 1
            SelFolders(i) = clbExclude.CheckedItems(i)

        Next i

        If File.Exists(Application.StartupPath & "ExcludedFolders.txt") Then
            File.Delete(Application.StartupPath & "ExcludedFolders.txt")
        End If

        srFile = New IO.StreamWriter("ExcludedFolders.txt")

        For i = 0 To SelFolders.Length - 1
            srFile.WriteLine(WallDir & "\" & SelFolders(i))

        Next

        srFile.Close()
    End Sub

As you can see, it is folders I'd like to exclude from file searches.

Now, when my program launches, I do this :

    Private Function ReadExcludeFolds(ByVal filePath As String) As String()

        Dim sr As System.IO.StreamReader
        Try
            sr = New System.IO.StreamReader(filePath)
            Return System.Text.RegularExpressions.Regex.Split(sr.ReadToEnd, "\r\n")
        Finally
            If Not sr Is Nothing Then sr.Close()
        End Try


    End Function

    Private Sub LoadExcludeFolds()
        Try
            ExcludeLines = ReadExcludeFolds("ExcludedFolders.txt")
            Dim ExcludeLine As String
            Dim ItemsFound As String
            Dim ItemCount As Integer = lstFound.Items.Count '- 1
            Dim I As Integer


            For I = 0 To ItemCount - 1
                For Each ExcludeLine In ExcludeLines
                    ItemCount -= 1 ' lstFound.Items.Count - 1
                    If I >= ItemCount Then Exit For

                    ItemsFound = lstFound.Items(I).ToString().Substring(0, lstFound.Items(I).ToString().LastIndexOf("\"))
                    If ExcludeLine.Equals(ItemsFound) Then


                        lstFound.Items.RemoveAt(I)
                                               NumFiles -= 1
                       
                        lblNumFiles.Text = NumFiles.ToString() & " Items In Repository"
                                           End If
                             Next
            Next I


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

What is supposed to happen is:
My program launches, I call the LoadExcludeFolds sub. This should read the contents of the textfile, and if it finds a folder listed in it, in the listbox, it should remove that item.

This only removes a few items.

So, say I have this in my text file :

C:\Testing\Images\Cars

And i have this in my listbox

C:\Testing\Images\Cars\BMW.jpg
C:\Testing\Images\Cars\Mercedes.jpg
C:\Testing\Images\Cars\Audi.jpg
C:\Testing\Images\Cars\Mazda.jpg

It will only remove BMW and Mercedes.

Any advice, any other way of doing this??

[HanneSThEGreaT]

I would change :

            For I = 0 To ItemCount - 1
                For Each ExcludeLine In ExcludeLines
                    ItemCount -= 1 ' lstFound.Items.Count - 1
                    If I >= ItemCount Then Exit For

                    ItemsFound = lstFound.Items(I).ToString().Substring(0, lstFound.Items(I).ToString().LastIndexOf("\"))
                    If ExcludeLine.Equals(ItemsFound) Then


                        lstFound.Items.RemoveAt(I)
                                               NumFiles -= 1
                       
                        lblNumFiles.Text = NumFiles.ToString() & " Items In Repository"
                                           End If
                             Next
            Next I

To :

            For I = (ItemCount - 1) To 0 Step -1
                For Each ExcludeLine In ExcludeLines
                    ItemCount -= 1

                    ItemsFound = lstFound.Items(I).ToString().Substring(0, lstFound.Items(I).ToString().LastIndexOf("\"))
                    If ExcludeLine.Equals(ItemsFound) Then

                        lstFound.Items.RemoveAt(I)

                        NumFiles -= 1

                        lblNumFiles.Text = NumFiles.ToString() & " Items In Repository"
                        Exit For
                    End If
                Next
            Next I

The trick is to loop backwards in the listbox