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://s\d+?(.+)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

  

时间: 2024-10-14 20:17:55

GetImageURL的相关文章

【黑马Android】(06)使用HttpClient方式请求网络/网易新闻案例

使用HttpClient方式请求网络 <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http://schemas.android.com/tools" android:layout_width="match_parent" android:layout_height="match_parent"

从网页获取图片

从中央气象台获取卫星云图的例子,代码如下: url:地址 package com.jointsky.jointframe.test; import java.io.File; import java.io.FileOutputStream; import java.io.IOException; import java.io.InputStream; import java.io.OutputStream; import java.net.URL; import java.net.URLConn

listview加载网络图片

public class ImageAndTextListAdapter extends ArrayAdapter<ImageAndText> { private ListView listView; private AsyncImageLoader asyncImageLoader; public ImageAndTextListAdapter(Activity activity, List<ImageAndText> imageAndTexts, ListView listVi

listview加载显示图片

public class ImageAndTextListAdapter extends ArrayAdapter<ImageAndText> { private ListView listView; private AsyncImageLoader asyncImageLoader; public ImageAndTextListAdapter(Activity activity, List<ImageAndText> imageAndTexts, ListView listVi

HtmlParser

HtmlParser 基本类库使用 HtmlParser 提供了强大的类库来处理 Internet 上的网页,可以实现对网页特定内容的提取和修改.下面通过几个例子来介绍 HtmlParser 的一些使用.这些例子其中的代码,有部分用在了后面介绍的简易爬虫中.以下所有的代码和方法都在在类 HtmlParser.Test.java 里,这是笔者编写的一个用来测试 HtmlParser 用法的类. 迭代遍历网页所有节点 网页是一个半结构化的嵌套文本文件,有类似 XML 文件的树形嵌套结构.使用Html

项目分享六:图片的延迟加载

一.关于延迟加载 图片的延迟加载,是 APP 里常用的一种技术,图片产生会生成一张预览图,等到原图下载完成后,再替换掉. 如下面二张图所示.实现起来,虽然不是很难,但要把它封装好,也不大容易.在这里主要讲解一下 ChiTuStore 项目中是如何封装. 二.图片的绑定 我们打开 App/Module/Home/Index.html 文件,可以找到下面一段代码,这段代码是用来对首页产品列表进行绑定的,我要关注的是 <img data-bind="attr:{src:ImagePath}&qu

SoftReference+Thread进行图片加载(二)

main.xml(先看主页面布局,界面很简单,只有一个ListView) <?xml version="1.0" encoding="utf-8"?> <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" android:orientation="vertical" android:layout_width="

Java操作IO各主要类介绍

DataInputStream和DataOutputStream 往二进制文件中读和写入java基本数据类型 public class BinaryReadWrite { private DataInputStream dis = null; private DataOutputStream dos = null; private String s_FilePath = "config\\bin.dat"; private byte[] buff = "{\"nam

android开发干货:实现listview异步加载图片

针对listview异步加载图片这个问题,麦子学院android开发老师讲了一种非常实用的方法,麦子学院android开发老师说凡是是要通过网络获取图片资源一般使用这种方法比较好,用户体验好,下面就说实现方法,先贴上主方法的代码: package cn.wangmeng.test; import java.io.IOException; import java.io.InputStream; import java.lang.ref.SoftReference; import java.net.