对动态的weblist取得其name值
上一篇 /
下一篇 2007-07-23 15:26:39
/ 个人分类:QTP
近来在做的一个项目中,每发布一次新的版本,运行脚本的时候,总会出错,后来查看了一下,发现每次的weblist的值都会改变,以至于对其进行操作的时候出错.刚开始很笨的呢.,每次都手工去改.呵呵...但是今天在网上发现了一个方法是可以取得其值的.
http://hi.baidu.com/%CB%B9%CE%C4%B0%DC%C0%E0/blog/item/3e8626a484cf05f79152eedd.html
我做了一些修改.把代码贴出来,大家看看:
'由于每次版本的weblist编号都是不同的,所以采用以下方法,动态获取weblis的编号
Set ōDesc = Descrīption.Create()
'在空的对象中添加属性micclass,并赋值为“WebList”
oDesc("micclass").Value = "WebList"
'在制定界面上获取所有属性值为”“weblist”的对象,并赋值给List(注意:赋值后lists类型一个对象数组)
Set Lists = Browser("***").Page("***").ChildObjects(oDesc)
'获取lists里面所有对象的总数
NumList = Lists.Count()
'遍历数组中所有对象
For i = 0 To NumList - 1
ListLen1(i)=Lists(i).object.name
Set ListLen1(i)=Descrīption.Create() '这里如果不用描述性编程的话,会报出对象库找不到对象
ListLen1(i)("Name").value=Lists(i).object.name
ListLen1(i)("class name").value="WebList"
ListLen(i)=Browser("***").Page("***").WebList(ListLen1(i)).Object.length '获取WEBLIST的长度
msgbox ListLen(i)
'lis=Lists(i).object.name
Next
呵呵.很简单的几句,可却解决了我的问题...感叹一下网络.....有它真是好啊.
相关阅读:
- [转载]从Excel往Access导入数据 (风过无息, 2007-7-16)
- [原创]RegisterUserFunc 的使用介绍 (风过无息, 2007-7-18)
- 关于窗口最大化最小化问题 (sidneylover, 2007-7-19)
- [原创]ByVal和ByRef的使用介绍 (风过无息, 2007-7-19)
- QTP (temdow, 2007-7-23)
- 如何使用qtp检查网页中显示的文字颜色为指定的颜色 (temdow, 2007-7-23)
- 随机选取webtable里checkbox (temdow, 2007-7-23)
- 在webtable中,检查checkbox是否全都选中了(转) (temdow, 2007-7-23)
- 关于在录制脚本中经常用到的webList (temdow, 2007-7-23)
收藏
举报
TAG:
QTP