'Regular expression che estrapola il tag <a>
Set rText = New regexp
rText.Pattern ="<a\b[^>]*>(.*?)</a>"
rText.Global = True
rText.IgnoreCase = True
'Esecuzione della regular expression nel codice HTML
Set objCols = rText.Execute( sHTML )
For Each objMatch in objCols
href = objMatch.Value
lungo = len(href)
dovehref = instr(1, href, "href=")
lungodestra = (lungo-(dovehref+5))
dahrefinpoi = right(href, lungodestra)
dovedoppiapici = instr(1, dahrefinpoi, """")
href=left(dahrefinpoi, dovedoppiapici)
href=replace(href, """", "")
sText = sText & href&"
"
Next
'Pulisce tutto
Set rText = Nothing
Set objCols = Nothing
%>