对象库编程自动转化为描述性编程1.0 改进版

mklodoss

感谢大家的支持，和所提的意见，特别是OnLonely做了一些改进，现在可以进行筛选属性了。内有说明。

onlonely

转换前:
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("UserName").Set "timon"
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("Password").SetSecure "49cce5f07c0c7fbbfc925d3b26c982c56f12a0e5b4aefb5e"
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").Link("登      录").Click
Browser("家务中心 - eHome 网家 — 记录家庭成长").Page("家务中心 - eHome 网家 — 记录家庭成长").Link("退出").Click

转换后:
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdit("name:=UserName").Set "timon"
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdi("name:=Password").SetSecure "49cce5f07c0c7fbbfc925d3b26c982c56f12a0e5b4aefb5e"
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").Link("text:=登      录").Click
Browser("name:=家务中心 - eHome 网家 — 记录家庭成长").Page("title:=家务中心 - eHome 网家 — 记录家庭成长").Link("text:=退出").Click

不错不错,最终代码比较满意了,,不过仍然感觉有个易用性不得不改
就是:当我取消选择一个属性的时候,应该自动应用我取消的属性,而不应该需要点击应用,
因为那样给我带来了太多无价值的操作.

mklodoss

呵呵，现在不用点应用也可以了。

onlonely

我都成为你的测试人员了.

继续报告错误:
如图,我对象库中明明有index属性的,可导入后,却没有index属性.其他属性能识别,为什么index这么重要的属性就不识别呢.

mklodoss

呵呵，谢谢你。能不能把你的xml文件发给我下。就是不能显示index属性的。
softtestddj@163.com。
没装Qtp，没有调试环境啊。呵呵。

mklodoss

我都成为你的测试人员了

  
呵呵，重新上传。增加index,location的属性。

onlonely

缺陷不完测试不止!
有如下代码:

'--------------------------准备通用数据----------------------------
Dim testname
testname = "eHome 网家 — 记录家庭成长"                                          '测试模块全名
set allpage=browser("name:=(.)*").page("title:=(.)*")                              '全部页面变量
set testpage=browser("name:="&testname).page("title:="&testname)   '测试页面变量
'msgbox(testpage.GettoProperty("title"))                                               '调试语句
'-----------------------------------------------------------------------
'--------------------------脚本开始---------------------------------
testpage.Link("新用户登录").Click
testpage.WebEdit("UserName").Set "testsn0301"
testpage.WebEdit("assword").SetSecure "49cdc58638958a7ad18f8be3795801be74bb024a60eeaeae98c3"
testpage.Link("登      录").Click
testpage.Link("退出").Click

缺陷描述:

1,如上面那样的,经过少许编辑的代码.你会发现,是无法转换的.
建议,采用替换的方式,匹配对象,如{Link("退出"),并且不要区分大小写},替换成转换后的内容{Link("text:=退出","index:=0")}

2,转换窗口应该支持{ctrl+a}这样的快捷键.

[ 本帖最后由 onlonely 于 2009-3-28 15:08 编辑 ]

onlonely

哎呀,忘了,如果出现相同对象名,不同对象属性就麻烦了.

mklodoss

回8#，你说的没错，考虑到这个原因才没有直接替换，呵呵，更新
1，增加了文本编辑的行号显示。
2，增加对大小写的支持。
3，增加Ctrl+A全选。

hsjzfling

还没下载用过，进来看看了就顺便问一下，该工具是否有考虑到不同web page/frame及Object Identification设置下的问题。例如Browser和Page对象默认是没有强制识别属性的，而是通过CreationTime属性识别，那么一个Browser("eHome 网家 — 记录家庭成长")对象很可能name属性值根本就不是eHome 网家 — 记录家庭成长。不同设置下可能会出现Browser("eHome 网家 — 记录家庭成长_2")这样的对象，很显然，其name属性值也不会是eHome 网家 — 记录家庭成长_2
如下的转换很可能就导致脚本无法运行：

原帖由 onlonely 于 2009-3-27 23:02 发表

转换前:
Browser("eHome 网家 — 记录家庭成长").Page("eHome 网家 — 记录家庭成长").WebEdit("UserName").Set "timon"

转换后:
Browser("name:=eHome 网家 — 记录家庭成长").Page("title:=eHome 网家 — 记录家庭成长").WebEdit("name:=UserName").Set "timon"

LZ是否也解决掉了这样的问题~~
或者说，使用该工具前需要先导入一个规定好的QTP配置文件，才能去录制脚本，再改成DP方式

[ 本帖最后由 hsjzfling 于 2009-3-30 18:31 编辑 ]

mklodoss

可以先录制脚本，然后只要导入相关对象库的xml文件就可以。web/page都有很多属性 ,你可以选，CreationTime也可以。

zitong

我在转化的时候遇到一个问题，我将xml文件导入后，在转化窗口中怎么不能识别汉字呀。比如：对象库脚本：
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试网-中国软件测试人的精神家园").Link("软件测试技术").Click
Browser("软件测试技术 - 51Testing软件测试网-中国软件测试").Page("软件测试技术 - 51Testing软件测试网-中国软件测试").Link("测试用例设计思维").Click

粘贴到转换窗口就变成这样了：
Browser("51Testing?????-????????????").Page("51Testing?????-????????????").Link("??????").Click
Browser("?????? - 51Testing?????-??????").Page("?????? - 51Testing?????-??????").Link("????????").Click

这是怎么回事呢？我装的xp的英文操作系统，与这个有关么？