Export as Text

[Start_Learning]

Macro Macro130

Code:

Copy      Help

HtmlDoc d
d.SetOptions(2)
d.InitFromWeb("http://www.quickmacros.com/")
ARRAY(MSHTML.IHTMLElement) a; int i; str s outfile="$desktop$\outerHTML.txt"
d.GetLinks(a)
for i 0 a.len
,s += _s.from(a[i].outerHTML "[]")
s.setfile(outfile)
run outfile