Question

VB文本搜索关键字

VB文本搜索关键字Private Sub Command1_Click()
Dim a As String
Dim filename As String
filename = Dir("C:\Users\ASUS\Desktop\Aegis 抛料服务\CurrentSvcLog*.txt")
Open "filename" For Binary As 1
Do While Not EOF(1) '循环至文件尾
Line Input #1, a '读入一行
If Left(a, 2) = "Attempt to Reconnect to Database has failed for " Then
Exit Do
Text1(0).BackColor = &HFF00&
Else
Text1(0).BackColor = &HFF&
End If
Loop
Close #1 '关闭文件
End Sub

====================================

我是刚接触的，这代码是其中一部分，因为工作需要。 这个代码运行的时候会显示, 输入超出文件尾 , 下面图片是一个软件的日志文本文件。 这个文件在接口没有断开的时候是会一直写入。 除非与设备接口断开重连成功了才会重新生成一份新的日志文件。 我要抓取他的接口断开，重连失败的信息。做一个报警的程序。

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim filename As String
filename = Dir("C:\Users\ASUS\Desktop\Aegis 抛料服务\CurrentSvcLog*.txt")
Open "C:\Users\ASUS\Desktop\Aegis 抛料服务\" & filename For Input As #1
Text1(0).BackColor = &HFF&
Do While Not EOF(1) '循环至文件尾
    Line Input #1, a '读入一行
    If InStr(a, "Attempt to Reconnect to Database has failed for ") Then
        Text1(0).BackColor = &HFF00&
        Exit Do
    End If
Loop
Close #1 '关闭文件
End Sub

追问

但是如果文本里有多行"Attempt to Reconnect to Database has failed for 的话，怎么让他以最新写入的那个为准??

Answer 2

If Left(a, 2) = "Attempt to Reconnect to Database has failed for " Then
换成
if insert(a,"Attempt to Reconnect to Database has failed for")>0 then