9.05qtp自定义日志！（获取qtp本身窗口title）

Sub writeLog
Dim myLog,myTxt,logInfo,caseName
Set myLog = CreateObject("scripting.filesystemobject")'创建文件系统对象
Set myTxt = myLog.OpenTextFile ("C:\qtpLog\Log.txt",8,True) '创建打开文本对象
caseName = window("title:=quick.*\[.*").getroproperty("text") '获取qtp本身窗口的title
logInfo=Date&" "&time&" "& caseName &" "&"is ok!" '时间+空格+qtp本身title组合成的字符串
myTxt.WriteLine"#########################################" '华丽分割线
myTxt.WriteLine logInfo   
myTxt.WriteLine"#########################################"
Set myLog =Nothing '释放对象
Set myTxt =Nothing
End sub

这里的知识点就是，描述性编程里的正则表达式应用；还有获取qtp本身的窗口属性信息；如何操作文件流