0

特定の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
4

1 に答える 1

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
于 2013-07-29T15:08:20.313 に答える