51Testing软件测试论坛

标题: 如何获取源文件中的某一行　ＵＲＬ地址 [打印本页]

作者: lingxin5013 时间: 2008-7-24 17:13
标题: 如何获取源文件中的某一行　ＵＲＬ地址
如下面的源代码　我想获取http://www.51testing.com　使用ＱＴＰ如何操作
<a href="http://www.51testing.com" target="_blank">软件测试门户</a> | <a href="http://www.51testing.net" target="_blank">软件测试培
训</a> | <a href="http://www.51testing.com/?action_news.html" target="_blank">文章资料精选</a> | <a href="http://bbs.51testing.com/" target="_blank">软件测试论坛</a> | <a href="http://www.51testing.com/?action_blog.html" target="_blank">软件测试博客</a> | <a href="http://hr.51testing.com" target="

作者: 没有蛀牙 时间: 2008-7-24 17:29
这么麻烦...
QTP对象库里，Browser和Page层对象应该都有URL属性的，你仔细看看

作者: wtucel 时间: 2008-7-24 17:35
你是想从这一段字符串中取出其中的url链接吧？？用split 不就好了？

作者: lingxin5013 时间: 2008-7-24 17:44
应为ＵＲＬ地址是在程序运行后　必须到源文件中查看才能得到　必须还要找到该ＵＲＬ才可以　各位帮忙　
要是用ＳＰＬＩＴ那就更麻烦　看看源文件就知道不可能　

作者: 假装不在 时间: 2008-7-24 19:35

首先你可以发现，这个其实是一些link来的。
你先描述出这些link
browser("").page("").link("text:=......")
然后，其实只要你通过getroproperty("url")就可以得到了。

作者: zte_boy 时间: 2008-7-24 23:24
结合DOM技术和正则表达式就能够获取到你想要的值

作者: lingxin5013 时间: 2008-7-25 10:52
LS 能否详细些?? 非常感谢

作者: lijian422202 时间: 2008-7-25 14:11
就这个问题也想问下，QTP除了支持正则表达式外，还支持别的表达式吗，比如xpath。。

作者: lingxin5013 时间: 2008-7-25 17:01
高手们　帮帮忙啊
！！！！！！

作者: gavin.chen 时间: 2008-7-25 17:40
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
   RetStr = RetStr & "Match " & I & " found at position "
   RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
   RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function

'正则
regpatrn = "http(s)?://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"
MsgBox(RegExpTest(regpatrn, "afasfasfasfasfasdfasfasfd http://www.51testing.com afasfaf"))

看看上面这个例子，把输入输出改下就可用使了。
这些手册上都有，多看看手册

作者: lingxin5013 时间: 2008-7-28 08:51
fei chang gan xie

作者: lingxin5013 时间: 2008-7-28 13:21
不错　搞

作者: lingxin5013 时间: 2008-7-28 13:22
起来了　非常感谢　高手很强大啊

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