先在工程里面引用 Microsoft VBScript Regular Expressions 5.5代码如下Option ExplicitPrivate Sub Form_Load()Dim objRegExp As regexpDim objMatch As MatchDim colMatches As MatchCollec...
s="href=""http://bbs1.people.com.cn/postDetail.do?boardId=19&;view=1&id=25788935""egergegfgd" Dim reSet re = CreateObject("VBScript.RegExp")re.Global = Truere.Pattern = """...