Option Explicit

Dim objFSO

Dim objFile

Dim arrLines

Dim cnt

Dim strTemp

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("E:\data.txt")

'Do While objFile.AtEndOfLine <> True

Do Until objFile.AtEndOfStream

    arrLines = objFile.ReadLine

    strTemp = Mid(arrLines,12,2)

    MsgBox strTemp

    If(strTemp="12") Then

    cnt = cnt + 1

    End If

Loop

WScript.Echo cnt

objFile.close()

Set objFile = Nothing

'ファイルシステムオブジェクトの破棄

objFSO = Nothing