|
date()
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile("C:\Documents and Settings\Administrator\com.travelsky.angel\logs\EtermLog"&date()&".txt",1)
logs = txt.ReadAll
If (instrrev(logs,"发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB") > 0) then
reporter.ReportEvent micPass,"pass","pass"
else
reporter.ReportEvent micfail,"failed","failed"
end if
我需要验证"发送指令SID=81,Scmd=HBPR:CA1111/03MAY10/*PEK,12,HBNB"中的"发送指令SID=81,Scmd=HBPR:,HBNB"存在,因为“CA1111/03MAY10/*PEK,12”这个不好参数化,决定忽略掉着部分,用vbs能实现吗 |
|