首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-02-19 
急急急,请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 

热点排行