특정 단어로 시작하는 txt 파일의 줄을 확인하고 발생 횟수를 계산하십시오.

Question

주어진 txt 파일에 특정 단어로 시작하는 줄이 있는지 확인하려고했습니다. 그런 다음 그 단어로 시작하는 줄 수를 계산하려고합니다. 비록 내가 제대로 이해할 수는 없지만 나는 수표와 다소 가깝다고 생각한다. 모든 도움이 많이 감사합니다! 다음은 지금까지

.Pattern = "(\nC_PIN\s)(\b\d\b\s)" 
.Global = True 
Set objFil3 = objFSO.OpenTextFile(inFileName) 
If objFil3.IsMatch(inFileName) Then 
MsgBox "File OK" 

Else: MsgBox "Wrong file type chosen. Please check directory" 
End If 

Answer 1

로버트, 당신의 개체 변수에 .ReadLine 방법을 사용하여 내 코드입니다.

Dim numLines as Long: numLInes = 0 
Dim strSearch as string '## the value you're searching for 
strSearch = "Steve!" '## MOdify as needed 
Do While Not objfil3.AtEndofStream 
    If Left(objfil3.ReadLine, Len(strSearch)) = strSearch Then 
     numLines = numLines + 1 
    Else: 

    End If 
Loop 
    MsgBox objFil3 & " contains " & numLines & " beginning with " & strSearch