vb正则表达式

Dim regex As Object Set regex = CreateObject("vbscript.regexp") With regex .Global = True .IgnoreCase = True .MultiLine = True .Pattern = "[/d*]+" End With str_end = regex.Replace("a123c11", "b") '正则方法一 bool_end = regex.test("a1") '正则方法二 Dim matches As Object Set matches = regex.Execute("a1b2c3") '正则方法三 For Each Match In matches s = Match.Value Next For i = 0 To matches.Count - 1 s = matches(i).Value Next i

提取信息中的网络链接:
(h|H)(r|R)(e|E)(f|F) *= *('|")?(/w|//|//|/.)+('|"| *|>)?

提取信息中的邮件地址:
/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*

提取信息中的图片链接:
(s|S)(r|R)(c|C) *= *('|")?(/w|//|//|/.)+('|