Get text from HTML pages

Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Get text from HTML pages

 Keywords:  Get text from HTML pages OLE IE

Question:

Can anyone help me as to how I can get the text out of html pages? Can it be done? Please help!!

Answer:

Browser = ObjectOpen("InternetExplorer.Application")
browser.visible = @true
;browser.navigate ("c:\data\audit_trail.html") ;to access a local file
browser.navigate ("http://server01/page.html") ;to access an internet file

timedelay(2)
:top

if browser.readystate == 4 then
        BrowserDoc = Browser.Document
        BrowserBody = BrowserDoc.Body
        BrowserPage = BrowserBody.CreateTextRange
        BrowserText = BrowserPage.Text
else
        timedelay(1)
        goto top
endif

;out = fileopen("c:\bin\eaprint.txt", "write")
;filewrite(out, browsertext)
;fileclose(out)

message("Text", BrowserText)

exit

Article ID:   W14919