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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set h2t = CreateObject("Chilkat.HtmlToText")
set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  HTML-to-Text is a separate product from HTTP.
'  The entire suite of Chilkat components may be licensed
'  as a "Bundle".
success = h2t.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox h2t.LastErrorText
    WScript.Quit
End If

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

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

'  Convert it to plain text:

plainText = h2t.ToText(html)

outFile.WriteLine(plainText)

outFile.Close