Convert HTML to plain-text

Demonstrates how to convert HTML to plain-text. The HTML-to-text conversion component/class is included with the Chilkat HTML-to-XML license.

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

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

set h2t = CreateObject("Chilkat.HtmlToText")

'  Any string argument automatically begins the 30-day trial.
success = h2t.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox h2t.LastErrorText
    WScript.Quit
End If

'  Set the HTML:

html = "<html><body><p>This is a test.</p><blockquote>Here is text within a blockquote</blockquote></body></html>"

plainText = h2t.ToText(html)

outFile.WriteLine(plainText)
outFile.Close

Mail Component · XML Parser