Match id and relatives Markets

[vigliani.gaspare]

Hi Gary,
Would it be possible to extrapolate all the football matches with all the related markets and the IDs to recall them via Com?

[GaryRussell]

I assume from your previous post that you are using VB.Net. Here's sample VB.Net code (console application) to store the event names in a HashTable. The HashTable's key is the event name and the values are another HashTable containing the market id as the key and BfEvent object as the value. It specifically targets English Soccer, but can be easily adapted.

Code: Select all

Imports BettingAssistantCom.Application

Module Module1

    Private WithEvents BA As New ComClass
    Private soccerEvents As New Hashtable

    Sub Main()
        Dim sports() As Object
        Try
            sports = BA.getSports
            ' Load markets into HashTable
            For Each sport As BfSport In sports
                If sport.sport = "Soccer" Then
                    Console.WriteLine("Sport name:" & sport.sport & ", Sport id:" & sport.sportId)
                    recurseMarkets(sport.sportId, Nothing, False)
                    Exit For
                End If
            Next
            ' List markets
            For Each venue As String In soccerEvents.Keys
                For Each market As BfEvent In soccerEvents(venue).values
                    Console.WriteLine("Venue:" & venue & ", Match name:" & market.eventName & ", Market id:" & market.eventId)
                Next
            Next
            Console.WriteLine("**** Done ****")
            Console.ReadKey()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub recurseMarkets(eventId As Long, parentEvent As BfEvent, isEnglishSoccer As Boolean)
        Dim markets() As Object
        markets = BA.getEvents(eventId)
        For Each market As BfEvent In markets
            If market.eventId = 0 Then Continue For
            If market.eventName <> "English Soccer" And Not isEnglishSoccer Then Continue For
            If isEnglishSoccer And market.isMarket Then
                If Not soccerEvents.ContainsKey(parentEvent.eventName) Then
                    soccerEvents.Add(parentEvent.eventName, New Hashtable)
                End If
                soccerEvents(parentEvent.eventName).Add(market.eventId.ToString, market)
            Else
                recurseMarkets(market.eventId, market, True)
            End If
        Next
    End Sub

End Module