Race distance

[barakg]

Hi,
In a horce race, if you use login to excel, you can see the distance of the race in cell A1 (or the upper left cell in which the login begins). The problem: it's "complicated" to extract the exact legnth from that cell, so you can use it in some of your excel formulas (it can be 7f, 2.4m...).

Is there any other way i can get it through BA?

Thanks

[mak]

place this in cell BT1
=IF(MID(A1;FIND(":";A1)+6;1)=" ";MID(A1;FIND(":";A1)+4;2);MID(A1;FIND(":";A1)+4;4))

place this in cell BT2
=IF(TYPE(FIND("m";BT1))=16;LEFT(BT1;LEN(BT1)-FIND("f";BT1)+1)*1;IF(TYPE(FIND("f";BT1))=16;LEFT(BT1;LEN(BT1)-FIND("m";BT1)+1)*8;LEFT(BT1;FIND("m";BT1)-1)*8+MID(BT1;FIND("m";BT1)+1;FIND("f";BT1)-FIND("m";BT1)*1-1)))

in BT2 you will have distance in furlongs

* I think it is Gary's formula...

[barakg]

Thanks!

You need to change all the ";" into ","

[MiniBlueDragon]

Have I missed something here? The Betting Assistant for BetDaq (ver 1.0.9.0) only shows the following in cell A1:

14:00 Lingfield Win Market

There's nothing to be parsed to get the race distance. :/

[mak]

if i remember correct BetDaq api only shows this info in cell A1 anyway

[MiniBlueDragon]

Ah right, no worries. I'll add it to my screen scrape then and pull it off Sporting Life.

Thanks for the reply.

[osknows]

Here is a solution which scrapes the RP data and then matches the course names. I haven't checked if all course names in the sheet LOOKUPS align with Betdaq output in cell A1 so some may need amended.

http://www.mediafire.com/?yulwvnq13uw72ym

[MiniBlueDragon]

Cheers osknows. I think I've pretty much scraped what I need now via the existing vba. Just finished parsing the distance from the output:

At The Races Nursery 5f
(2yo, 5f, Class 5, 9 runners)
Winner £2,727 2nd £805 3rd £403
Going: Standard
Surface: Polytrack

The code (if anyone else can benefit) I'm using is:

Code: Select all

' Find first comma
openingParen = InStr(oDocRaceTitle(0).innerText, ",")
' Find first bracket
closingParen = InStr(oDocRaceTitle(0).innerText, ")")
' Grab data between the comma and bracket
enclosedValue = Mid(oDocRaceTitle(0).innerText, openingParen + 1, closingParen - openingParen - 1)
Find the first comma within the new string
j = InStr(enclosedValue, ",")
' If a comma is found trim everything including that comma to leave the race distance
If j > 0 Then enclosedValue = Trim(Left(enclosedValue, j - 1))

Tying the above into my existing race distances table I can now cancel bets depending on race time rather than at 40 seconds no matter the race distance.

Fingers crossed that means more value!

[MiniBlueDragon]

In addition to the above I found I need this:

Code: Select all

j = InStr(oDocRaceDistance, " ")
If j > 0 Then oDocRaceDistance = Trim(Left(oDocRaceDistance, j - 1))

That drops any "meters" distances from the string to enable an easy match to my table via Index and Match.

(I realise it means that if a race is 1m short of the next rounded distance it means cancelling slightly earlier than ideal but it's good enough for me.)