SET PROCEDURE TO wwUtils ADDITIVE SET CLASSLIB TO wwIPStuff Additive o=create("wwIPSTUFF") lcHTML = o.HTTPGet('http://myweb.com')>Hi Cetin,
>>Local m.myHTML,m.parsed >>myHTML=[This<br> is an <font color="red"><b>example</b></font><Hr>x2 < x3] >>*myHTML= FileToStr(GetFile('HTM')) >>parsed = '' >>oParser = Createobject('myParser',m.myHTML,@m.parsed) >>? m.Parsed >>*StrToFile(m.Parsed,'ParseResult.txt') >> >>Define Class myParser As Form >> Add Object oWB As OleControl With ; >> OleClass = 'Shell.Explorer' >> >> Procedure Init >> Lparameters tcHTML, tcParse >> lcTemp = Sys(2015)+'.htm' >> Strtofile(tcHTML,lcTemp) >> With This.oWB >> .Navigate2('file://'+Fullpath(lcTemp)) >> Wait window 'Parsing...' nowait >> Do While .ReadyState # 4 && Wait for ready state >> EndDo >> Endwith >> Erase (lcTemp) >> tcParse = This.oWB.Document.body.innerText >> Wait clear >> Return .f. >>Endproc >>Enddefine >>Cetin