Convert HTML to plain-text

Converts HTML to plain-text.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim h2t As New Chilkat.HtmlToText()
Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) 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 <> true) 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)

TextBox1.Text = TextBox1.Text & plainText & vbCrLf