cscript vbscript regular expression - need help

[cisco777]

I am trying to learn regular expression in vbscript. the below is the code. when I run the code i receive the same match message no matter if i use the input file that ended successfully or the input file that ended with errors.

do i need to add a read statement or am i missing more?

'Create File System Objects
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'Set objtxt = objFSO.OpenTextFile(c:\fileSuces, ForReading)
Set objtxt = objFSO.OpenTextFile(c:\fileError, ForReading)


Set StdOut = WScript.StdOut

' Set up the string that will be searched for the existence of a sub-string
' Pattern specifies the Regular Expression that is to be searched for
' False = Only match the first occurence of the pattern

StringToSearch = "Ended with errors "
' StringToSearch = "Ended with success "

StdOut.WriteLine "Contents of StringToSearch = " & StringToSearch
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
' .Pattern = "with errors"
.Pattern = "with success"
.IgnoreCase = True
.Global = False
End With

expressionmatch = RegularExpressionObject.Test(StringToSearch)

If expressionmatch Then
StdOut.WriteLine "RegularExpressionObject.Pattern match was found in " & StringToSearch
Else
StdOut.WriteLine "RegularExpressionObject.Pattern match was Not found in " & StringToSearch
End If

objTxt.close

Set objFSO = Nothing
Set objTextFile = Nothing
set objStdOut = Nothing
Set RegularExpressionObject = Nothing

thank you.

steve

 

[tsuji]

You have objFSO and objTextFile. What for? and also
>[tt]Set objtxt = objFSO.OpenTextFile(c:\fileError, ForReading)[/tt]
[tt]const ForReading=1
Set objtxt = objFSO.OpenTextFile([red]"[/red]c:\fileError[red]"[/red], ForReading)
[/tt]
Nothing to do with regexp.

 

[cisco777]

tsuji,

may I ask to have you show me how my code should look in order for it to work correctly?

Since I am just starting to learn cscript and regular expressions, I obviously do not yet have a grip on this.

Thank you.

Steve

 

[tsuji]

Please direct all further messages to

http://tek-tips.com/viewthread.cfm?qid=1096693&page=1