oparser = CREATEOBJECT('HTMLParser' ) SCAN ltext = oparser.getInnerText(htmlfield ) ENDSCAN DEFINE CLASS HTMLParser AS FORM FUNCTION getInnerText LPARAMETERS tcHTML ltext = '' TRY lcTemp = ADDBS(SYS(5)+CURDIR())+ SYS(2015)+ '.htm' STRTOFILE(tcHTML,lcTemp ,0) * required to avoid to achieve readystate IF VARTYPE(THIS.oie) = 'O' THIS.REMOVEOBJECT( "oIE" ) ENDIF THIS.ADDOBJECT( "oIE" , "fbrowser" ) *** WITH THIS.oie .Navigate2(lcTemp) DO WHILE .ReadyState # 4 WAIT WINDOW "" TIMEOUT .01 ENDDO ENDWITH ltext = THIS.oie.DOCUMENT.body.innertext CATCH TO loexception ltext = '' ENDTRY RETURN ltext ENDFUNC ENDDEFINE