Hi,



I have to write a VBScript function that caters following requirements:

Search in text/csv file:

- String, List of string, List all types of search in text file.
- Search through regular expression
- Check of CASE sensitive search (flag)

Return: Keyword, line number, number of occurrence and searched string
Return Example:
Win, 10, 2, Windows
Win, 11, 1, Win
Win, 12, 3, Winner

Can anybody help me out in this?

"Check" <guest@newsgroup-email.com> wrote in message
news:e444613feecf86b13d774acf0663588d@newsgroup-gateway.com...

>
> Hi,
>
> I have to write a VBScript function that caters following requirements:
>
> Search in text/csv file:
>
> - String, List of string, List all types of search in text file.
> - Search through regular expression
> - Check of CASE sensitive search (flag)
>
> Return: Keyword, line number, number of occurrence and searched string
> Return Example:
> Win, 10, 2, Windows
> Win, 11, 1, Win
> Win, 12, 3, Winner
>
> Can anybody help me out in this?
> --
> Check

A good starting point would be for you to have a go at the code yourself,
then ask for help or clarification if you get stuck at a certain point.
Alternatively you could pay someone to deliver turn-key solutions for your
scripting requirements.

"Pegasus [MVP]" <news@newsgroup> wrote in message
news:Oq455w65KHA.980@newsgroup

>
>
> "Check" <guest@newsgroup-email.com> wrote in message
> news:e444613feecf86b13d774acf0663588d@newsgroup-gateway.com...

>>
>> Hi,
>>
>> I have to write a VBScript function that caters following requirements:
>>
>> Search in text/csv file:
>>
>> - String, List of string, List all types of search in text file.
>> - Search through regular expression
>> - Check of CASE sensitive search (flag)
>>
>> Return: Keyword, line number, number of occurrence and searched string
>> Return Example:
>> Win, 10, 2, Windows
>> Win, 11, 1, Win
>> Win, 12, 3, Winner
>>
>> Can anybody help me out in this?
>> --
>> Check

>
> A good starting point would be for you to have a go at the code yourself,
> then ask for help or clarification if you get stuck at a certain point.
> Alternatively you could pay someone to deliver turn-key solutions for your
> scripting requirements.

I'm not sure I understand your requirements. For example, is searched string
the complete line, or just the "word" of the line that contained the string?
And, how can number of occurrences be 2 if "searched string" is "Windows"?

In any case, I have an example VBScript program I use all the time to search
many files in a folder structure for those that contain specified strings
(up to 3). The program has a switch to make the searches case sensitive.
This does more than you seem to want, but does not indicate the line number
in the files where the text was found, just which files contained the
string(s). I also do not use regular expressions, but the InStr function.
The program is linked here:

http://www.rlmueller.net/FindFiles.htm

I was going to modify this to indicate line numbers, but I realized it would
take a bit of code, and also slow down the search. The program linked above
uses the ReadAll method of the File object to read the entire file contents
at once. To get what you seem to want the program would need to read the
file one line at a time (using the ReadLine method), count the lines, output
everytime a line has the string(s), and not stop until all lines have been
read. Perhaps this is something you could code. Also, the program would be
much simpler if you modified it to accept a file name and not search a
folder structure.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

I realized that only the Sub FindStrings needs to be modified in the program
I linked earlier to have the program output line numbers. The modified Sub
below works for me, but when I search for more than one string, the program
only finds "hits" if both strings appear on the same line. The program no
longer registers a "hit" if the file has both strings, but they are on
different lines. Still, this might meet your needs. Watch for line wrapping.
Some of the lines are very long because I indent code for readability, and
this results in line wrapping:
=========
Sub FindStrings(ByVal strFileName, ByVal arrstrStrings, _
ByRef intCount, ByVal blnSearchCase)
' Subroutine to search a file for one or more strings.
' Modified 04/29/2010 to output all line numbes where matches found.

Dim objFile, objStream, strText, lngLine, blnFirst

Const ForReading = 1

