急请vb高手帮忙解决怎么从文本文档中读取指定字符串的有关问题

急急急，请vb高手帮忙解决如何从文本文档中读取指定字符串的问题！
兄弟需要设计一个程序，从一个不断更新的文本文档里读取指定的字符串（如alarm），读取到之后然后通过串口发送命令让已经连接好的modem打电话到值班人员手机上，及时通知值班人员有问题需要处理，我想一步一步来，先把把如何从这个不断更新的文本文档里的指定字符串读取出来再说，不知道vb有没有这种捕获字符串的函数，如果没有，应该怎么查找这个指定字符串呢？请高手指点，万分感谢！在线等.......

------解决方案--------------------

VB code

    Dim strFromTxt As String, intPos As Long
    Dim fNO As Integer
    fNO = FreeFile
    Open "C:\0.txt" For Binary As #fNO
    strFromTxt = Input(LOF(fNO), #fNO)
    Close #fNO
    intPos = InStr(strFromTxt, "alarm")
    If intPos > 0 Then
        MsgBox "文本含警告信息. "
        '至于这个警告信息是什么,得看你的txt文件的格式了,
        '作为例子,截取"alarm"后面的10个字符信息,
        MsgBox Mid(strFromTxt, intPos + Len("alarm"), 10)
    End If

急请vb高手帮忙解决怎么从文本文档中读取指定字符串的有关问题

相关推荐