日志的结构化、层次化写入 问题？

lery

由于项目需要，想实现日志的结构化、层次化写入，在网上找了下，看到很多网友都说可以用如下方法实现：

Call EnterNode("STEP1","初始化环境")
ExitNode context
Call EnterNode("STEP2","结果校验")
ExitNode context

Public Function EnterNode(ByRef NodeName, ByRef NodeContent)      
Set dicMetaDescription = CreateObject("Scripting.Dictionary")
dicMetaDescription("Status") = MicDone
dicMetaDescription("PlainTextNodeName") = NodeName
dicMetaDescription("StepHtmlInfo") = NodeContent
EnterNode = Reporter.GetConText()
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)  ‘使用Reporter对象的LogEvent写入新节点
Reporter.SetContext intContext                 ’调用Reporter对象的SetContext把新写入的节点作为父节点
Set dicMetaDescription = Nothing
End Function



Public Function ExitNode(ByVal intContext)   
Reporter.SetContext intContext              '调用Reporter对象的UnSetContext，返回上一层
End Function


现在俺实验的结果是，运行到intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)  ‘使用Reporter对象的LogEvent写入新节点
就会提示出错”Reporter object required", 我再查QTP的API手册，发现调用.LogEvent 对象应该是个Wshell对象,真是搞糊涂了我，请教各位大虾们，这些是怎么回事呢？

网上原文有：http://www.51testing.com/?57222/viewspace-130651.html       和 http://tech.it168.com/a2008/0806/199/000000199725.shtml，大家帮忙看下

wugecat

我晕～！你ExitNode context这句参数值没有当然出错了
这么写试试：
a= EnterNode("STEP1","初始化环境")
ExitNode a
b=EnterNode("STEP2","结果校验")
ExitNode b

lery

原帖由 wugecat 于 2009-9-29 12:20 发表
我晕～！你ExitNode context这句参数值没有当然出错了
这么写试试：
a= EnterNode("STEP1","初始化环境")
ExitNode a
b=EnterNode("STEP2","结果校验")
ExitNode b

首先感谢wugecat的回答，我上面的调用打错了。。。。不过我出错的地方不是你所说的那里，而是reporter.logevent 这个东东提示出错，我不晓得是否不能直接用reporter对象来直接调用.logevent这个方法。。。。麻烦继续帮我看看，如果可以，请你帮忙在你机器上跑来看看是什么结果，谢谢

wugecat

我执行了。。没错
a= EnterNode("STEP1","初始化环境")
ExitNode a
b=EnterNode("STEP2","结果校验")
ExitNode b

[ 本帖最后由 wugecat 于 2009-9-29 15:17 编辑 ]

lery

谢谢wugecat 的解答，我仔细的检查了我得代码，原来我用set intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)  了，流汗。。。。现在都可以。。。
现在还有个疑惑想请教.LogEvent 的第一个参数 "User" 是做什么的呢？ 可以有几种？我查不到该方法的参数使用说明，谢谢，呵呵