VBScript

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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' Note: This example requires the Chilkat Bundle license.

' Any string argument automatically begins the 30-day trial.
set glob = CreateObject("Chilkat.Global")
success = glob.UnlockBundle("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(glob.LastErrorText)
    WScript.Quit
End If

set http = CreateObject("Chilkat.Http")

html = http.QuickGetStr("http://www.intel.com/")
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set htmlToXml = CreateObject("Chilkat.HtmlToXml")

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

' Set the HTML:
htmlToXml.Html = html

' Convert to XML:

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")

outFile.WriteLine("Finished.")

outFile.Close