51Testing软件测试论坛

标题: 求助!如何遍历页面中的WebElement对象的innertext值 [打印本页]
作者: wai5888    时间: 2014-2-24 12:01
标题: 求助!如何遍历页面中的WebElement对象的innertext值
各位好,我是刚使用QTP的新手,最近给一个问题困惑了好久,想在此请教一下.

我想使用QTP实现遍历页面中的WebElement对象,并访问他们的innertext值.可是,一直都不能成功.

相同的方法,我把对象改成link则能够成功,请问,是不是WebElement对象不能够如此用?

Link代码如下:

  2. systemutil.Run "IEXPLORE","http://www.baidu.com"

  4. Set all_Link = Description.Create()
  5. all_Link("micClass").value="Link"

  7. Set all_Links = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_Link)
  8. For i = 0 to all_Links.count - 1
  9.     Set Link_Object = all_Links.item(i)
  10.     'msgbox Link_Object.GetROProperty("innertext")
  11.     Char =Char & Link_Object.GetROProperty("innertext") & vbCrLf
  12. Next
  13. msgbox Char
复制代码
WebElement代码如下:

  2. systemutil.Run "IEXPLORE","http://www.baidu.com/more/"
  3. 'WebElement
  4. Set all_WebElement = Description.Create()
  5. all_WebElement("micClass").value="WebElement"

  7. Set all_WebElements = Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(all_WebElement)
  8. For i = 0 to all_WebElements.count - 1
  9.     Set WebElement_Object = all_WebElements.item(i)
  10.     msgbox WebElement_Object.GetROProperty("innertext")
  11.     Char =Char & WebElement_Object.GetROProperty("innertext") & vbCrLf
  12. Next
  13. msgbox Char
复制代码
错误提示如附件:
[attach]89294[/attach]
作者: joykao    时间: 2014-2-26 15:44
这个的话。。WebElement面太广，有各种子集。。。到底要怎样去区分呢？几个webelemnt加起来还是一个webelement。。。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2