Read speciffic line in text file

 
Hello, I am searching a text file for a string, when I find it I want to throw a message box with the entire line.  I can do this but the problem is the script finds the search text and displays the next line down.  I know which line the search text is on by using objFile.Line - 1   How do I use readline to send a message box with that speciffic line?  I would think msgbox objFile.ReadLine(48)  but this does not work, any help would be greatly appreciated!!!
 
Const ForReading=1
 
strSearch = "PC123"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = strSearch
Set objFile = objFSO.OpenTextFile("c:\PC_DATA.txt", ForReading)
Do Until objFile.AtEndOfStream
    strSearchString = objFile.ReadLine
    Set colMatches = objRegEx.Execute(strSearchString) 
    If  colMatches.Count > 0 Then       
        strLine2 = objFile.Line - 1        
        msgbox objFile.ReadLine
        objFile.Close 
        Exit do       
    End If   
Loop
objFile.Close

Try this:

If  colMatches.Count > 0 Then        
    For Each objMatch in colMatches
        WScript.Echo "Pattern Match: " & objMatch.Value 
    Next
End If   

Thanks for the reply rasimmer, unfortunately that only brings back the matching value and I need to display the entire line wher the string matches.  so in a file setup as follows
 
1
2
33PC12344
5
6
 
the objMatch.Value  does bring back the PC123  but I need it to bring back the entire line 33PC12344  any suggestions?  Thanks again

I am no RegEx expert, but try:

objRegEx.Pattern = "/s*" & strSearch

here is the solution, you need to open the file first, find the line with the matching text, then re-open it and use a counter to stop before the desired line, then read it.  MS could have made this so much easier!
 
Const ForReading = 1
strSearch = "PC123"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = strSearch
Set objFile = objFSO.OpenTextFile("c:\PC_DATA.txt", ForReading)
Do Until objFile.AtEndOfStream
    strSearchString = objFile.ReadLine
    Set colMatches = objRegEx.Execute(strSearchString) 
   
    If  colMatches.Count > 0 Then 
     strLine2 = objFile.Line - 2      
     objFile.Close     
  Set objFile = objFSO.OpenTextFile("c:\PC_DATA.txt", ForReading)
  For i = 1 to strLine2
      objFile.ReadLine
  Next
  strLine3 = objFile.ReadLine
  MsgBox strLine3
  objFile.Close
  Exit do     
    End If   
Loop
objFile.Close
 

You're making it WAY to complicated.  The regex pattern can be modified to display the line, but you could also do it this way:

Const ForReading = 1
strSearch = "PC123"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\PC_DATA.txt", ForReading)
Do Until objFile.AtEndOfStream
    strSearchString = objFile.ReadLine 
    If Instr(UCase(strSearchString), UCase(strSearch)) Then WScript.Echo strSearchString
Loop
objFile.Close

You are right, I was making it way too hard, that is soo much easier.  Thanks!