网络大杂烩首页

网络大杂烩

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【网络大杂烩】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB用正则表达式提取网址 附送代码

    日期:2019/12/22 23:04:29来源分类:编程开发

    VB用正则表达式提取网址 附送代码 如下=========================

    Sub GetURL(ByVal s As String)
        Dim re As RegExp
        Dim mh As Match
        Dim mhs As MatchCollection
       
        Set re = New RegExp
        re.Global = True
        re.Pattern = "href= ""(http(s)?://[\s\S]+?)"""
        If re.Test(s) = False Then Exit Sub
        Set mhs = re.Execute(s)
        For Each mh In mhs
            Debug.Print mh.SubMatches(0)
        Next
    End Sub

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【网络大杂烩】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员