问个正则表达式

[无·法]

Option Explicit

Private Sub Command1_Click()
    Dim data$
    data = "<a>http://www.baidu.com><span class=simple>s1</span></a>" & vbCrLf & _
           "<a>http://www.sina.com><span class=simple>t2</span></a>" & vbCrLf & _
           "<a>http://wx.txes.com><span class=simple>tr0</span></a>"
    
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.ignorecase = True
    reg.Pattern = "<a>.*><span class=simple>"
    
    Dim matches
    Set matches = reg.execute(data)
    
    Dim match
    For Each match In matches
        Call MsgBox(match.Value)
    Next
End Sub

请问上面如何取出特定的网址啊，我这样的直接显示整个字符串了，现在的做法是取出来再用字符串函数处理下，比较麻烦，我觉得可以一步到位的，各位帮帮忙，谢谢！

[帝企鹅已被占用]

应该没有，不然他不会花时间写这些
http://www.vbforums.com/showthread.php?t=342995

[s11ss]

Option Explicit


Private Sub Command1_Click()
Dim data$
data = "<a>http://www.baidu.com><span class=simple>s1</span></a>" & vbCrLf & _
"<a>http://www.sina.com><span class=simple>t2</span></a>" & vbCrLf & _
"<a>http://wx.txes.com><span class=simple>tr0</span></a>"

Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.ignorecase = True
reg.Pattern = "<a>([^>]+)>"

Dim matches
Set matches = reg.execute(data)

Dim match
For Each match In matches
Call MsgBox(match.submatches(0))
Next
End Sub

[s11ss]

reg.Pattern = "<a>([^>]+)>"
'第一个引号后面没有空格

[lsftest]

Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = "<a>(.*?)>"

[lsftest]

晕，csdn怎么老是喜欢帮人加空格。。4楼的pattern最前面也是没有空格的。

[s11ss]

[Quote=引用 4 楼 lsftest 的回复:]
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"
[/Quote]
study

[无·法]

[Quote=引用 4 楼 lsftest 的回复:]
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"
[/Quote]

谢谢各位，不过上面的这个去掉问号也是可以的吧？

[s11ss]

不可以，因为?的作用是指定匹配是非贪婪的，就是尽量少的匹配，而不是默认的尽量多的匹配（会匹配到行尾）[Quote=引用 8 楼 sysdzw 的回复:]
引用 4 楼 lsftest 的回复:
Dim myRegExp
Set myRegExp = New RegExp
myRegExp.Pattern = " <a>(.*?)>"


谢谢各位，不过上面的这个去掉问号也是可以的吧？
[/Quote]

[king06]

[Quote=引用 5 楼 lsftest 的回复:]
晕，csdn怎么老是喜欢帮人加空格。。4楼的pattern最前面也是没有空格的。
[/Quote]
O(∩_∩)O哈哈~，顺便学习一下~