Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

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

'  Note: This example uses two Chilkat products: Chilkat HTTP
'  and Chilkat HTML-to-XML.  The "Chilkat Bundle" can be licensed
'  at a price that is less than purchasing each product individually.
'  The "Chilkat Bundle" provides licenses to all existing Chilkat components.  Also, new-version upgrades are always free.

Dim http As New Chilkat.Http()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = http.UnlockComponent("30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If


Dim html As String
html = http.QuickGetStr("http://www.intel.com/")
If (html = vbNullString ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If


Dim htmlToXml As New Chilkat.HtmlToXml()

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & htmlToXml.LastErrorText & vbCrLf
    Exit Sub
End If


'  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

'  Set the HTML:
htmlToXml.Html = html

'  Convert to XML:
Dim xml As String
xml = htmlToXml.ToXml()

'  Save the XML to a file.
'  Make sure your charset here matches the charset
'  used for the XmlCharset property.
htmlToXml.WriteStringToFile(xml,"out.xml","utf-8")

MsgBox("Finished.")