Option Explicit

Const READYSTATE_COMPLETE = 4


Dim strUrl

Dim objHTMLTableRow
Dim objHTMLTableCell

Dim SomeValue
Dim strContent

Dim lngPrevLocale

Dim strPath


strUrl = "http://www.cmegroup.com/trading/fx/g10/euro-fx_quotes_settlements_options.html"

With WScript.CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate strUrl
    
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    strContent = ""
    
    lngPrevLocale = SetLocale("en-us")
    
    With .Document.GetElementByID("settlementsOptionsProductTable")
        .deleteTHead
        .deleteTFoot
        
        For Each objHTMLTableRow In .rows
            If objHTMLTableRow.rowIndex > 0 And objHTMLTableRow.rowIndex < .rows.length - 1 Then
                For Each objHTMLTableCell In objHTMLTableRow.cells
                    SomeValue = objHTMLTableCell.innerText
                    
                    Select Case objHTMLTableCell.cellIndex
                        Case 0
                            If IsNumeric(SomeValue) Then
                                SomeValue = CSng(SomeValue) / 1000
                            End If
                        Case 1
                            Select Case SomeValue
                                Case "Call"
                                    SomeValue = 0
                                Case "Put"
                                    SomeValue = 1
                            End Select
                        Case 2, 3, 4, 5
                            If SomeValue = "-" Then
                                SomeValue = 0
                            ElseIf Right(SomeValue, 1) = "A" Or Right(SomeValue, 1) = "B" Then
                                SomeValue = Left(SomeValue, Len(SomeValue) - 1)
                                
                                If IsNumeric(SomeValue) Then
                                    SomeValue = CSng(SomeValue)
                                End If
                            End If
                        Case 6, 7
                            If IsNumeric(SomeValue) Then
                                SomeValue = CSng(SomeValue)
                            ElseIf SomeValue = "UNCH" Or SomeValue = "CAB" Then
                                SomeValue = -1
                            End If
                        Case 8, 9
                            If IsNumeric(SomeValue) Then
                                SomeValue = CLng(SomeValue)
                            End If
                    End Select
                    
                    strContent = strContent & SomeValue
                    
                    If objHTMLTableCell.cellIndex < objHTMLTableRow.cells.length - 1 Then
                        strContent = strContent & ";"
                    End If
                Next
                
                strContent = strContent & vbCrLf
            End If
        Next
    End With
    
    SetLocale lngPrevLocale
    
    .Quit
End With

With WScript.CreateObject("Scripting.FileSystemObject")
    strPath = .BuildPath(WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop"), "data.txt")
    
    With .CreateTextFile(strPath, True, True)
        .Write strContent
        .Close
    End With
End With

WScript.CreateObject("WScript.Shell").Run """" & strPath & """", 1, False

WScript.Quit 0