modifty text file line count to string count

[dantheman9]

anyone any ideas as to how I could modify this code to count untill a const String in the file?

Sub ReadNoLines_text() 
'Dimension Variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim CountLines As Double 
'Ask User for File's Name
FileName = InputBox("Please enter the Text File's name")
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Set The CountLines to 1
CountLines = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)  ' [COLOR=red]how can I change this to stop counting at a const text string?[/COLOR]
Line Input #FileNum, ResultStr
'Increment the CountLines By 1
CountLines = CountLines + 1
'Start Again At Top Of 'Do While' Statement
Loop 'Close The Open Text File
Close
MsgBox "Number of lines for " & FileName & " = " & CountLines - 1
End Sub

 

[Andrew Poulsom]

Within the loop, test if ResultStr is your constant, and if so Exit Do.

 

[dantheman9]

Perfecto!!

thanks again Andrew!