Get text of webpage

[Gintaras]

Member function str.Html2Text

Code:

Copy      Help

function $HTML

;Extracts text from HTML.

;EXAMPLE
;str s
;IntGetFile "http://www.quickmacros.com" s
;s.Html2Text(s)
;out s


MSHTML.IHTMLDocument2 d._create(uuidof(MSHTML.HTMLDocument))
ARRAY(VARIANT) a.create(1)
a[0]=HTML
d.write(a)
this=d.body.innerText