Sub Process_Globals
Private parser As SaxParser
Private events As Map
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
parser.Initialize
events.Initialize
parser.Parse(File.OpenInput(File.DirAssets, "1.xml"), "parser")
Log(events)
End If
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("EVENT") > -1 Then 'we are inside the EVENT node
events.Put(Name, Text.ToString)
End If
End Sub