zoukankan      html  css  js  c++  java
  • GetImageURL

    Sub GetImageUrl(ByVal URL As String)
        Dim strText As String
        Dim i As Long
        Dim OneImg
        
        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", URL, False
            .Send
            strText = .responsetext
        End With
        
        Dim arr() As String
        ReDim arr(1 To 1) As String
        
        With CreateObject("htmlfile")
            .write strText
            i = 0
            For Each OneImg In .getElementsByTagName("img")
               If OneImg.getAttribute("real_src") <> "Null" Then
                    'If RegTest(CStr(OneImg.getAttribute("real_src")), "http(.+)sinaimg.cn/(.+)") Then
                    Debug.Print RegTest(OneImg.getAttribute("real_src"), "http://sd+?(.+)sinaimg.cn/(.+)")
                    
                    Debug.Print OneImg.getAttribute("real_src")
                    ' End If
                End If
            Next
        End With
        
    End Sub
    
    Sub ddddddddd()
          GetImageUrl "http://blog.sina.com.cn/s/blog_5a18c50f0102x8lg.html"
    End Sub
    Sub dd()
         Debug.Print RegTest("http://s14.sinaimg.cn/mw690/001Eip7Fzy7d3ZOIfKZfd&690", "http(.+)sinaimg.cn/(.+)")
    End Sub
    
    Public Function RegTest(ByVal OrgText As String, ByVal Pattern As String) As Boolean
    '传递参数 :原字符串, 匹配模式
        Dim Regex As Object
        Set Regex = CreateObject("VBScript.RegExp")
        With Regex
            .Global = True
            .Pattern = Pattern
        End With
        RegTest = Regex.TEST(OrgText)
        Set Regex = Nothing
    End Function
    

      

  • 相关阅读:
    vs编译出现 fatal error LNK1281:无法生成 SAFESEH 映像
    $apply()和$digest()——angular
    JS获取URL中参数值
    NeDB——node嵌入式数据库
    VS Code常用插件
    js断点调试
    VS Code 使用Git进行版本控制
    VS Code快捷键
    用户tokenId
    node-webkit-updater——NW.js自动更新
  • 原文地址:https://www.cnblogs.com/nextseven/p/7291764.html
Copyright © 2011-2022 走看看