fso自定义日志

最新推荐文章于 2022-06-11 15:04:31 发布

shikun520

最新推荐文章于 2022-06-11 15:04:31 发布

阅读量135

点赞数

分类专栏： QTP VBS

本文链接：https://blog.youkuaiyun.com/shikun520/article/details/84687575

版权

QTP 同时被 2 个专栏收录

38 篇文章

订阅专栏

VBS

32 篇文章

订阅专栏

本文介绍了一种使用WebEdit控件进行设置操作并记录日志的方法。通过定义一个函数来实现对WebEdit控件的值进行设置，并将设置的操作记录到指定的日志文件中。该方法首先执行设置值的操作，然后检查并创建或打开日志文件，最后将包含时间戳、对象类型及设置值的日志信息写入文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

RegisterUserFunc "WebEdit","Set","WriteLog_WebEdit_Set"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "shkunshikun"

Function WriteLog_WebEdit_Set(Object,SetValue)
	Object.Set SetValue '执行原来的设置值的步骤
	'定义I/O模式
	Const ForAppending = 8
	Const ForReading = 1
	Const ForWriting = 2
	
	Set fso =  CreateObject("scripting.filesystemobject")
	
	LogFileName = cstr(Year(Now)&Month(Now)&Day(Now))+ ".txt"
	oParentFolder = Environment("ResultDir") '返回当前测试的测试报告的保存地址，不包括最后的“\”
	LogFilePath = oParentFolder+ "\" +LogFileName
	print LogFilePath
	'判断日志文件是否存在,若不存在，则创建一个新文件；若在直接打开
	If Not fso.FileExists(LogFilePath) Then
		Set txtFile = fso.CreateTextFile(LogFilePath,false)
	 else
	 print "open"
       Set txtFile = fso.OpenTextFile(LogFilePath,ForAppending,true)	 
	End If
	'等待写入日志的内容
	WriteContent = cstr(Time)+"Object:["+Object.GetTOProperty("micClass")+ "-" +Object.GetTOProperty("TestObjectName")+"]-Descript:"+"Set Value is <"+ SetValue+">"
   '写入操作
   txtFile.WriteLine WriteContent

   Set txtFile = nothing
   Set fso = nothing 
End Function