求助：http://地址正则获取（已解决）

lsszmj

代码如下：

#include <Array.au3>
Local $Str = _
                'http://www.baidu.com/index.php?tn=site888_pg' & @CRLF & @CRLF & _
                'http://www.126185.com/12456/sdsoft/NOD32/nod32_id.htm' & @CRLF & @CRLF & _
                'http://blog.sohu.com/people/22444/12378.html'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '[?:http\:\/\/]([^\/]+\/.*)', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($Test), '其中[0]元素为: ' & $Test[0])
_ArrayDisplay($Test, UBound($Test))

这是我自己折腾的正则，现状为：

[0]ttp://www.nod32fan.com/nod32jihuoma/
[1]ttp://www.126185.com/killsoftware/sdsoft/NOD32/nod32_id.htm
[2 ttp://blog.sohu.com/people/ff2006/199352712.html

我想要的：

[0]http://www.nod32fan.com/nod32jihuoma/
[1]http://www.126185.com/killsoftware/sdsoft/NOD32/nod32_id.htm
[2 http://blog.sohu.com/people/ff2006/199352712.html

真诚求助各位大大帮助

afan

(?i)http:\V+

lsszmj

回复 2# afan
谢谢A版，问题完美解决

ajian55

A版的正则表达式莫不为完美的解决方法，但是楼主自己写的，虽然匹配到的结果到的少了个h, 自己加上不就行了么？

bsjd120

学习了啊 ，非常需要哦 。。。