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 h2t As New HtmlToText
Dim http As New ChilkatHttp

Dim success As Long

'  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
    Exit Sub
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
    Exit Sub
End If

'  Send the HTTP GET and return the content in a string.
Dim html As String
html = http.QuickGetStr("http://www.bonairefishing.com/")

'  Convert it to plain text:
Dim plainText As String
plainText = h2t.ToText(html)

Text1.Text = Text1.Text & plainText & vbCrLf