如何获取源文件中的某一行 ＵＲＬ地址

lingxin5013

如下面的源代码　我想获取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="

没有蛀牙

这么麻烦...
QTP对象库里，Browser和Page层对象应该都有URL属性的，你仔细看看

wtucel

你是想从这一段字符串中取出其中的url链接吧？？ 用split 不就好了？

lingxin5013

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

假装不在

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

zte_boy

结合DOM技术和正则表达式就能够获取到你想要的值

lingxin5013

LS 能否详细些?? 非常感谢

lijian422202

就这个问题也想问下，QTP除了支持正则表达式外，还支持别的表达式吗，比如xpath。。

lingxin5013

高手们　帮帮忙啊
！！！！！！

gavin.chen

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

fei chang gan xie

lingxin5013

不错　搞

lingxin5013

起来了　非常感谢　高手很强大啊