Searching for a particualr word in a text file,using VBA??

[tweety123]

Hi,

Please help me create a function that would return if a particular word exists in the given text file or not? I am working in automation testing too TestPartner which uses VBA scripting language

[manontheedge]

there's a built in function in VB and VBA called "instr"

it's format is --->
instr ( position to start search, string to search, what to search for)

so, for example, if you had a string "search for", then it would be
x = instr ( 1, "search for", "arc" )

(in your case, you would have a variable containing individual lines in the text file or the entire text file - in place of "search for" )

and x would be 3 ( VB starts at 1 instead of 0 )

if you need more, search for "instr" on the internet.

I guarantee whatever you're searching for in your document you can do it using "instr"

[Killer42]

Yes, the simplest (not necessarily best, depending on things like file size) would be to open the file in Binary mode and load it into a string in one action. Then use Instr to search it. For example, here's a very simple function which will accept a filename and a string, and tell you whether the string is found anywhere in the file...

Public Function StringExistsInFile(ByVal TheString As String, ByVal TheFile As String) As Boolean
  Dim L As Long, S As String, FileNum As Integer
  FileNum = FreeFile
  Open TheFile For Binary Access Read Shared As #FileNum
  L = LOF(FileNum)
  S = Space$(L)
  Get #1, , S
  Close #FileNum
  If InStr(1, S, TheString) Then
    StringExistsInFile = True
  End If
End Function

I believe this will work (haven't tested it) but there are things to keep in mind. For example, since this reads the entire file into memory, a huge file could cause problems. You can get around this by reading the file in smaller chunks, but that coimplicates things a bit because for example the search string could start in one chunk and finish in the next.

[tweety123]

Thankyou for the reply!

[tweety123]

Thankyou! this should help.

[tweety123]

I have written a simple code to search fro a particular word/words in a word doc:

Function fnSearchWordDoc(strPath, strSrTxt)
 
Set objWord = CreateObject("Word.Application")
Set A = objWord.Documents.Open(strPath)
 
'MsgBox A.Content.Text
Doctext = A.Content.Text
 
If InStr(Doctext, strSrTxt) <> 0 Then
   fnSearchWordDoc = "Text found in the document"
Else
   fnSearchWordDoc = "Text not found in the document"
End If
A.Close
 
objWord.Visible = False
Set objWord = Nothing
End Function
 

And for searching in a text file:

Function fnFindText(strFilePath, strSrTxt)
      strFileRes = fnFileExistence(strFilePath)
      If strFileRes = "File Exists" Then
         Const ForReading = 1
 
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set f = fso.OpenTextFile(strFilePath, ForReading, True)
         Do While f.AtEndOfStream <> True
            A = f.readline
            'MsgBox a
            If InStr(A, strSrTxt) <> 0 Then
               boolStFnd = "True"
               fnFindText = "Text found"
         Exit Do
            End If
         Loop
         If boolStFnd <> "True" Then
            fnFindText = "Text not found"
         End If
         f.Close
      Else
        fnFindText = "File does not exists"
      End If
    End Function

[dclark1330]

Regarding "I believe this will work (haven't tested it)":
Function StringExistsInFile works beautifully in Excel 2007 VBA, which is exactly what I needed and where I tested it. Thanks very much -- it's brilliant!
-- Dennis

[ashu dobriyal]

i like to tyy this.....thanx