View Single Post
Old 12-17-2007, 11:08 AM   #10 (permalink)
Niceshot23
Registered User
 
Join Date: Oct 2004
Posts: 107
+0 Internets
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.
Niceshot23 is offline   Reply With Quote

 
Uberguilds Network