Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xml As SaxParser
Dim TR As TextReader
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
TR.Initialize(File.OpenInput(File.DirAssets,"alarms.xml"))
xml.Initialize
xml.Parse2(TR,"Parser")
MainForm.Show
End Sub
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
If xml.Parents.IndexOf("Row") > -1 Then
If Name = "Cell" Then
Log ("St: Cell")
For i = 0 To Attributes.Size-1
Log(Attributes.GetName(i) & " " &Attributes.GetValue(i))
Next
End If
End If
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If xml.Parents.IndexOf("Row") > -1 Then
If Name = "Cell" Then
Log ("End: Cell")
End If
End If
End Sub