雪景 发表于 2011-8-10 18:09:27

qtp 插入文本输出点，获取不到网页输出的文本

求助
qtp 录制登录功能的脚本，插入了一个文本输出点，输出系统的实际值并将值保存在datatable      outmsg列中，选择文本后右击---》insert text output---》modify----》输入outmsg---》currentactionsheet（local）


运行时outmsg的值都是空的
Dim i
Dim fact_inf '定义读取系统实际提示信息的变量
Dim exp_inf'读取系统预期提示信息的变量
For i = 1 to DataTable.GetSheet("Action1").getRowCount
Browser("BugFree").Page("BugFree").WebEdit("TestUserName").Set DataTable("uname", dtLocalSheet)
Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure DataTable("pwd", dtLocalSheet)
Browser("BugFree").Page("BugFree").WebButton("登录(L)").Click
Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure "4e40cc3c2f5a"
Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure "4e40cc49c2f0264021623fce16d8b40f7719"
Browser("BugFree").Page("BugFree").WebButton("登录(L)").Click
Browser("BugFree").Page("BugFree").Output CheckPoint("BugFree")‘插入文本输出点

fact_inf = dataTable("outmsg",dtLocalSheet)'将实际输出值赋予变量
exp_inf = dataTable("status",dtLocalSheet)
Iffact_inf<>exp_inf Then
reporter.ReportEvent 1,"登陆功能测试","预期值为："+exp_inf+"实际值为："+fact_inf
End If

dataTable.GetSheet("Action1").SetNextRow '获取下一行数据
next
Browser("BugFree").Page("BugFree_2").Frame("NavFrame").Link("退出").Click
Browser("BugFree").Page("BugFree").Sync
Browser("BugFree").Close


1.jpg

2.jpg

rogerliu0303 发表于 2011-8-12 16:59:49

页面的text属性本身就是空。不信你GetROproperty试试看。

rogerliu0303 发表于 2011-8-12 17:00:01

页面的text属性本身就是空。不信你GetROproperty试试看。

tiankai30 发表于 2011-8-15 13:05:32

输出是在结果分析表里的吧
{:3_75:}

雪景 发表于 2011-8-22 18:03:07

回复 3# rogerliu0303


    可是页面确实有输出的文本啊

雪景 发表于 2011-8-22 18:04:11

回复 4# tiankai30


    那里也没有，都是空

rogerliu0303 发表于 2011-8-24 15:17:42

回复 5# 雪景
有文本也未必就是text属性啊，你自己get来看看嘛
页: [1]
查看完整版本: qtp 插入文本输出点，获取不到网页输出的文本