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

雪景

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


运行时outmsg的值都是空的

1. 
   
2. Dim i
   
3. Dim fact_inf '定义读取系统实际提示信息的变量
   
4. Dim exp_inf'读取系统预期提示信息的变量
   
5. For i = 1 to DataTable.GetSheet("Action1").getRowCount
   
6. Browser("BugFree").Page("BugFree").WebEdit("TestUserName").Set DataTable("uname", dtLocalSheet)
   
7. Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure DataTable("pwd", dtLocalSheet)
   
8. Browser("BugFree").Page("BugFree").WebButton("登录(L)").Click
   
9. Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure "4e40cc3c2f5a"
   
10. Browser("BugFree").Page("BugFree").WebEdit("TestUserPWD").SetSecure "4e40cc49c2f0264021623fce16d8b40f7719"
    
11. Browser("BugFree").Page("BugFree").WebButton("登录(L)").Click
    
12. Browser("BugFree").Page("BugFree").Output CheckPoint("BugFree")‘插入文本输出点
    
13. 
    
14. fact_inf = dataTable("outmsg",dtLocalSheet)'将实际输出值赋予变量
    
15. exp_inf = dataTable("status",dtLocalSheet)
    
16. If  fact_inf<>exp_inf Then
    
17. reporter.ReportEvent 1,"登陆功能测试","预期值为："+exp_inf+"实际值为："+fact_inf
    
18. End If
    
19. 
    
20. dataTable.GetSheet("Action1").SetNextRow '获取下一行数据
    
21. next
    
22. Browser("BugFree").Page("BugFree_2").Frame("NavFrame").Link("退出").Click
    
23. Browser("BugFree").Page("BugFree").Sync
    
24. Browser("BugFree").Close
    
25. 
    
26. 
    

复制代码

rogerliu0303

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

rogerliu0303

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

tiankai30

输出是在结果分析表里的吧

雪景

回复 3# rogerliu0303


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

雪景

回复 4# tiankai30


    那里也没有，都是空

rogerliu0303

回复 5# 雪景
有文本也未必就是text属性啊，你自己get来看看嘛