Sub Globals
Dim Parser As SaxParser
End Sub
Dim In As InputStream
In=File.OpenInput(File.DirAssets, "1.xml")
Parser.Initialize
Parser.Parse(In,"Parser")
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If Name="url" Then
Log(Text.ToString)
End If
End Sub
Sub Globals
Dim Parser As SaxParser
End Sub
Dim In As InputStream
In=File.OpenInput(File.DirAssets, "1.xml")
Parser.Initialize
Parser.Parse(In,"Parser")
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If Name="url" Then
Log(Text.ToString)
End If
End Sub