请教正则表达试问题（问题已解决）

lantianwei

小弟最近开始学习QTP，现在遇到一个小问题：就是我输入一个关键字进行搜索，现在我想得到在第一页我搜索到的链接数，代码如下：
   Dim SearchStr,Lists,NumberOfLists,oDesc
   SearchStr="蓝天伟"
   Browser("Browser").Page("百度一下，你就知道").WebEdit("wd").Set SearchStr
   Browser("Browser").Page("百度一下，你就知道").WebButton("百度一下").Click
   wait(2)
   Set oDesc = Description.Create()
   oDesc("Class Name").Value = "Link"
   oDesc("innertext").Value=".*蓝天伟.*"  ‘匹配要搜索的链接
   Set Lists =Browser("Browser").Page("百度搜索").ChildObjects(oDesc)
   NumberOfLists = Lists.Count()
   msgbox NumberOfLists
   但不知道为什么在上面我用红色标注的地方不能用正则表达式（不知道是不能用还是我用不来），请高人指点迷津。非常感谢！！！

[ 本帖最后由 lantianwei 于 2007-8-20 17:54 编辑 ]

风过无息

1. Dim SearchStr,Lists,NumberOfLists,oDesc
   
2. SearchStr="蓝天伟"
   
3. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set SearchStr
   
4. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click
   
5.    wait(2)
   
6.    Set oDesc = Description.Create()
   
7.    oDesc("html tag").Value = "a"
   
8.    oDesc("innertext").Value=".*蓝天伟.*"'匹配要搜索的链接
   
9.    Set Lists =Browser("百度一下，你就知道").Page("百度搜索_蓝天伟").ChildObjects(oDesc)
   
10.    NumberOfLists = Lists.Count()
    
11.    msgbox NumberOfLists

复制代码

注意一下测试页面,每次需要转到search页面.

lantianwei

终于有人答贴了，我先试下。非常感谢版主！！！

[ 本帖最后由 lantianwei 于 2007-8-16 10:51 编辑 ]

lantianwei

版主，不可以啊，直能找到0个纪录。好像还是把".*蓝天伟.*"当成字符串来处理的

风过无息

你把脚本拿上看看,我本机上显示是9个纪录.

loho1968

试试"*.蓝天伟.*"

lantianwei

我的代码如下：
Dim SearchStr,Lists,NumberOfLists,oDesc
SearchStr="蓝天伟"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set SearchStr
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click
   wait(2)
   Set oDesc = Description.Create()
   oDesc("html tag").Value = "a"
   oDesc("innertext").Value=".*蓝天伟.*"'匹配要搜索的链接
   Set Lists =Browser("百度一下，你就知道").Page("百度搜索_蓝天伟").ChildObjects(oDesc)
   NumberOfLists = Lists.Count()
   msgbox NumberOfLists

显示为0
请版主看下哪里错了

lantianwei

也不可以，不过还是要感谢一下。sdlkfj5

skyzhu

oDesc("innertext").Value=".*蓝天伟.*"
后面加一句,默认好象是不认正则的
oDesc("innertext").RegularExpression = True     

应该是True,没研究过

lantianwei

非常感谢你的提醒，在QTP帮助里这样写到：
Note: By default, the value of all Property objects added to a Properties collection are treated as regular expressions. Use the RegularExpression property to change this setting for a specific Property object in the collection.
但不知道为什么，感觉QTP好像并没有当作正则表达试来处理。真的很奇怪！

surlary

请看看这段脚本的反馈信息。

1. 
   
2. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "蓝天伟"
   
3. Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("百度一下").Click
   
4. Browser("百度一下，你就知道").Page("百度一下，你就知道").Sync
   
5. Set oDesc = Description.Create()
   
6.    oDesc("html tag").Value = "a"
   
7.    oDesc("innertext").Value=".*蓝天伟.*"'匹配要搜索的链接
   
8. 
   
9. Set Lists = Browser("百度一下，你就知道").Page("百度一下，你就知道").ChildObjects(oDesc)
   
10. NumberOfLists = Lists.Count()
    
11. msgbox NumberOfLists
    

复制代码

lantianwei

在我和同事的机子上都运行过了，但结果还是0，你的答案是什么啊？
非常感谢您的帮助！

wasd2615

我试的也是0   sdlkfj7

surlary

运行一下我的工程，看看什么结果。

lantianwei

非常感谢你，我运行后的结果是0True，好像还不对，请问你那有正确结果吗？还是我的QTP有问题，我的是8.2的

skyzhu

9.2的是可以的 9True

梦醒十分

你再试试;
Browser("creationtime:=00:00:00").Page("url:=.*").WebEdit("index:=0").Set "蓝天伟"
Browser("creationtime:=00:00:00").Page("url:=.*").WebButton("index:=0").Click
wait(2)
Browser("creationtime:=00:00:00").Page("url:=.*").Sync
Set oDesc = Description.Create()
   oDesc("html tag").Value = "a"
   oDesc("innertext").Value=".*蓝天伟.*"

Set Lists = Browser("creationtime:=00:00:00").Page("url:=.*").ChildObjects(oDesc)
NumberOfLists = Lists.Count()
msgbox NumberOfLists

surlary

如果还不行，把oDesc("innertext").Value=".*蓝天伟.*"分别替换成下面的两种看看结果是什么。

1. 
   
2. oDesc("innertext").Value="[\u0000-\uffff]*蓝天伟[\u0000-\uffff]*"
   

复制代码

1. 
   
2. oDesc("innertext").Value=".+"
   

复制代码

lantianwei

唉 还是不行 要么8.2还没有支持在DESCRIPTION里的正则表达试，不过还是要谢谢大家的虚心指点！

surlary

oDesc("innertext").Value=".+"这样结果仍旧是0吗？

把oDesc("innertext").Value=".*蓝天伟.*"这行去掉结果是什么？