| seeing that this is a development assignment ... im not sure if your teacher would cut you slack on grabbing that data from somewhere other then parsing it yourself .... anyway, the code below is just an eagles eye point of view of how easy the project is ..... the only thing thats difficult about this is that its tideous ... not that its difficult ... oh, and unless im missing something, i dont see a place where the umpire or weather related data is stored on espn so thats not a possibility ... you can only get what you can....
'historical data
private sub StartParse()
dim intYear as integer
dim intWeek as integer
dim iYear as integer
dim iWeek as integer
intYear = 2005
intWeek = 1
for iYear = intYear to 2006
for iWeek = intWeek to 17
call GetGames("http://scores.espn.go.com/nfl/scoreboard?weekNumber=" & intWeek & "&seasonYear=" & intYear & "&seasonType=2"
next iWeek
next iYear
end sub
private sub GetGames(strPage as string)
dim strGameID as string
dim strGameURL as string
dim intStart as long
dim intEnd as long
strGameURL = "http://scores.espn.go.com/nfl/boxscore?gameId="
'on this page, parse for every "http://scores.espn.go.com/nfl/boxscore?gameId=" get the id and put it into strGame ID inside a Loop
strGameID = 250911002
call ParseGame(strGameURL & strgameid)
end sub
Private sub ParseGame(strGameURL as string)
'parse the game .... the webbrowser control gives you the html to the whole page ... thats what you need to parse ... everything on this page follows patterns so parsing it is not hard
end sub
Last edited by Niceshot23 : 12-17-2007 at 11:13 AM.
|