superliming 发表于 2010-3-4 13:24:50

怎么不能匹配呢

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:50

楼主描述问题太简单了

superliming 发表于 2010-3-4 13:49:41

问题描述

测试Google的搜索功能，比如搜索李明，让qtp自动点击搜索的链接，需要正则的匹配，可就是不行，看问题出在那里，或有脚本能共享下呵呵大家了

superliming 发表于 2010-3-4 14:12:34

为什么没人回答呢期待高人解决

testlab 发表于 2010-3-4 16:39:29

什么叫就是不行,报什么错,一点也不明白

superliming 发表于 2010-3-4 16:44:56

没报错，只是和我们想的结果，而且和实际结果不一致。

skyzhu 发表于 2010-3-4 21:15:23

把你搜索结果中的链接text都print出来就知道为什么错了
页: [1]
查看完整版本: 怎么不能匹配呢