Convert HTML to plain-text

Converts HTML to plain-text.

Download Chilkat HTML-to-XML ActiveX (also includes HTML-to-PlainText conversion)

Download Chilkat HTTP ActiveX

LOCAL loH2t
LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL lcPlainText


loH2t = CreateObject('Chilkat.HtmlToText')
loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  HTML-to-Text is a separate product from HTTP.
*  The entire suite of Chilkat components may be licensed
*  as a "Bundle".
lnSuccess = loH2t.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loH2t.LastErrorText)
    QUIT
ENDIF

*  Send the HTTP GET and return the content in a string.

lcHtml = loHttp.QuickGetStr("http://www.bonairefishing.com/")

*  Convert it to plain text:

lcPlainText = loH2t.ToText(lcHtml)

? lcPlainText