QTP easily writes html log_html/css_WEB-ITnose

Anyone who uses QTP automation knows that the report is a very important file and is also a certificate to verify whether the test has passed. So how can we write a better log? I’m going to start today, and I may update the content of this module later; let me give you an example first;

Function wrt_html(oStr)		Dim FSO,oLog		Dim FileDir			'文件路径			'		On Error Resume Next		Const ForReading=1,ForWriting=2,ForAppending=8                 '参数赋值（1：只读，2：只写，3：追加）		Set FSO = CreateObject("Scripting.FileSystemObject")				'打开文件		Set oLog = FSO.OpenTextFile("D:\测试.HTML", 8, True) 		oLog.WriteLine (CStr("oStr"))   '写入文件				'关闭和释放		oLog.Close		Set oLog = Nothing		Set FSO = Nothing	End Function

The above code is in Write an HTML file under the D drive directory. The calling method is: call wrt_html("111") Then the html will appear as shown in the figure:

This is just the beginning. Later, I will teach you how to write the following report: Color, screenshot, hyperlink and more, stay tuned...