请帮我写几个正则，谢谢了

[tatty_bad]

第一个：
<A HREF="http://shop33177104.taobao.com" target=_blank>四皇冠-七星剑数码专卖店 MP3 MP4 MP5 手机 车载MP3 耳机专卖</A>
其中的<A HREF="http://shop这部分是固定不变的，我需要的是http://shop33177104.taobao.com

第二个：
<span class="rank" level="11" type="SELLER" url="http://my.taobao.com/mytaobao/rate/rate.jhtml?user_id=32ebf28975e44a8bb0802f30a869fab1&faction=show"></span>
需要其中的level="11"中间的11，其他的不需要了。

第三个：<span class="ww:token" ww:params="nick=alec8688&tnick=alec8688&display=inline"></span>
需要nick=后面的这个ID号alec8688，其他的不要了。

请会的帮我写一下，谢谢了。

[gzdiablo]

1.
<a\b[^>]*?href\s*=\s*["']?([^"'\s>]*)[^>]*>
获取捕获组1
2.
<span\b[^>]*?level\s*=\s*["']?([^"'\s>]*)[^>]*>
获取捕获组1
3.
<span\b[^>]*?ww:params\s*=\s*["']?[^"'\s>]*?\bnick\s*=\s*([^&]*)[^"'\s>]*[^>]*>
获取捕获组1

[tatty_bad]

Microsoft VBScript 运行时错误 (0x800A139B)
正则表达式中缺少 ']'

放进去之后提示我这个错误。。。

Set RegEx=New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.MultiLine = True
RegEx.Pattern = "<a\b[^>]*?href\s*=\s*["']?([^"'\s>]*)[^>]*>"
Set Matches = RegEx.Execute(StrTV)
For Each Match in Matches
PicList = PicList & Match.value
Next
Set RegEx=Nothing

[tatty_bad]

我忽略了，谢谢楼上的

[tatty_bad]

我要的只是其中的一部分代码啊，不是全部，gzdiablo ，能再帮我看看吗？

[tanyuabc]

BUJB

[gzdiablo]

For Each Match in Matches
PicList = PicList & Match.SubMatches(0)'0不行就用1
Next