51Testing软件测试论坛

标题: 请问创建日志函数WriteLineToFile(message)中message参数从何处来？ [打印本页]

作者: hbycyf123 时间: 2012-6-26 21:46
标题: 请问创建日志函数WriteLineToFile(message)中message参数从何处来？
请问各位大虾：
1.创建日志函数WriteLineToFile(message)中message参数从何处来？
2.QTP日志文件放在哪里？reslut.xml文件有看到，但QTP log文件如何创建呢？
谢谢！
=================================
生成txt文件。这是从开发那边得到的启示。

首先定义一个sub：
Public Sub WriteLineToFile(message)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fileSystemObj, fileSpec
Dim currentTime
currentDate = Date
currentTime = Time
testName = "log"
Set fileSystemObj = CreateObject("scrīpting.FileSystemObject")
fileSpec ="C:\" &testName& ".txt" 'change this according to your directory
If Not (fileSystemObj.FileExists(filespec)) Then
Set logFile = fileSystemObj.CreateTextFile(fileSpec, ForWriting, True)
logFile.WriteLine
("#######################################################################")
logFile.WriteLine (currentDate & currentTime & " Test: " & environment.Value("TestName") )
logFile.WriteLine
("#######################################################################")
logFile.Close
Set logFile = Nothing
End If
Set logFile = fileSystemObj.OpenTextFile(fileSpec,
ForAppending, False, True)
logFile.WriteLine (currentDate & currentTime & " " & message)
logFile.Close
Set logFile = Nothing
Set fileSystemObj = Nothing
End Sub

作者: jacky8312 时间: 2012-6-29 15:41
调用sub的时候传入

作者: hbycyf123 时间: 2012-8-19 17:51
mesage应该是一条条的记录，哪里可以取得这个记录？

作者: AntonioNikki 时间: 2012-8-20 13:41
"C:\" &testName& ".txt"
testName = "log"
系统判断该文件存在就打开往里面继续写log, 如果文件不存在就创建一个该名字的文件
message 是调用这个sub的时候传入的
currentDate & currentTime & " " & message 这是你输出到log中的值

作者: louqqson008 时间: 2012-8-20 13:46
学习下...

作者: 819longjiayan 时间: 2012-8-20 14:08
message这个参数应该是你在执行功能模块或者你在执行测试用例后得到的一个结果，你要在执行的时候，自己记录这个结果，如果没有记录这个结果，那你调用这个WritelineToFile这个函数就会报错。你自己看看别的函数中或环境变量或者是action中有没有相关的参数，来记录运行结果

希望可以帮到你

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)