51Testing软件测试论坛

标题: 怎么不能匹配呢 [打印本页]

作者: superliming 时间: 2010-3-4 13:24
标题: 怎么不能匹配呢
On error resume next
Set reg=createobject("Mercury.CompareRegExp")
j=0
Browser("Google").Page("Google").WebEdit("q").Set "李明"
Browser("Google").Page("Google").WebButton("Google 搜索").Click
Set linkdesc=description.Create()
linkdesc("html tag").value="A"
Set linkobject=Browser("Google").Page("李明 - Google 搜索").ChildObjects(linkdesc)
a=linkobject.count

For i=0 to a-1
   text=linkobject(i).GetRoproperty("text")
   reg.Initialize "李明.*"
   If reg.Compare(text) Then
   j=j+1

   End If

Next
'msgbox j
'k=randomNumber(0,j-1)
For k=1 to j
   linkobject(k).click
   Set linkobject=Browser("Google").Page("李明 - Google 搜索").ChildObjects(linkdesc)

Next

作者: zhengpeipei 时间: 2010-3-4 13:31
楼主描述问题太简单了

作者: superliming 时间: 2010-3-4 13:49
标题: 问题描述
测试Google的搜索功能，比如搜索李明，让qtp自动点击搜索的链接，需要正则的匹配，可就是不行，看问题出在那里，或有脚本能共享下呵呵大家了

作者: superliming 时间: 2010-3-4 14:12
为什么没人回答呢期待高人解决

作者: testlab 时间: 2010-3-4 16:39
什么叫就是不行,报什么错,一点也不明白

作者: superliming 时间: 2010-3-4 16:44
没报错，只是和我们想的结果，而且和实际结果不一致。

作者: skyzhu 时间: 2010-3-4 21:15
把你搜索结果中的链接text都print出来就知道为什么错了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)