Finding Text in web page

[Gintaras]

If want to get text from web browser:

Macro Macro1727

Code:

Copy      Help

int w=wait(3 WV win("Quick Macros Forum • View topic - Finding Text in web page - Mozilla Firefox" "MozillaWindowClass"))
Acc a.Find(w "DOCUMENT" "" "" 0x3011 3)
str s
a.WebPageProp(0 0 0 s)
;out s
if findrx(s "\bHighest Educational\b")>=0
,out 1
else
,out 0

Works with Internet Explorer and 32-bit non-portable Firefox.

---------

If want to download the web page:

Macro Macro2701

Code:

Copy      Help

HtmlDoc d
d.SetOptions(2)
d.InitFromWeb("http://www.quickmacros.com/forum/viewtopic.php?p=31245")
str s=d.GetText
;out s
if findrx(s "\bHighest Educational\b")>=0
,out 1
else
,out 0