LIVE ODDS

[alrodopial]

For some unknown reason to me the getLiveShowURLS sub is not running at all. It should be called from inside the public function getLiveShow (first row of code). Anyone else having any ideas?

Use the below code - I had an error and also added a line to "ensure" that the getLiveShowURLS will be running -
I dont know if I will be able to test it today

If you get #VALUE errors in cells run the getLiveShowURLS sub manually, once

Code: Select all

Private Sub getLiveShowURLS()
    Dim t As String, p1 As Long, p2 As Long, c As Long
    Dim dayStr As String
    dayStr = Format(Now, "dd-mm-YYYY")
    t = getPage("http://www.sportinglife.com/racing/live-shows")
    p1 = 1
    Do
        p1 = InStr(p1, t, " <a href=" & Chr(34) & "/racing/live-shows/" & dayStr & "/")
        If p1 <> 0 Then
            p1 = p1 + 39
            p2 = InStr(p1, t, Chr(34))
            c = c + 1
            ReDim Preserve liveShowURLS(c)
            ReDim Preserve liveShowRaceTimes(c)
            liveShowURLS(c) = "http://www.sportinglife.com/racing/live-shows/" & dayStr & Mid(t, p1, p2 - p1)
            p2 = InStr(p1 - 300, t, ":")
            If p2 <> 0 Then liveShowRaceTimes(c) = Mid(t, p2 - 2, 5) Else liveShowRaceTimes(c) = ""
            Debug.Print liveShowURLS(c) & " " & liveShowRaceTimes(c)
        End If
    Loop Until p1 = 0
    If Not IsEmpty(liveShowURLS(1)) Then urlsLoaded = True
End Sub

[yursaduian]

Ok, stage one complete in as much as I've replaced the bit you've posted and at least the BF figures are coming through with no #VALUE! messages in sight but I dont know how it will cope fully until the Liveodds start coming through a few minutes before the first race.

I cant get on this myself today either but will do asap and will report back

Also, sorry but I dont know how to manually run a sub - but hopefully I wont need to?

Thanks again for your efforts

[GaryRussell]

I've changed my example code to handle timed out requests differently. Now it will just use the data from the previous successful call and instead of waiting 5 refreshes of Betfair prices until the next call it will attempt to capture the live shows on the next price refresh. Hope it helps.

You can download the update Here

[yursaduian]

Thanks Gary but that returns #VALUE! in my w/sheet

[yursaduian]

In fact Gary, that returns #VALUE! in your own worksheet?

[yursaduian]

alrodopial, that code does work better and the betfair figures do now come through but we're back to square one with the original problem and the intermittent feed of the LiveOdds.

The Sporting Life figures keep dropping out

[alrodopial]

alrodopial, intermittent feed of the LiveOdds.

........ dropping out

English isn't my native language, so in simple words you mean .... ?

[yursaduian]

The LIVEODDS stop and start.

The Betfair odds are always constant and seem fine but the Odds from Sportinglife (both decimal and fractional) appear then disappear. For no obvious reason, they are visible then they are not.

Sometimes its only for a split second but it can be for much longer and I sometimes get no figures through at all for an entire race - or most of it anyway

Does this help?

[alrodopial]

Garry made a very clever change in the last file he posted a couple of posts above. I hope it will solve your problem.
In the Public Function getLiveShow replace the line:
liveShowLastCaptured = Now
with the new one:
If t = "" Then t = liveShowHTML Else liveShowLastCaptured = Now

To manually run a macro in excel 2010:
View->Macros->double click at the macro you want

[yursaduian]

Ok, thanks again for all the input on this.

I did try to copy and paste Gary's code but it just wouldn't work. Then I just added the one line as you suggested and it worked fine after that.

It did seem much more settled and the figures came through constantly - until about 4.30 pm that it - when the liveodds suddenly started dropping out again

Now I'm wondering if it's something at their end causing problems as well? It doesn't make sense to be working one minute and then not the next. Something must cause that and if my worksheet isn't changing then something else must be...?

Is there another site apart from Sporting Life do you know? All the major bookmakers have constantly updated odds, as does Racing Post but is it possible to access a feed somehow?

Whatever happens, thanks again

[yursaduian]

It's playing silly buggers again now with no liveodds coming through at all

[osknows]

In Gary's latest example I think he's forgotten to uncomment the line 'web.Send

Remove the apostrophe so it reads web.Send

[GaryRussell]

In Gary's latest example I think he's forgotten to uncomment the line 'web.Send

Remove the apostrophe so it reads web.Send

That's exactly what I did. Sorry for the confusion. I blame it on the heat!

[yursaduian]

Ha ha - done that now and it seems to be running ok

Fingers crossed, lets see how it goes today

Cheers chaps

[yursaduian]

Gary, I wonder if it's this hot in Greece??