Search a text file

[ImanMan]

hi
Am using the following code to search a textfile.The returned value will always be found in this case, is there any problem in the code??

Dim list As System.Collections.ObjectModel.ReadOnlyCollection _
        (Of String)
        list = My.Computer.FileSystem.FindInFiles("C:\Find", _
        Search.Text, True, FileIO.SearchOption.SearchTopLevelOnly)
 
 
        Dim i As Integer = 0
 
        For Each name As String In list
            RichTextBox1.Text = "(" & StringSearch.Text & ")" & " " & "Found" & "  " & name
            i = 1
            ' StatusText = " Found "
        Next
 
 
        If i = 0 Then
            ' StatusText = " Not Found "
            RichTextBox1.Text = StringSearch.Text & "  " & " Not Found"
        End If

[hariharanmca]

Am using the following code to search a textfile...

you can use FileExist to get it. do not use any for loop.

[Killer42]

you can use FileExist to get it. do not use any for loop.

Although I'm unfamiliar with the VB.Net syntax, I think the purpose here is to search a bunch of files to find those which contain a given string. I don't believe FileExist will provide that functionality.

Please correct me if I'm mistaken.

[Killer42]

Dim i As Integer = 0
For Each name As String In list
  RichTextBox1.Text = "(" & StringSearch.Text & ")" & " " & "Found" & "  " & name
  i = 1
Next
If i = 0 Then
  RichTextBox1.Text = StringSearch.Text & "  " & " Not Found"
End If

I assume the purpose of the above code is to determine whether there are any entries in the list collection. Can't you just check list.Count or something? At the very least, you should Exit For immediately rather than continuing to loop through all entries.

If this were a VB6 collection, I would expect to code something like

If list.Count = 0 Then
  RichTextBox1.Text = StringSearch.Text & "   Not Found"
End If

Oops! I see, you were trying to list the names of the files which were found. Well, your existing code will show the last name, not all of them. What you need to do is, each time around the For loop, add the name onto the end of RichTextBox1.Text, not replace it entirely.

So, perhaps something like this would make more sense...

If list.Count = 0 Then
  RichTextBox1.Text = StringSearch.Text & "   Not Found"
Else
  For Each name As String In list
    RichTextBox1.Text = RichTextBox1.Text & "(" & StringSearch.Text & ")" & " Found  " & name & vbNewLine
Next
End If

[ImanMan]

hello,

thanks for your reply but, this code is returning for me an always " Found" . What i am trying to do is to search a text file, for example "iman", if he found this string it will return found for me, if not it will return " not found " . Am always getting a found,which is sometimes false
thanks

[hariharanmca]

hello,

thanks for your reply but, this code is returning for me an always " Found" . What i am trying to do is to search a text file, for example "iman", if he found this string it will return found for me, if not it will return " not found " . Am always getting a found,which is sometimes false
thanks

anyhow, you are using file system object. just run a 'for loop' to search bunch of files with sysObjName.FileExist(<strFilePath>).

[Killer42]

anyhow, you are using file system object. just run a 'for loop' to search bunch of files with sysObjName.FileExist(<strFilePath>).

I assumed that the My.Computer.FileSystem.FindInFiles was achieving that.

[hariharanmca]

I assumed that the My.Computer.FileSystem.FindInFiles was achieving that.

Okay, but i never tryed that. And I don't have VB to try new.

[Killer42]

Okay, but i never tryed that. And I don't have VB to try new.

I've never seen or heard of it, either. I was just guessing, based on the name and context.