Enumerate Elements on webpage

[Gintaras]

Member function str.Html

Code:

Copy      Help

function $Html $Tag $Attibute [Index] [str&Results]

;EXAMPLE
;str s
;IntGetFile "http://www.google.com" s
;str Results
;str x.Html(s "a" "href" 5 Results)
;
;out x
;out "------"
;out Results

if(&Results) Results.fix(0)

HtmlDoc d.InitFromText(Html)
ARRAY(MSHTML.IHTMLElement) aHtml
d.GetHtmlElements(aHtml Tag)

if &Results
,for(_i 0 aHtml.len) Results.AddLine(aHtml[_i].getAttribute(Attibute 2))
,Results.rtrim("[]")

this=aHtml[Index].getAttribute(Attibute 2)

err+ ret 1