Searching for specific word in a text file 1

[djhawthorn]

How would I go about searching for a specific word in a text file? At the moment I have this function:

Function LogFileSearch (LogFileLocation, SearchString)
TempChars = ""
SearchStringFound = false

If not WshFileSys.FileExists(LogFileLocation) Then
Msgbox "Could not open the log file " & LogFileLocation & ". Script will now exit.", VBOKonly + VBCritical, "Log File Search"
Wscript.Quit
End If

Set LogFile = WshFileSys.OpenTextFile(LogFileLocation)

Do While ((LogFile.AtEndOfStream <> True) and (TempChars <> SearchString))
TempChars = LogFile.Read(len(SearchString))

If TempChars = SearchString Then
SearchStringFound = true
End If

LogFile.SkipLine
Loop

LogFile.Close

LogFileSearch = SearchStringFound
End Function

Which sort of works, but is not quite functional (it only searches the first x characters in the text file from every line).

What I need is to search every word (words seperated by the space character) in every line, and when (if) it finds a match, it will return true. Can someone improve the above script, or point me in the right direction?

 

[clarkin]

You probably want to do this with reg exps

Have a look here: thread329-632979

You have the right line-by-line approach though.

Here's a great reference to vbscript reg exps:

http://msdn.microsoft.com/library/d...tml/reconintroductiontoregularexpressions.asp

Let us know what you try we can certainly help if you're stuck with the actual reg exp.

Posting code? Wrap it with code tags: [ignore]

[/ignore][code]CodeHere

[ignore][/code][/ignore].

 

[djhawthorn]

Ok, before I look at regex's, I found this snippet of code:

Do Until objTextFile.AtEndOfStream
  strLine = objTextFile.ReadLine

  If InStr(strLine, StrSearchString) <> 0 Then
    WScript.echo strLine
  End If
Loop

Which works for looking for the string, but I have the problem where this will match anything. For example, if I had a log file containing either of

Error - the file something.txt was not found

or

The file C:\winnt\error.log was backed up

The above code would match both times. I need it to NOT pickup lines that have &quot;error&quot; in it unless &quot;error&quot; is a word on its own.


/me trundles off to look at regex's.

 

[clarkin]

Yes reg exps are your way forward - look at this snippet (in ASP, i'm sure you can change it to wsh):

Dim RegX, Match, matchesColl, sPattern, sString

sPattern = "\b(\w+?)\b"
sString = "Every word in this sentence." & vbCrLf & "This one's on a new line."

Set RegX = NEW RegExp
RegX.Pattern = sPattern
RegX.Global = True
RegX.IgnoreCase = True
RegX.MultiLine = True

Set matchesColl = RegX.Execute(sString)

Response.write(&quot;Searching: &quot; & sString & &quot;<br>&quot;)
For Each Match in matchesColl
  Response.Write(&quot;[&quot; & Match & &quot;]&quot;)
Next

Combined with line-by-line file reading, some twiddling of the pattern should get u what you want.

Posting code? Wrap it with code tags: [ignore]

[/ignore][code]CodeHere

[ignore][/code][/ignore].

 

[clarkin]

Have a look at this:

Dim RegX, Match, matchesColl, sPattern, sString

'sPattern = "\b(\w+?)\b" 'this pattern matches all words
sPattern = "\b(Error)\b[^.]" 'this pattern matches "error" when there isn't a . after it
sString = "Error - the file something.txt was not found" & vbCrLf & "The file C:\winnt\error.log was backed up"

Set RegX = NEW RegExp
RegX.Pattern = sPattern
RegX.Global = True
RegX.IgnoreCase = True
RegX.MultiLine = True

Set matchesColl = RegX.Execute(sString)

Response.write(&quot;Searching: &quot; & sString & &quot;<br>&quot;)
For Each Match in matchesColl
  Response.Write(&quot;[&quot; & Match.subMatches(0) & &quot;]&quot;)
Next

You should be able to loop through line by line and match stuff this way

Posting code? Wrap it with code tags: [ignore]

[/ignore][code]CodeHere

[ignore][/code][/ignore].

 

[djhawthorn]

Thanks heaps, trying it now.

MCSE NT4/W2K