Set objFile = objFSO.GetFile(strFileName)
If (objFile.Size > 0) Then
On Error Resume Next
Set objStream = objFSO.OpenTextFile(strFileName, ForReading)
If (Err.Number <> 0) Then
Wscript.Echo "## Error accessing file: " & strFileName
Wscript.Echo " Description: " & Err.Description
On Error GoTo 0
Else
lngLine = 0
blnFirst = True
Do Until objStream.AtEndOfStream
On Error Resume Next
strText = objStream.ReadLine
If (Err.Number <> 0) Then
Wscript.Echo "## Error accessing file: " & strFileName
Wscript.Echo " Description: " & Err.Description
On Error GoTo 0
Else
On Error GoTo 0
lngLine = lngLine + 1
If (blnSearchCase = False) Then
strText = LCase(strText)
End If
Select Case UBound(arrstrStrings)
Case 0
If (InStr(strText, arrstrStrings(0)) > 0) Then
If (blnFirst = True) Then
Wscript.Echo strFileName & vbTab & " ("
_
& objFile.DateLastModified & " " _
& FormatNumber(objFile.Size, 0) &
")"
intCount = intCount + 1
blnFirst = False
End If
Wscript.Echo "-- Line # " & CStr(lngLine) &
": " & strText
End If
Case 1
If (InStr(strText, arrstrStrings(0)) > 0) _
And (InStr(strText, arrstrStrings(1)) >
0) Then
If (blnFirst = True) Then
Wscript.Echo strFileName & vbTab & " ("
_
& objFile.DateLastModified & " " _
& FormatNumber(objFile.Size, 0) &
")"
intCount = intCount + 1
blnFirst = False
End If
Wscript.Echo "-- Line # " & CStr(lngLine) &
": " & strText
End If
Case Else
If (InStr(strText, arrstrStrings(0)) > 0) _
And (InStr(strText, arrstrStrings(1)) >
0) _
And (InStr(strText, arrstrStrings(2)) >
0) Then
If (blnFirst = True) Then
Wscript.Echo strFileName & vbTab & " ("
_
& objFile.DateLastModified & " " _
& FormatNumber(objFile.Size, 0) &
")"
intCount = intCount + 1
blnFirst = False
End If
Wscript.Echo "-- Line # " & CStr(lngLine) &
": " & strText
End If
End Select
End If
Loop
objStream.Close
End If
End If
End Sub

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

I have written something like this:

Dim sStringToSearch()
ReDim sStringToSearch(1)

sStringToSearch(0) = "ame i"
sStringToSearch(1) = "ti"

bCaseSensitive = False
For Each sValue In sStringToSearch
If bCaseSensitive <> True Then
sValue = LCase(sValue)
End If

sLogFilePath = "C:\Test\Test.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strData = objFSO.OpenTextFile(sLogFilePath & sFileName, 1).ReadAll

arrLines = Split(strData, vbCrLf)

For iLineCount = 0 To UBound(arrLines)
iOccur = 0
sString = ""
sLineData = arrLines(iLineCount)
If bCaseSensitive = False Then
sLineData = LCase(sLineData)
End If

For iCount = 1 To Len(sLineData)
If InStr(iCount, sLineData, sValue) > 0 Then
iLocationOfString = InStr(iCount, sLineData, sValue)
iTrailingSpace = InStrRev(sLineData, " ", iLocationOfString)
If iTrailingSpace = 0 Then
iTrailingSpace = 0
End If
iLeadingSpace = InStr(iLocationOfString + Len(sValue), sLineData, " ")
If iLeadingSpace = 0 Then
iLeadingSpace = Len(sLineData) + 1
End If
iWordLength = iLeadingSpace - iTrailingSpace - 1

sWord = Mid(sLineData, iTrailingSpace + 1, iWordLength)
Else
Exit For
End If
sString = sString & "|" & sWord
iCount = iLeadingSpace
iOccur = iOccur + 1
Next
If iOccur > 0 Then
MsgBox "String To Search: " & sValue
MsgBox "Line Number: " & iLineCount + 1
MsgBox "Occurance: " & iOccur
MsgBox "Matching words found: " & sString
End If
Next
Next

This caters everything - string search, list of string search, case sensitive search.

Is there any better way to implement this?

Also, can anyone tell me how to implement wild card search in VBScript?

Example: sGivenString = "My name is Peter. Her name is Latika"

sStringToSearch = "n*e"

Result should be: occurrence = 2, name

if string to search = P?t
occurrence = 1, Peter

"Check" <guest@newsgroup-email.com> wrote in message
news:4624676b524437ec0fa8a6e01b1ad9e6@newsgroup-gateway.com...

