Customer support forum for the iScore Sports line of scorekeeping products
http://www.iscoreforum.com/baseball/
http://www.iscoreforum.com/baseball/viewtopic.php?f=3&t=7858
Code: Select all
Private Sub getParseXMLGameDetail()
Dim XMLFile As String = strXMLFile
Dim xmlDoc As New XmlDocument
Dim iEventID As Integer
Dim strType As String
Dim strDesc As String
Dim strX As String
Dim strY As String
Dim strHit_Type As String
Dim strHit_Strength As String
Dim strPlayer As String
Dim strBase As String
Dim strFielders As String
Dim strTeamV As String
Dim strTeamH As String
Dim strTeamFielding As String
Dim strSide As String
Dim str1v As String = ""
Dim str2v As String = ""
Dim str3v As String = ""
Dim str4v As String = ""
Dim str5v As String = ""
Dim str6v As String = ""
Dim str7v As String = ""
Dim str8v As String = ""
Dim str9v As String = ""
Dim str1h As String = ""
Dim str2h As String = ""
Dim str3h As String = ""
Dim str4h As String = ""
Dim str5h As String = ""
Dim str6h As String = ""
Dim str7h As String = ""
Dim str8h As String = ""
Dim str9h As String = ""
xmlDoc.Load(XMLFile)
Dim node As XmlNode = xmlDoc.SelectSingleNode("/GAME")
If node IsNot Nothing Then
setInsertGame(node.Attributes("guid").Value, node.Attributes("name").Value)
For Each RootLevel As XmlNode In node.ChildNodes
Select Case RootLevel.Name
Case Is = "TEAM"
Select Case RootLevel.Attributes("side").Value
Case Is = "home"
strTeamH = RootLevel.Attributes("guid").Value
Case Is = "visitor"
strTeamV = RootLevel.Attributes("guid").Value
End Select
setInsertTeam(node.Attributes("guid").Value, RootLevel.Attributes("guid").Value, RootLevel.Attributes("side").Value, RootLevel.Attributes("name").Value)
For Each TEAMLevel As XmlNode In RootLevel.ChildNodes
Select Case TEAMLevel.Name
Case Is = "PLAYER"
setInsertPlayer(node.Attributes("guid").Value, _
RootLevel.Attributes("guid").Value, _
TEAMLevel.Attributes("guid").Value, _
TEAMLevel.Attributes("firstname").Value, _
TEAMLevel.Attributes("lastname").Value, _
TEAMLevel.Attributes("bats").Value, _
TEAMLevel.Attributes("throws").Value, _
TEAMLevel.Attributes("jersey").Value)
End Select
Next
Case Is = "INNING"
If RootLevel.Attributes("tb").Value = "T" Then
strTeamFielding = strTeamH
Else
strTeamFielding = strTeamV
End If
strSide = RootLevel.Attributes("tb").Value
For Each INNINGLevel As XmlNode In RootLevel.ChildNodes
For Each BATTERLevel As XmlNode In INNINGLevel.ChildNodes
Select Case BATTERLevel.Name
Case Is = "PITCH"
setInsertPitch(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
RootLevel.Attributes("num").Value, _
RootLevel.Attributes("tb").Value, _
BATTERLevel.Attributes("time").Value, _
BATTERLevel.Attributes("ms").Value, _
BATTERLevel.Attributes("pitcher").Value, _
BATTERLevel.Attributes("type").Value, _
BATTERLevel.Attributes("speed").Value, _
BATTERLevel.Attributes("batterhand").Value, _
BATTERLevel.Attributes("pitcherhand").Value, _
BATTERLevel.Attributes("x").Value, _
BATTERLevel.Attributes("y").Value, _
INNINGLevel.Attributes("guid").Value)
iEventID = 0
For Each PITCHLevel As XmlNode In BATTERLevel.ChildNodes
Select Case PITCHLevel.Name
Case Is = "LINEUP"
For Each LINEUPLevel As XmlNode In PITCHLevel.ChildNodes
Select Case LINEUPLevel.Name
Case Is = "POS"
If PITCHLevel.Attributes("tguid").Value = strTeamH Then
Select Case LINEUPLevel.Attributes("field").Value
Case Is = "1"
str1h = LINEUPLevel.Attributes("guid").Value
Case Is = "2"
str2h = LINEUPLevel.Attributes("guid").Value
Case Is = "3"
str3h = LINEUPLevel.Attributes("guid").Value
Case Is = "4"
str4h = LINEUPLevel.Attributes("guid").Value
Case Is = "5"
str5h = LINEUPLevel.Attributes("guid").Value
Case Is = "6"
str6h = LINEUPLevel.Attributes("guid").Value
Case Is = "7"
str7h = LINEUPLevel.Attributes("guid").Value
Case Is = "8"
str8h = LINEUPLevel.Attributes("guid").Value
Case Is = "9"
str9h = LINEUPLevel.Attributes("guid").Value
End Select
Else
Select Case LINEUPLevel.Attributes("field").Value
Case Is = "1"
str1v = LINEUPLevel.Attributes("guid").Value
Case Is = "2"
str2v = LINEUPLevel.Attributes("guid").Value
Case Is = "3"
str3v = LINEUPLevel.Attributes("guid").Value
Case Is = "4"
str4v = LINEUPLevel.Attributes("guid").Value
Case Is = "5"
str5v = LINEUPLevel.Attributes("guid").Value
Case Is = "6"
str6v = LINEUPLevel.Attributes("guid").Value
Case Is = "7"
str7v = LINEUPLevel.Attributes("guid").Value
Case Is = "8"
str8v = LINEUPLevel.Attributes("guid").Value
Case Is = "9"
str9v = LINEUPLevel.Attributes("guid").Value
End Select
End If
setInsertPOS(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
PITCHLevel.Attributes("tguid").Value, _
LINEUPLevel.Attributes("guid").Value, _
LINEUPLevel.Attributes("bat").Value, _
LINEUPLevel.Attributes("field").Value)
End Select
Next
Case Is = "SITUATION"
setInsertSituation(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
PITCHLevel.Attributes("visitor").Value, _
PITCHLevel.Attributes("home").Value, _
PITCHLevel.Attributes("balls").Value, _
PITCHLevel.Attributes("strikes").Value, _
PITCHLevel.Attributes("outs").Value, _
PITCHLevel.Attributes("first").Value, _
PITCHLevel.Attributes("second").Value, _
PITCHLevel.Attributes("third").Value, _
PITCHLevel.Attributes("pitcherballs").Value, _
PITCHLevel.Attributes("pitcherstrikes").Value)
Case Is = "EVENT"
iEventID += 1
strType = ""
strDesc = ""
strX = "0"
strY = "0"
strHit_Type = ""
strHit_Strength = ""
strPlayer = ""
strBase = ""
strFielders = ""
For Each EVENTAtt As XmlAttribute In PITCHLevel.Attributes
Select Case EVENTAtt.Name
Case Is = "type"
strType = EVENTAtt.Value
Case Is = "desc"
strDesc = EVENTAtt.Value
Case Is = "x"
strX = EVENTAtt.Value
Case Is = "y"
strY = EVENTAtt.Value
Case Is = "hit_type"
strHit_Type = EVENTAtt.Value
Case Is = "hit_strength"
strHit_Strength = EVENTAtt.Value
Case Is = "player"
strPlayer = EVENTAtt.Value
Case Is = "base"
strBase = EVENTAtt.Value
Case Is = "fielders"
strFielders = EVENTAtt.Value
End Select
Next
setInsertEvent(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
iEventID, _
strType, _
strDesc, _
strX, _
strY, _
strHit_Type, _
strHit_Strength, _
strPlayer, _
strBase, _
strFielders)
Case Is = "RESULT"
setInsertRESULT(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
(PITCHLevel.Attributes("visitor").Value), _
(PITCHLevel.Attributes("home").Value), _
(PITCHLevel.Attributes("balls").Value), _
(PITCHLevel.Attributes("strikes").Value), _
(PITCHLevel.Attributes("outs").Value), _
(PITCHLevel.Attributes("first").Value), _
(PITCHLevel.Attributes("second").Value), _
(PITCHLevel.Attributes("third").Value), _
(PITCHLevel.Attributes("pitcherballs").Value), _
(PITCHLevel.Attributes("pitcherstrikes").Value))
End Select
Next
'insert POSByPitch
Select Case strSide
Case Is = "T"
setInsertPOSByPitch(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
str1h, _
str2h, _
str3h, _
str4h, _
str5h, _
str6h, _
str7h, _
str8h, _
str9h)
Case Is = "B"
setInsertPOSByPitch(node.Attributes("guid").Value, _
BATTERLevel.Attributes("id").Value, _
str1v, _
str2v, _
str3v, _
str4v, _
str5v, _
str6v, _
str7v, _
str8v, _
str9v)
End Select
End Select
Next
Next
Case Else
End Select
Next
End If
End Sub