HTTP GET - Download and Parse HTML

Downloads an HTML page from the Singapore Exchange and parses a row of options prices from an HTML table.

Download Chilkat XML ActiveX

Download Chilkat HTTP ActiveX

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

set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Send the HTTP GET and return the content in a string.

html = http.QuickGetStr("http://esite.sgx.com/live/dt/DTFuture.asp?JBFE")

'  Use the Chilkat HTML-to-XML component to convert
'  the HTML to parsable XML:
set htmlToXml = CreateObject("Chilkat.HtmlToXml")

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "HtmlToXml component unlock failed"
    WScript.Quit
End If

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

'  Set the HTML:
htmlToXml.Html = html

'  We won't need the scripts or images, so drop those tags...
htmlToXml.DropTagType "img"
htmlToXml.DropTagType "script"

'  Get the XML:

xmlStr = htmlToXml.ToXml()

'  Load the XML into the Chilkat XML parser:
set xml = CreateObject("Chilkat.Xml")
xml.LoadXml xmlStr

'  success = xml.SaveXml("out.xml");

'  Find a known point in the XML.  In this case we'll look for the text node
'  containing this string: "Chg From Prev Settle"
Set node = xml.SearchForContent(Nothing,"text","Chg From Prev Settle")
If (node Is Nothing ) Then
    MsgBox "Did not find Chg From Prev Settle"
    WScript.Quit
End If

'  Move up to the TD node:
node.GetParent2 

'  Move up to the TR node:
node.GetParent2 

'  Move to the next row (i.e. next TR)
node.NextSibling2 

node.FirstChild2 
node.NextSibling2 

outFile.WriteLine("Expire Month/Year: " & node.GetChildContent("text"))
node.NextSibling2 

outFile.WriteLine("Last: " & node.GetChildContent("text"))
node.NextSibling2 

outFile.WriteLine("Change: " & node.GetChildContent("text"))
node.NextSibling2 

'  ...

success = node.SaveXml("row.xml")


outFile.Close