>
> I have written something like this:
>
> Dim sStringToSearch()
> ReDim sStringToSearch(1)
>
> sStringToSearch(0) = "ame i"
> sStringToSearch(1) = "ti"
>
> bCaseSensitive = False
> For Each sValue In sStringToSearch
> If bCaseSensitive <> True Then
> sValue = LCase(sValue)
> End If
>
> sLogFilePath = "C:\Test\Test.txt"
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> strData = objFSO.OpenTextFile(sLogFilePath & sFileName, 1).ReadAll
>
> arrLines = Split(strData, vbCrLf)
>
> For iLineCount = 0 To UBound(arrLines)
> iOccur = 0
> sString = ""
> sLineData = arrLines(iLineCount)
> If bCaseSensitive = False Then
> sLineData = LCase(sLineData)
> End If
>
> For iCount = 1 To Len(sLineData)
> If InStr(iCount, sLineData, sValue) > 0 Then
> iLocationOfString = InStr(iCount, sLineData, sValue)
> iTrailingSpace = InStrRev(sLineData, " ",
> iLocationOfString)
> If iTrailingSpace = 0 Then
> iTrailingSpace = 0
> End If
> iLeadingSpace = InStr(iLocationOfString + Len(sValue),
> sLineData, " ")
> If iLeadingSpace = 0 Then
> iLeadingSpace = Len(sLineData) + 1
> End If
> iWordLength = iLeadingSpace - iTrailingSpace - 1
>
> sWord = Mid(sLineData, iTrailingSpace + 1, iWordLength)
> Else
> Exit For
> End If
> sString = sString & "|" & sWord
> iCount = iLeadingSpace
> iOccur = iOccur + 1
> Next
> If iOccur > 0 Then
> MsgBox "String To Search: " & sValue
> MsgBox "Line Number: " & iLineCount + 1
> MsgBox "Occurance: " & iOccur
> MsgBox "Matching words found: " & sString
> End If
> Next
> Next
>
> This caters everything - string search, list of string search, case
> sensitive search.
>
> Is there any better way to implement this?
>
> Also, can anyone tell me how to implement wild card search in VBScript?
>
> Example: sGivenString = "My name is Peter. Her name is Latika"
>
> sStringToSearch = "n*e"
>
> Result should be: occurrence = 2, name
>
> if string to search = P?t
> occurrence = 1, Peter
>
>
> --
> Check

I have an example VBScript program that uses the RegEx object. I use it to
analyze regular expression patterns. I documented the program with many
comments to explain how to use regular expressions. As noted, it is based on
a program in Tim Hill's "Windows 2000 Windows Script Host". I used it to
handle your examples with the following commands (the program is called
RegExpMatch.vbs):

cscript //nologo RegExpMatch.vbs "n[A-Za-z]+e" "My name is Peter. Her name
is Latika"

the output was:

Pattern: "n[A-Za-z]+e"
String: "My name is Peter. Her name is Latika"
Number of matches: 2
Match: name at: 4 (4)
Match: name at: 23 (4)

Next I used the command:

cscript //nologo RegExpMatch.vbs "P[A-Za-z]t" "My name is Peter. Her name is
Latika"

and the output was:

Pattern: "P[A-Za-z]t"
String: "My name is Peter. Her name is Latika"
Number of matches: 1
Match: Pet at: 12 (3)

The program follows:
============
' RegExpMatch.vbs
' Version 1.0
' January 8, 2010
' VBScript program to test various regular expression patterns
' and their affect on strings.
' Based on script RegExp.vbs (Listing 7.1 on page 197) from
' "Windows 2000 Windows Script Host" by Tim Hill,
' Macmillan Technical Publishing, Copyright 1999.
' Examples of patterns:
' . any character
' .. any 2 characters
' ^abc string starts wtih abc
' red$ string ends with red
' [0-9] a digit
' [0-9]* 0 or more digits
' [0-9]+ 1 or more digits
' [0-9]? 0 or 1 digit
' [0-9a-zA-Z] alphanumeric character
' [^0-9] not a digit
' [a-zA-Z][a-zA-Z_0-9]* valid variable name
' a{3} aaa
' a{3,} at least three a characters
' a{3,5} 3 to 5 a's
' [0-9]{4} 4 digits
' \d any digit, same as [0-9]
' \D any non-digit, same as [^0-9]
' \w any word character, same as
[0-9a-zA-Z_]
' \W any non-word character
' \b word boundary
' \B non-word boundary
' \s whitespace character
' \S non-whitespace character
' \f form-feed character
' \n new-line character
' \r carriage-return character
' \v vertical tab character
' \onn octal code nn
' \xnn hexadecimal code nn
' \n (n a digit) repeat previous sub expression (in
parentheses) n times
' (..)\1 any two characters repeated twice,
like abab
' ab|ac ab or ac
' ^ab|ac$ ab at start or ac at end of string
' ^(ab|ac)$ either string ab or ac
' [^=]+=.* command line arguments
' ([a-zA-Z]\w*)=(.*) command line arguments
' (\s*)([a-zA-Z]\w*)(\s*)=(.*) command line arguments, with
whitespace
' (\s*)/([a-zA-Z]\w*)((=|(.*)|) command line switch
' ^(.*?)\1+$ any repeating pattern in a string

