请教如何对文本文件的实时监控与操作

Dim filename As String
Dim path As String
Dim jg() As String         '结果数组
Dim jgj As Long

Dim RFWz As Long         '文件读取的位置

Const SS = " Site Failed tests/Executed tests"
Const SE = "========================================================================="

Const 分段大小 = 4096       '4k

Private Sub readfile()
Dim fs As Long
Dim fr As Long
fr = FreeFile()

Dim b  As String * 分段大小        '读出来的字串
Dim fj() As String      '分解数据
Dim sqc As String       '前一次的数据
Dim i As Long           '循环变量
Dim jjg As Boolean      '是否记录内容

If RFWz = 0 Then RFWz = 1
Open path & filename For Binary Access Read As #fr
fs = LOF(fr)
Do While RFWz < fs

    Get #fr, RFWz, b                '不足的部分不会读。因是按 vbcrlf 分段，所以不影响最终结果
    RFWz = Seek(fr)
   
    fj = Split(b, vbCrLf)
    fj(0) = sqc & fj(0)
    For i = 0 To UBound(fj)
        If fj(i) = SS Then
            jjg = True
            jgj = jgj + 1
            ReDim Preserve jg(jgj)
        End If
        If jjg Then
            jg(jgj) = jg(jgj) & vbCrLf & fj(i)
        End If
        If fj(i) = SE Then
            jjg = False
        End If
    Next i
Loop
Close #1
End Sub




Private Sub Command1_Click()

Dim t1 As Date
Dim t2 As Date
Dim t3 As Date

Label2.Caption = ""
Label3.Caption = ""
t1 = Now()
Label1.Caption = t1
DoEvents
Call readfile
Text1.Text = jg(jgj)
t2 = Now()
Label2.Caption = t2
t3 = t2 - t1
Label3.Caption = t3

End Sub

Private Sub Form_Load()
path = App.path
If Right(path, 1) <> "\" Then
    path = path & "\"
End If
filename = "1.txt"
'Erase jg
jgj = 0
End Sub