webtable嵌套的字段取值问题，参考前贴无助后发起

lpj1911 · 发表于 2009-7-16 21:47:27

各位同仁，最近在工作要用到qtp，遇到对webtable的字段检查的问题，比较困惑，希望能坛子里找到解决的办法，多多指点。

这是在frame下的webtable，如图所示
希望得到"已加载"的字段来作检查。

用 Object Spy 学习此字段为frame.webtable.webtable.webtable.webelement,
当然spy成webelement是没办法的,但可以看出3个表的嵌套.

代码如下：
Dim i,j,n,m,k,num,obj,webobj,webtbl
Set webtbl=description.Create
webtbl("micclass").value="WebTable"
webtbl("html tag").Value = "TABLE"
set webobj=Browser("Browser").Page("Browser").Frame("设备信息加载").ChildObjects(webtbl)
num=webobj.count
'居然有10个table,后来发现很多空表
msgbox "tables sum:" &num
For  j=0 To num - 1
Set obj=webobj(j)
m=obj.RowCount
For i=1 to m
n= obj.ColumnCount (i)
'统计显示每个table下各有多少的行和列
            msgbox "table:"& j +1 &"rows:" & m &"columns:" & n
For k = 1 to n
'显示每个table里每个cell的值
            msgbox "table:"& j +1 & "row:"& i &"column:" & k &"cell:"& obj.GetCellData (i,k)
Next
Next
Next

'发现想要的值在第7个webtable里,但是只有一行一列,也就是说把整个字段标记为了一个cell.
也就是图中红色框中字符连成成串为cell的值，checkbox为一个空格
其他webtable没能找到这样的字段了。
'我在想图中所见的每个格为什么就不是表的一个cell呢？实在不行就只好把整个字段分解得到期望字段了。

其次,spy看到嵌套3个表,就做了下面的尝试
Dim desobj,num,obj,webobj,webtbl
统计webelement个数
Set desobj=description.Create
desobj("micclass").value="WebElement"
desobj("html tag").Value = "TD"
--------------------------
或者统计子表个数
Set desobj=description.Create
desobj("micclass").value="WebElement"
desobj("html tag").Value = "TD"
--------------------------------
Set webtbl=description.Create
webtbl("micclass").value="WebTable"
webtbl("html tag").Value = "TABLE"

'for遍历webtable 的index  ，10个webtable
set webobj=Browser("Browser").Page("Browser").Frame("设备信息加载").WebTable(webtbl).ChildObjects(desobj)
num=webobj.count

'居然无论是用webelement还是子表，每个webtable中num都为空

不知道我所有的操作有什么不妥，我也是才搞几天QTP，还理解不是很深。搜索了相关帖子还是没解决，
现在就是要得到表中的字段，往指点迷津，谢谢。

sunhope800 · 发表于 2009-8-12 14:56:33

lpj1911 · 发表于 2009-8-12 12:25:38

感谢楼上的兄弟帮助，我始终没能解决，希望你能把方法或者代码贴上来，让我学习下。谢谢

marco · 发表于 2009-7-29 16:46:45

用lz给的源代码可以取到webtable的值的啊

lpj1911 · 发表于 2009-7-29 16:33:56

读了嵌套的结构还是有问题，暂时没解决先用split把工作做走再说，等以后再好生看哈
谢谢各位帮助

nbkhic · 发表于 2009-7-21 11:42:05

下一个debug bar，查看一下页面的表格嵌套结构。然后在你所需要获取table的父对象上使用object属性，去getElementsByTagName

blueeagle9999 · 发表于 2009-7-21 10:05:42