Option Explicit

Dim objRE, objMatches, objMatch, strPattern, strSearchString

Select Case Wscript.Arguments.Count
Case 1
strPattern = Wscript.Arguments(0)
If (strPattern = "/?") _
Or (strPattern = "-?") _
Or (strPattern = "?") _
Or (strPattern = "/H") _
Or (strPattern = "/h") _
Or (strPattern = "-H") _
Or (strPattern = "-h") _
Or (strPattern = "/help") _
Or (strPattern = "-help") Then
Call Syntax()
Wscript.Quit
End If
Case 2
strPattern = Wscript.Arguments(0)
strSearchString = Wscript.Arguments(1)
Case Else
Wscript.Echo "Wrong number of arguments"
Call Syntax()
Wscript.Quit
End Select

Wscript.Echo "Pattern: """ & strPattern & """"
Wscript.Echo "String: """ & strSearchString & """"

Set objRE = New RegExp
objRE.Pattern = strPattern
objRE.Global = True
Set objMatches = objRE.Execute(strSearchString)

Wscript.Echo "Number of matches: " & objMatches.Count
For Each objMatch In objMatches
Wscript.Echo "Match: " & objMatch.Value & " at: " _
& CStr(objMatch.FirstIndex + 1) & " (" & objMatch.Length & ")"
Next

Sub Syntax()
Wscript.Echo "Syntax:"
Wscript.Echo " cscript RegExpMatch.vbs <pattern> <string>"
Wscript.Echo "where:"
Wscript.Echo " <pattern> is a regular expression pattern"
Wscript.Echo " <string> is a string to test against the pattern"
Wscript.Echo "For example:"
Wscript.Echo " cscript RegExpMatch.vbs ""[A-Za-z0-9\+/]+[=]?[=]?""
""VGhpcyBpcyBhIHRlc3Q="""
End Sub

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

"Check" <guest@newsgroup-email.com> wrote in message
news:4624676b524437ec0fa8a6e01b1ad9e6@newsgroup-gateway.com...

>
> I have written something like this:
>
> Dim sStringToSearch()
> ReDim sStringToSearch(1)
>
> sStringToSearch(0) = "ame i"
> sStringToSearch(1) = "ti"
>
> bCaseSensitive = False
> For Each sValue In sStringToSearch
> If bCaseSensitive <> True Then
> sValue = LCase(sValue)
> End If
>
> sLogFilePath = "C:\Test\Test.txt"
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> strData = objFSO.OpenTextFile(sLogFilePath & sFileName, 1).ReadAll
>
> arrLines = Split(strData, vbCrLf)
>
> For iLineCount = 0 To UBound(arrLines)
> iOccur = 0
> sString = ""
> sLineData = arrLines(iLineCount)
> If bCaseSensitive = False Then
> sLineData = LCase(sLineData)
> End If
>
> For iCount = 1 To Len(sLineData)
> If InStr(iCount, sLineData, sValue) > 0 Then
> iLocationOfString = InStr(iCount, sLineData, sValue)
> iTrailingSpace = InStrRev(sLineData, " ",
> iLocationOfString)
> If iTrailingSpace = 0 Then
> iTrailingSpace = 0
> End If
> iLeadingSpace = InStr(iLocationOfString + Len(sValue),
> sLineData, " ")
> If iLeadingSpace = 0 Then
> iLeadingSpace = Len(sLineData) + 1
> End If
> iWordLength = iLeadingSpace - iTrailingSpace - 1
>
> sWord = Mid(sLineData, iTrailingSpace + 1, iWordLength)
> Else
> Exit For
> End If
> sString = sString & "|" & sWord
> iCount = iLeadingSpace
> iOccur = iOccur + 1
> Next
> If iOccur > 0 Then
> MsgBox "String To Search: " & sValue
> MsgBox "Line Number: " & iLineCount + 1
> MsgBox "Occurance: " & iOccur
> MsgBox "Matching words found: " & sString
> End If
> Next
> Next
>
> This caters everything - string search, list of string search, case
> sensitive search.
>
> Is there any better way to implement this?
>
> Also, can anyone tell me how to implement wild card search in VBScript?
>
> Example: sGivenString = "My name is Peter. Her name is Latika"
>
> sStringToSearch = "n*e"
>
> Result should be: occurrence = 2, name
>
> if string to search = P?t
> occurrence = 1, Peter
>
>
> --
> Check

