Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.Title="Orario"
Web.Initialize("Web")
Web.LoadHtml(File.ReadString(File.DirAssets,"Orario 1AL.html"))
Activity.AddView(Web,0,0,100%x,100%y)
InterpretaTabella(File.ReadString(File.DirAssets,"Orario 1AL.html"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub InterpretaTabella(WWW As String)
Dim TabellaHTML As String
'WWW é una stringa che contiene tutto il codice della pagina HTML
TabellaHTML=WWW.SubString(WWW.ToUpperCase.IndexOf("<TABLE"))
TabellaHTML=TabellaHTML.SubString2(0,TabellaHTML.ToUpperCase.IndexOf("</TABLE>"))
Dim Righe() As String = Regex.Split("</tr>",TabellaHTML)
For Rg=0 To Righe.Length-1
Dim celle() As String = Regex.Split("</td>",Righe(Rg))
For Col=0 To celle.Length-1
Dim Cella As String
Cella=TogliTag(celle(Col))
Log("Cella (" & Rg & "," & Col & ") :" & Cella)
' NuovaTabella(Rg,Col)=Cella
Next
Next
End Sub
Sub TogliTag(cella As String) As String
Dim Ret As String =""
Dim Tag As Boolean = False
cella=cella.Replace(" "," ")
For i=0 To cella.Length-1
If cella.SubString2(i,i+1)="<" Then Tag=True
If Not(Tag) Then Ret=Ret & cella.SubString2(i,i+1)
If cella.SubString2(i,i+1)=">" Then Tag=False
Next
Return Ret
End Sub