asp.net(VB)中使用正则获取图片地址并进行下载.

使用时需要导入.net命名空间,本例对复制到文本框中的网页源代码获取其中图片地址,并下载,你也可以根据需要把图片在你的页面上进行显示.

Imports System.Net
Partial Class Query_QImage
    Inherits System.Web.UI.Page
    Function Htmlimg(ByVal str As String) As String
        Dim Himg As String = ""
        Dim rg As Regex
        rg = New Regex("<img.+?>")
        Dim mm = rg.Matches(str)
        For Each Match1 In mm
            Himg = Himg & Getimgs(Match1.value)
        Next
        Return Himg
    End Function

Function Getimgs(ByVal str As String) As String
        Dim Gimgs As String = ""
        Dim rg As Regex
        rg = New Regex("http://([^']+(?:jpg""|gif""|png""|bmp""|jpeg""))") '("http://.+?.jpg""")
        Dim mm = rg.Matches(str)
        For Each Match1 In mm
            Gimgs = Gimgs & "|" & Left(Match1.Value, Len(Match1.Value) - 1)
        Next
        Return Gimgs
    End Function

'对代码中的图片进 行下载,保存到d盘,指定的路径一定要存在.

 Protected Sub btn_down_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_down.Click
        Dim wc As New WebClient
        Dim imgs As String '所有图片的地址
        'Dim imgdata As Byte() ' imgdata = wc.DownloadData(url)  'Response.BinaryWrite(imgdata)
        Dim path As String = "D:\Test\"
        Dim Fname As String = "" '图片的名称
        Dim url As String = "" '图片的url地址
        Dim img() As String
        Dim sx() As String
        Dim sss As String = ""
        imgs = Htmlimg(txt_lr.Text)
        img = Split(imgs, "|")
        txt_lr.Text = imgs
        For Each ss In img
            url = ss
            sx = Split(ss, "/")
            Fname = sx(sx.Length - 1)
            If Fname = "" Then
            Else
                sss += path & Fname
                wc.DownloadFile(url, path & Fname)
            End If
        Next
        txt_lr.Text = sss

 End Sub