描述性编程中遇到的问题，请各位指导一下，谢谢先

coral

在使用QTP描述性编程中遇到这样一个问题：
set LinkDesc=Description.Create()'创建一个空对象
然后我想取出某查询结果页中的某些链接，并且输出这些链接的主题名称。此时想使用描述性编程解决这个问题。将对象值url匹配出来，但不知道下面这句要怎么写才正确？
LinkDesc("url").value=""'此时添加过滤条件，想找出结果页面上url中包含"http://www.baidu.com/"的所有链接，请问：
LinkDesc("url").value应该等于什么？怎么写这里的正则表达式？可以写成：
LinkDesc("url").value＝"http://www.baidu.com/*"吗?????

木卫十二

应该是LinkDesc("url").value＝"http://www.baidu.com/.*"吧？

coral

感谢楼上的回答，我刚才尝试过了，这样写不对，希望高手指教，在线等！！
谢谢

hiyouhiyou

关注ing

sterson

能不能用instr函数,,LinkDesc("url").value中含有http://www.baidu.com的

hsjzfling

LinkDesc("url").value＝"http://www\.baidu\.com/.*"

dsjlzh

同意楼上的。
Description的属性默认使用正则表达式，. 可以代表任意字符，所以需要将“http://www.baidu.com"中的. 做转义处理。
如果不希望使用正则表达式，可以用：
PropertiesColl(Property).RegularExpression = BooleanSetting
这里就是：
LinkDesc("url").RegularExpression = False

coral

我不是太明白楼上的意思，那么要实现我的需求，应该怎么写呢？

dsjlzh

Coral，按hsjzfling给出的方法应该就可以了，我只是补充说明一下。

dsjlzh

如果是用ChildObject方法来获得一个link的对象集合，那么LinkDesc还要加一个属性
LinkDesc("micclass") = "link"

fate

学习了

没有蛀牙

"http://www\.baidu\.com/.*"

jackymail

我以前写的一个例子，你拿去看看吧，你的问题不是描述性编程，而是正则表达式

Private Function check(url)
Set xmlhttp_obj = createobject("microsoft.xmlhttp")
xmlhttp_obj.open "get",url,False
xmlhttp_obj.send
MsgBox xmlhttp_obj.readystate &xmlhttp_obj.status
If xmlhttp_obj.readystate <> 4 Then
        MsgBox xmlhttp_obj.readstate
Else
        If xmlhttp_obj.status>=200 And xmlhttp_obj.status<300 Then
                Stream.writeline url&" valided"
                content=xmlhttp_obj.responsetext
                'MsgBox content
                Set re = New RegExp
                re.Pattern = "<A HREF\=\D?(\/[a-z]+)+"
                re.Global = True
                re.IgnoreCase = True
                Set matches = re.execute(content)
                For each match in matches
                cutstring=Right(match,match.length-13)
                newurl=url&cutstring
                MsgBox Newurl
                check Newurl
                Next
        End If
End If

End Function

Set re = New RegExp
re.Pattern = ""
re.Global = True
re.IgnoreCase = True
Set matches = re.execute(content)
For each match in matches
Next

冰河

学习了，谢谢谢谢～～

[ 本帖最后由 冰河 于 2007-9-28 15:15 编辑 ]