怎么不能匹配呢

superliming

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

楼主描述问题太简单了

superliming

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

superliming

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

testlab

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

superliming

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

skyzhu

把你搜索结果中的链接text都print出来就知道为什么错了