VB
An object-oriented programming language developed by Microsoft that is implemented on the .NET Framework. Previously known as Visual Basic .NET.
2,837 questions
Index Files and then Search Index Efficient
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(89.60000000000001, 95%, 18%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EMM%3C/text%3E%3C/svg%3E)
Marc Menzel
101
Reputation points
I am attempting to build a file command index for searching. I have the following code; however it consumes system resources and freezes the program at times.
`Private Sub ListBackgroundWorker_DoWork(sender As Object, e As DoWorkEventArgs) Handles ListBackgroundWorker.DoWork`
```` Dim SelectedCommandListString As List(Of String) = New List(Of String)`
` Dim SelectedCommandListItem As String = ""`
` Dim EnteredCommandText As String = CType(e.Argument, String)`
` If CommandListBoxMode = CommandListType.File Then`
` ' Filter the CombinedList based on the entered command text`
` SelectedCommandList = SearchFileList.Where(Function(x) _`
` ((x.FileName.StartsWith(EnteredCommandText, StringComparison.OrdinalIgnoreCase) = True))).ToList`
` Else`
` SelectedCommandList = CombinedList.Where(Function(x) _`
` ((x.FileName.StartsWith(EnteredCommandText) = True))).ToList`
` End If`
` SelectedCommandListString = SelectedCommandList.Select(Function(x) If(x.FilePath <> "None", x.FileName & " " & x.FilePath, x.FileName)).Where(Function(x) x IsNot Nothing).ToList()`
` ' Pass the results to the RunWorkerCompleted event`
` e.Result = SelectedCommandListString`
` End Sub`
Is there a more efficient way of accomplishing this?
VB
{count} votes
-
Viorel 121.4K Reputation points2025-04-24T04:48:18.1733333+00:00 Which of the lines is consuming resources during step-by-step execution with Debugger? Maybe the problem is not only here.
-
Marc Menzel 101 Reputation points
2025-04-24T07:01:07.7+00:00 I may have already solved the memory issue by eliminating other lists in my program. However, is there a more efficient way to accomplish the task that the following code completes
Private Sub ListBackgroundWorker_DoWork(sender As Object, e As DoWorkEventArgs) Handles ListBackgroundWorker.DoWorkDim SelectedCommandListString As List(Of String) = New List(Of String)Dim SelectedCommandListItem As String = ""Dim EnteredCommandText As String = CType(e.Argument, String)If CommandListBoxMode = CommandListType.File Then' Filter the CombinedList based on the entered command textSelectedCommandList = SearchFileList.Where(Function(x) _((x.FileName.StartsWith(EnteredCommandText, StringComparison.OrdinalIgnoreCase) = True))).ToListElseSelectedCommandList = CombinedList.Where(Function(x) _((x.FileName.StartsWith(EnteredCommandText) = True))).ToListEnd IfSelectedCommandListString = SelectedCommandList.Select(Function(x) If(x.FilePath <> "None", x.FileName & " " & x.FilePath, x.FileName)).Where(Function(x) x IsNot Nothing).ToList()' Pass the results to the RunWorkerCompleted evente.Result = SelectedCommandListStringEnd SubIs there a more efficient way of accomplishing this?
Sign in to comment
Sign in to answer