VB.NET

VB.NET RSS

search text in a doc file

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Jan 2007

Posts: 47

Reputation: kapil.goyal is an unknown quantity at this point

Solved Threads: 0

kapil.goyal kapil.goyal is offline

Offline

Light Poster

search text in a doc file

Apr 13th, 2007

how i can check any text string in a doc file.the searchinh should be fast as i have to do other code if it found the string

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: search text in a doc file

Apr 14th, 2007

Are you talking about a file on disk or loaded into a richtext or text box? The latter two can be done with the InStr function.
Unles you want to load the file into memory the first is a lot harder and slower to do.

•

Join Date: Jan 2007

Posts: 47

Reputation: kapil.goyal is an unknown quantity at this point

Solved Threads: 0

kapil.goyal kapil.goyal is offline

Offline

Light Poster

Re: search text in a doc file

Apr 16th, 2007

•

Originally Posted by waynespangler

Are you talking about a file on disk or loaded into a richtext or text box? The latter two can be done with the InStr function.
Unles you want to load the file into memory the first is a lot harder and slower to do.

i m talking abt file on disk.i want to search the text in the file content.any solution.if it slow might be work but at least give me solution

thanks

•

Join Date: Apr 2007

Posts: 11

Reputation: wavalker is an unknown quantity at this point

Solved Threads: 1

wavalker

Offline

Newbie Poster

Re: search text in a doc file

Apr 16th, 2007

•

Originally Posted by kapil.goyal

how i can check any text string in a doc file.the searchinh should be fast as i have to do other code if it found the string

u can do one thing...

open the file/doc in input mode...
read line by line...
in every check weather ur string is present using instr(line,string)
it returns value > 0 if string is found.

•

Join Date: Jan 2007

Posts: 47

Reputation: kapil.goyal is an unknown quantity at this point

Solved Threads: 0

kapil.goyal kapil.goyal is offline

Offline

Light Poster

Re: search text in a doc file

Apr 16th, 2007

•

Originally Posted by wavalker

u can do one thing...

open the file/doc in input mode...
read line by line...
in every check weather ur string is present using instr(line,string)
it returns value > 0 if string is found.

i hav tried tat logic may be my code is wrong.can u provide me the code.frm ur logic it seems tat u r not a .net programmer.

•

Join Date: Aug 2005

Posts: 5,264

Reputation: iamthwee is a splendid one to behold

Solved Threads: 377

iamthwee

Offline

Posting Expert

Re: search text in a doc file

Apr 16th, 2007

>can u provide me the code.

We do not just provide code. If you are too lazy to even try then you might as well give up programming altogether.

*Voted best profile in the world*

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: search text in a doc file

Apr 16th, 2007

Send each filename and string you want to find to this function. It will return true if the string is found and false if the string is not found.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean
        Dim s As String = My.Computer.FileSystem.ReadAllText(FileName)
        If InStr(s, strSearch) Then
            Return True
        Else
            Return False
        End If
    End Function
    Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean
        Dim s As String = My.Computer.FileSystem.ReadAllText(FileName)
        If InStr(s, strSearch) Then
            Return True
        Else
            Return False
        End If
    End Function

•

Join Date: Jan 2007

Posts: 47

Reputation: kapil.goyal is an unknown quantity at this point

Solved Threads: 0

kapil.goyal kapil.goyal is offline

Offline

Light Poster

Re: search text in a doc file

Apr 17th, 2007

•

Originally Posted by waynespangler

Send each filename and string you want to find to this function. It will return true if the string is found and false if the string is not found.
Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
    Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean
        Dim s As String = My.Computer.FileSystem.ReadAllText(FileName)
        If InStr(s, strSearch) Then
            Return True
        Else
            Return False
        End If
    End Function
Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean Dim s As String = My.Computer.FileSystem.ReadAllText(FileName) If InStr(s, strSearch) Then Return True Else Return False End If End Function

there is no such method filesystem.readalltext in framewrok1.1.how can i read file in string format?

•

Join Date: Apr 2007

Posts: 2

Reputation: kk_dj is an unknown quantity at this point

Solved Threads: 0

kk_dj

Offline

Newbie Poster

Re: search text in a doc file

Apr 26th, 2007

•

Originally Posted by waynespangler

Send each filename and string you want to find to this function. It will return true if the string is found and false if the string is not found.
Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
    Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean
        Dim s As String = My.Computer.FileSystem.ReadAllText(FileName)
        If InStr(s, strSearch) Then
            Return True
        Else
            Return False
        End If
    End Function
Private Function CheckFile(ByVal FileName As String, ByVal strSearch As String) As Boolean Dim s As String = My.Computer.FileSystem.ReadAllText(FileName) If InStr(s, strSearch) Then Return True Else Return False End If End Function

What happen if the file size is 100 MB ?

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: search text in a doc file

#10

Apr 27th, 2007

I don't know about 100mb you might try it. If it doesn't work then you will have to do it as wavalker said:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FindStringInFile("c:\test.txt", "gooder") Then
            MessageBox.Show("found")
        Else
            MessageBox.Show("not found")
        End If
    End Sub
 
    Public Function FindStringInFile(ByVal Filename As String, ByVal SearchString As String) As Boolean
        Dim Reader As System.IO.StreamReader
        Reader = New IO.StreamReader(Filename)
        Dim stringReader As String
        Try
            While Reader.Peek <> -1
                stringReader = Reader.ReadLine()
                If InStr(stringReader, SearchString) > 0 Then Return True
            End While
            Reader.Close()
            Return False
        Catch ex As Exception
            MessageBox.Show("Exception: " & ex.Message)
            Return False
        End Try
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FindStringInFile("c:\test.txt", "gooder") Then
            MessageBox.Show("found")
        Else
            MessageBox.Show("not found")
        End If
    End Sub

    Public Function FindStringInFile(ByVal Filename As String, ByVal SearchString As String) As Boolean
        Dim Reader As System.IO.StreamReader
        Reader = New IO.StreamReader(Filename)
        Dim stringReader As String
        Try
            While Reader.Peek <> -1
                stringReader = Reader.ReadLine()
                If InStr(stringReader, SearchString) > 0 Then Return True
            End While
            Reader.Close()
            Return False
        Catch ex As Exception
            MessageBox.Show("Exception: " & ex.Message)
            Return False
        End Try
    End Function

Hopefully this will work in vb 2003 as I only have vb 2005.