vbs - trova il link di una immagine in una stringa html

'

Option Explicit

'

' vbs - trova il link di una immagine in una stringa html

'

dim stringa

stringa="<a href=""http://dominio/""><img src=""http://dominio/immagine.jpg""/></a><br>descrizione immanine."

'

msgbox getImgTagURL(stringa)

'

'

'

Function getImgTagURL(HTMLstring)

Dim RegEx, Matches, URL, Match

 

    Set RegEx = CreateObject("Scripting.FileSystemObject")

    With RegEx

        .Pattern = "src=[\""\']([^\""\']+)"

        .IgnoreCase = True

        .Global = True

    End With

 

    Set Matches = RegEx.Execute(HTMLstring)

    ' ricerca tutte le immagini

    URL = ""

    For Each Match in Matches

        ' estrae solo il primo risultato

        URL = Match.Value

        Exit For

    Next

    '

    Set Match = Nothing

    Set RegEx = Nothing

    '

    getImgTagURL = Replace(URL, "src=""", "")

End Function

'

'

'