循环删除WebTable里的第一行 --性能调优

赵佳乐SMILE · 发表于 2012-12-19 15:06:12

本帖最后由赵佳乐SMILE 于 2012-12-19 15:07 编辑

测试数据都是已"测试"开头

表头 1	表头 2	操作
测试1		编辑（link）删除（link）
测试2
		分页控件

利用WebTable("").RowCount<>2(RowCount统计时包含了表头和分页控件)

用这个条件无法停下来因为最后一次删除后

表头 1	表头 2	操作
暂无数据！
		分页控件

于是考虑判断删除按钮是否存在

用  对象的exist  看不见删除按钮的时候也报True
用  Object.currentStyle.display 报的inline(如果输出为None，则表示不显示，输出非None，表示显示。)
用 visible属性  看不见删除按钮的时候也报True

最后是用innerText判断

Dim tblCount,chkDelBtn
'设置查询条件
Browser("").Page("").Frame("mainFrame").WebEdit("WebEdit").Set "测试"
Browser("").Page("").Frame("mainFrame").WebList("dataDicWrapper.type").Select �"
Browser("").Page("").Frame("mainFrame").Link("查询").Click
'取出所有条数，包含表头和分页控件
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount
'count=Browser("").Page("").Frame("mainFrame").WebTable("序号").GetROProperty("rows")
'
'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").Exist(0) ‘删除按钮不存在也报True
'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").Object.currentStyle.display'删除按钮不存在报的inline
'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").GetROProperty("visible") '删除按钮不存在也报True
'比较页面信息是否是"暂无记录!"
chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")
'一定要trim否则字符串判断结果不正确
While ( tblCount<>2) and (trim(chkDelBtn)<>"暂无记录!")
'选择第一条进行删除
Browser("").Page("").Frame("mainFrame").Link("删除").Click
Browser("").Page("").WebButton("确定").Click
'设置查询条件
Browser("").Page("").Frame("mainFrame").WebEdit("WebEdit").Set "测试 "
Browser("").Page("").Frame("mainFrame").WebList("dataDicWrapper.type").Select �"
Browser("").Page("").Frame("mainFrame").Link("查询").Click
'取出所有条数，包含表头和分页控件
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount
'count=Browser("").Page("").Frame("mainFrame").WebTable("序号").GetROProperty("rows")
'比较页面信息是否是"暂无记录!"
chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")
Wend

复制代码

成功时成功了，但是运行到这一句，大概要30秒
chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")

yzwangxf · 发表于 2012-12-28 15:37:09

抱欠，上面重复不是故意。
每次提交后，不能立即出现，所以就重复发了下。

yzwangxf · 发表于 2012-12-28 15:34:02

我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，
会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。

所以后，我尽量不去调用WebTable的属性，特别是得到记录数的属性，改成抓图。

yzwangxf · 发表于 2012-12-28 15:33:29

我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），

yzwangxf · 发表于 2012-12-28 15:33:20

我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。

yzwangxf · 发表于 2012-12-28 15:33:11

问题可能出在句上：
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount

yzwangxf · 发表于 2012-12-28 15:32:46

问题可能出在句上：
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount

我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。

所以后，我尽量不去调用WebTable的属性，特别是得到记录数的属性，改成抓图。

temp20121017 · 发表于 2012-12-20 23:32:35

childitem很不错

赵佳乐SMILE · 发表于 2012-12-20 16:50:02

回复 2# 泰然

ChildItem 实在是不会用，就用了.GetCellData(2,1)

此外之前对象库里取的WebTable("序号") 不对

换成暂无数据！页面的那个速度快了很多

另外行数为3的这个条件可以不要

谢谢大师指点。。。

赵佳乐SMILE · 发表于 2012-12-20 10:44:38

回复 2# 泰然

十分谢谢我得慢慢消化消化

泰然 · 发表于 2012-12-20 09:24:10

你看看你的对象识别器和对象库中，webelement是否支持智能识别。我估计是智能识别导致的等待。

应该说你的做法不对。你的做法是在对象库中已经保存了一个webelement("WebTable")对象，它有些一些属性，但在没删除到最后前，其实页面中找不到这个对象，你可以没删光表格前highlight一下看看，由于没找到，且允许智能识别，导致最后是智能识别给分配了一个对象，慢就慢在找不到对象的等待过程中。

从你的描述看，我认为这里应该判断行数是否为3行，以及第二行第一列的表格单元中对象的innertext是否为“暂无数据！”，获取行2列1的表格单元中对象的方法是set oWebElemA=WebTable("序号").ChildItem (2,1, "webelement", 0)，然后对oWebElemA做getROProperty

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

[原创] 循环删除WebTable里的第一行 --性能调优

相关帖子

站长推荐 /1