I did not check the logic of your program in detail but here are some
general comments:
[01] Dim aStringToSearch(1)
[02] 'ReDim sStringToSearch(1)
[03] sLogFilePath = "C:\Test\Test.txt"
[04] Set objFSO = CreateObject("Scripting.FileSystemObject")
[05]
[06] aStringToSearch(0) = "ame i"
[07] aStringToSearch(1) = "ti"
[08]
[09] bCaseSensitive = False
[10] For Each sValue In aStringToSearch
[11] If not bCaseSensitive Then sValue = LCase(sValue)
[12] strData = objFSO.OpenTextFile(sLogFilePath & sFileName, 1).ReadAll
[13] arrLines = Split(strData, VbCrLf)
[14]
[15] For iLineCount = 0 To UBound(arrLines)
[16] iOccur = 0
[17] sString = ""
[18] sLineData = arrLines(iLineCount)
[19] If not bCaseSensitive Then sLineData = LCase(sLineData)
[20]
[21] For iCount = 1 To Len(sLineData)
[22] If InStr(iCount, sLineData, sValue) > 0 Then
[23] iLocationOfString = InStr(iCount, sLineData, sValue)
[24] iTrailingSpace = InStrRev(sLineData, " ", iLocationOfString)
[25] ' If iTrailingSpace = 0 Then iTrailingSpace = 0
[26] iLeadingSpace = InStr(iLocationOfString +
Len(sValue),sLineData, " ")
[27] If iLeadingSpace = 0 Then iLeadingSpace = Len(sLineData) + 1
[28] iWordLength = iLeadingSpace - iTrailingSpace - 1
[29] sWord = Mid(sLineData, iTrailingSpace + 1, iWordLength)
[30] Else
[31] Exit For
[32] End If
[33] sString = sString & "|" & sWord
[34] iCount = iLeadingSpace
[35] iOccur = iOccur + 1
[36] Next
[37] If iOccur > 0 Then MsgBox "String To Search: " & sValue & vbLf & _
[38] "Line Number: " & iLineCount + 1 & vbLf & _
[39] "Occurance: " & iOccur & vbLf & _
[40] "Matching words found: " & sString
[41] Next
[42] Next

General: By not indenting your code, you destroy its structure and make life
difficult for yourself. This is particularly true when you have nested
loops.
Line 01: While you are at liberty to assign any name to your variables,
prefixing an array with "s" (=string) is misleading and will cause
maintenance problems.
Line 02: This line is superfluous. Delete it.
Line 03: Having a "constant" statement (which this really is) inside a loop
is wasting processor time. Put it right at the beginning of your code.
Line 04: Recreating the same object inside a loop is wasting processor time.
Put it right at the beginning of your code.
Line 11: Your code
If bCaseSensitive = False Then
sLineData = LCase(sLineData)
End If
can be rewritten more elegantly as "If not bCaseSensitive Then sValue =
LCase(sValue)"
Line 12: sFileName is an undeclared variable.
Line 25: This code does nothing useful. Get rid of it.
Lines 37-40: Your original code generates multiple message boxes. Do you
really want them?

About your wildcard searches: See Richard Mueller's response.

It is good programming practice to close your open files when finished with
them. To do this you should replace this line:
[12] strData = objFSO.OpenTextFile(sLogFilePath & sFileName, 1).ReadAll

with these lines:
[12] Set oFile = objFSO.OpenTextFile(sLogFilePath & sFileName)
[13] strData = oFile.ReadAll
[14] oFile.Close