HTML - Finding block-details

[jamescooper]

Hello,

I have the following website:

http://greyhoundbet.racingpost.com/#dog/race_id=1596517&r_date=2018-03-15&dog_id=508369

Which I then can get just the block details by using the following URL:

http://greyhoundbet.racingpost.com/..._date=2018-03-15&dog_id=508369&blocks=details

I am not sure how to get to the 2nd one, but how would I do the same for this URL:

http://greyhoundbet.racingpost.com/#meeting-list/r_date=2018-03-15

Where do I look within the code editor?

Many thanks.

 

[Legacy 421546]

Please elaborate: What are you trying to acheive?

 

[jamescooper]

http://greyhoundbet.racingpost.com/meeting/blocks.sd?r_date=2018-03-16&view=time&blocks=header,list

Looks like this is the URL:

Trying to pull from this: http://greyhoundbet.racingpost.com/#meeting-list/r_date=2018-03-16

The 10:29 Harlow, 10:36 Crayford etc....

Trying to code it, have the JSONCONVERT in a module

Sub Dog_Form()


    Dim LastRow     As Long
    Dim x           As Long
    Dim urls        As Variant
    Dim dogLinks    As Variant
    
    LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    urls = Sheets("Sheet1").Range("A1:A" & LastRow).Value
    
    For x = LBound(urls) To UBound(urls)
        dogLinks = getDogForm(urls(x, 1))
        Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 8).End(xlUp).Offset(1).Resize(UBound(dogLinks), 2).Value2 = dogLinks
    Next x


End Sub


Private Function getDogForm(ByVal url As String) As Variant


    Dim items   As Collection
    Dim item    As Object
    Dim ret()   As Variant
    Dim x       As Long
    Dim dogName As String
    Dim trapNum As String
    Dim dateOfBirth As String
    Dim dogId As String


    With CreateObject("msxml2.xmlhttp")
       .Open "GET", url, False
       .send
       Set List = JSONConvert.ParseJson(.responseText)("list")
    End With
    
    Set items = List("items")
    
    raceDate = Lists("races")("raceDate")
    
    
    ReDim ret(1 To items.Count, 1 To 2)
        
    For Each item In items
        x = x + 1
        ret(x, 1) = raceDate
        ret(x, 2) = item("trackShortName")
        
    Next item
    
    getDogForm = ret
    
End Function

Thanks.