French Parser XML

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim b4a As String
b4a = "URL qui genere le XML"
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim title
Dim ListView1 As ListView
Dim parser As SaxParser
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
parser.Initialize
End If
Activity.LoadLayout("Main")
HttpUtils.CallbackActivity = "Main" 'Current activity name.
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.Download("Job1", b4a)
ToastMessageShow ("lancement",False)
End Sub

Sub JobDone (Job As String)
Dim s As InputStream
If HttpUtils.IsSuccess(b4a) Then
s = HttpUtils.GetInputStream(b4a)
parser.Parse(s, "parser")
End If
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("prevision") > -1 Then
If Name = "dateIso" Then
title = Text.ToString
End If
End If
If Name = "prevision" Then
ListView1.AddSingleLine2(title, "") 'add the title as the text and the link as the value
End If
End Sub

Click to expand...