B4X

Download HTML from URL and Convert to XML

See more HTML-to-XML/Text Examples

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

Dim success As Boolean = False

'  Note: This example requires the Chilkat Bundle license.

'  Any string argument automatically begins the 30-day trial.
Dim glob As ChilkatGlobal
glob.Initialize
success = glob.UnlockBundle("30-day trial")
If success <> True Then
    Log(glob.LastErrorText)
    Return
End If


Dim http As ChilkatHttp
http.Initialize("http")

Dim html As String
html = http.QuickGetStr("http://www.intel.com/")
If http.LastMethodSuccess <> True Then
    Log(http.LastErrorText)
    Return
End If


Dim htmlToXml As ChilkatHtmlToXml
htmlToXml.Initialize

'  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.
success = htmlToXml.WriteStringToFile(xml, "qa_output/out.xml", "utf-8")

Log("Finished.")