msgbox Browser("Browser").Page("

age").Object.GetElementsByTagName("td").length

这个你再加上一层webtable看下，Browser("Browser").Page("

age").webtable(***).Object.GetElementsByTagName("td").length

这个方法我也没有用过，假兄应该多有研究，可以直接找他帮你解决下问题。

lpj1911 · 发表于 2009-7-17 18:17:56

代码如下
<body>
  <style>
  *{ margin:0; padding:0;}
  body{ height:100%;}
  .dis{ width:100%;    background: green; position:absolute; left:0; right:0; top:0; bottom:0; -moz-opacity:0.5; filter:alpha(opacity=50);z-index:98; height:100%; visibility: hidden  }
  </style>
<div id="tip" style="position:absolute; left:300px; top:250px; width:400px; height:20px; z-index:99; background-color: #94BBDD; layer-background-color: #94BBDD; border: 3px none #000000; visibility: hidden">
<table width=100% height=100% style="border-collapse:collapse" border=2>
<tr><td>
<p align="center">
<span id=showi></span><br>
<img name="processbar" src="/images/process.gif" width="400" height="20">
</p>
</td></tr></table>
</div>
<div id="mydiv" class="dis">
<iframe id="myiframe" class="dis"></iframe>
</div>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="14" class="layoutleft"></td>
<td width="19" class="layoutdot"></td>
<td class="layoutbg">设备信息加载</td>
<td width="14" class="layoutright"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="layoutborder">
<form name="form1" method="post" action="/dev_control/load_info.php">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="40" height="25"> </td>
<td align="right">名称：
  <input type="text" name="dev_name" maxlength="30" value="">  <input type="submit" name="search" value="搜　索" class="button"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="tableborder">
<tr>
<td width="5%" rowspan="2" align="center" class="titlebg">选择</td>
<td width="17%" rowspan="2" align="center" class="titlebg">设备名称</td>
<td width="8%" rowspan="2" align="center" class="titlebg">是否连通</td>
<td colspan="7" align="center" class="titlebg">设备状态</td>
</tr>
<tr>
  <td align="center" width="10%" class="titlebg">基本密钥</td>
  <td align="center" width="10%" class="titlebg">设备密钥</td>
  <td align="center" width="10%" class="titlebg">网络参数</td>
  <td align="center" width="10%" class="titlebg">安全规则</td>
  <td align="center" width="10%" class="titlebg">防护规则</td>
  <td align="center" width="10%" class="titlebg">路由规则</td>
  
  <td align="center" width="10%" class="titlebg">VLAN规则</td>
</tr>
</table></td>
<td width="14"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>
<td colspan="10">
<div id="autoscroll" align="center" valign="top" style="overflow-y:scroll; height:265;width:100%;">
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="tableborder">
<tr id="tr_0" class="tdbgred">
<td width="5%" height="25" align="center">
<input type="checkbox" name="chkid[]" id="td_0" value="25296918" class="inputbox" > </td>
<td width="17%" align="center">3-1-200</td>
<td width="8%" align="center"><font color=green>连通</font></td>
<td width="10%" align="center"><font color=red>加载失败</font></td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>

<td align="center">已加载</td>
</tr>
<tr id="tr_1" class="tdbgbai">
<td width="5%" height="25" align="center">
<input type="checkbox" name="chkid[]" id="td_1" value="25296919" class="inputbox" > </td>
<td width="17%" align="center">3-1-201</td>
<td width="8%" align="center"><font color=green>连通</font></td>
<td width="10%" align="center"><font color=red>加载失败</font></td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>
<td width="10%" align="center">已加载</td>

<td align="center">已加载</td>
</tr>
<tr class="tdbgbai">
<td height="25" width="5%" align="center"> </td>
<td width="17%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>

<td align="center"> </td>
</tr>
<tr class="tdbgbai">
<td height="25" width="5%" align="center"> </td>
<td width="17%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>

<td align="center"> </td>
</tr>
<tr class="tdbgbai">
<td height="25" width="5%" align="center"> </td>
<td width="17%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>

<td align="center"> </td>
</tr>
<tr class="tdbgbai">
<td height="25" width="5%" align="center"> </td>
<td width="17%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>

<td align="center"> </td>
</tr>
<tr class="tdbgbai">
<td height="25" width="5%" align="center"> </td>
<td width="17%" align="center"> </td>
<td width="8%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>
<td width="10%" align="center"> </td>

<td align="center"> </td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" align="left"><input type="checkbox" name="chkall_flag" value="1" class="inputbox">
全选

共<span class="fontredb">2</span>台设备
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height="25" valign="bottom">
<input type="submit" name="load_basekey" value="加载基本密钥"  class="button1">
<input type="submit" name="load_key" value="加载设备密钥"  class="button1">
<input type="submit" name="load_info" value="加载网络参数"  class="button1">
<input type="submit" name="load_rule" value="加载安全规则"  class="button1">
<input type="submit" name="load_defend" value="加载防护规则"  class="button1">
<input type="submit" name="load_route" value="加载路由规则"  class="button1">

<input type="submit" name="load_vlan" value="加载VLAN规则"  class="button1">
<hr>
<input type="submit" name="load_all" value="加载所有信息"  class="button1"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>

lpj1911 · 发表于 2009-7-17 18:16:01

回复 2楼

根据推荐假兄的文章，用Object.GetElementsByTagName获取字段，count提示对象不支持。
采用length对其他的列子的页面运行结果一切正常。

我这个页面的每个期望字段都是在td tag内，于是我也用length运行下面的代码：

Dim desc_td
Set desc_td=description.Create()
desc_td("html tag").value="TD"
msgbox Browser("Browser").Page("Page").ChildObjects(desc_td).count
'其结果为7
msgbox Browser("Browser").Page("Page").Object.GetElementsByTagName("td").length
'其结果为1

这样的结果太诡异了，我把源码贴出来,其中有几十个<td><\td>!
希望大家帮我看哈，谢谢

blueeagle9999 · 发表于 2009-7-17 12:38:26

简单实用最好

nbkhic · 发表于 2009-7-17 11:54:21

嵌套了那么多层table，呵呵，布局够复杂的。
我就是天天在跟嵌套的table做斗争，其实想获取某一个字段很简单，用getElementById就可以了。一般检查的字段都是很特殊的，都会有id。
当然通过getElementsByTag用循环遍历也可以，而且不复杂。

lpj1911 · 发表于 2009-7-17 11:20:33

也就是说getElementsByTagName可以把嵌套几层table的element取到咯？我还是先去看哈help，那个最直接。呵呵
随便说下这个系统用php做的，

lpj1911 · 发表于 2009-7-17 11:15:41

谢谢我先去尝试下。有情况再来请教

blueeagle9999 · 发表于 2009-7-17 10:08:30

呵呵，你这个是用什么工具语言开发的系统？我是碰到用JAVA开发的系统，也有跟你一样的问题，根本无法通过webtable来操作。于是我绕了个弯路，我先把页面上的元素组织到datatable中，然后再操作datatable就行了。组织的方法跟你相似，也是通过childobjects()方法，不过我成功了，嘿嘿。
还有个方法，跟你推荐下假兄的文章 http://www.51testing.com/?174770 ... e_itemid_95404.html ，你可以通过getElementsByTagName方法来尝试一下。

下面是我写的函数，看看有没有参考价值

Function TechnicianListBuild()
'构建********，返回TechnicianList的Datatable表
'****************************
Set TechRowNum=description.Create()
      TechRowNum("class").value="tableRowCount"
      TechRowNum("html tag").value="TD"
Set TechRowNumCollection=MainPage.Frame("name:=mainIframe").ChildObjects(TechRowNum)
' msgbox TechRowNumCollection.count

'****************************
Set TechDetail=Description.Create()
      TechDetail("class").value=""
      TechDetail("html id").value=""
      TechDetail("outerhtml").value="\<TD\>.*\<\/TD\>"
      TechDetail("html tag").value="TD"
      TechDetail("outerhtml").RegularExpression=True
Set TechDetailCollection=MainPage.Frame("name:=mainIframe").ChildObjects(TechDetail)
' MsgBox TechDetailCollection.count
If TestDataSet.Exists("TechnicianList") Then
      TestDataSet.Remove("TechnicianList")
      Datatable.DeleteSheet("TechnicianList")
End If
Datatable.AddSheet("TechnicianList")
Datatable.GetSheet("TechnicianList").AddParameter "序号",""
Datatable.GetSheet("TechnicianList").AddParameter "编号",""
Datatable.GetSheet("TechnicianList").AddParameter "姓名",""
Datatable.GetSheet("TechnicianList").AddParameter "身份证号",""
Datatable.GetSheet("TechnicianList").AddParameter "籍贯",""
Datatable.GetSheet("TechnicianList").AddParameter "联系电话",""

'****************************
For i= 0 to TechDetailCollection.count
If  TechDetailCollection.item(i).Getroproperty("innertext")<>"" and i>0 Then
            techDetailStarNo=i
   Exit for
End If
Next
For i=1 To TechRowNumCollection.Count
      Datatable.GetSheet("TechnicianList").SetCurrentRow(i)
      Datatable.GetSheet("TechnicianList").GetParameter("序号").Value=TechRowNumCollection.Item(i-1).Getroproperty("innertext")

      Datatable.GetSheet("TechnicianList").GetParameter("编号").Value=TechDetailCollection.Item(techDetailStarNo).Getroproperty("innertext")
      Datatable.GetSheet("TechnicianList").GetParameter("姓名").Value=TechDetailCollection.Item(techDetailStarNo+1).Getroproperty("innertext")
      Datatable.GetSheet("TechnicianList").GetParameter("身份证号").Value=TechDetailCollection.Item(techDetailStarNo+2).Getroproperty("innertext")
      Datatable.GetSheet("TechnicianList").GetParameter("籍贯").Value=TechDetailCollection.Item(techDetailStarNo+3).Getroproperty("innertext")
      Datatable.GetSheet("TechnicianList").GetParameter("联系电话").Value=TechDetailCollection.Item(techDetailStarNo+4).Getroproperty("innertext")
      techDetailStarNo=techDetailStarNo+5
Next

Datatable.ExportSheet "D:\Technicianlist.xls","Technicianlist"
Call TestDataSet.Add("TechnicianList","")
Set TechRowNum=Nothing
Set TechRowNumCollection=Nothing
Set TechDetail=Nothing
Set TechDetailCollection=Nothing
End Function

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] webtable嵌套的字段取值问题，参考前贴无助后发起

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

站长推荐 /1