Dim lst0 As List
ProgressDialogShow("Calcolo statistiche tracce...")
lst0 = File.ListFiles(Global.GPSDir &"/MieTracce")
For i = pnlList.NumberOfViews -1 To 0 Step -1
pnlList.RemoveViewAt(i)
Next
Global.ListWP1.Clear
btnClear.Visible=False
btnDelete.Visible=False
NumberOfRows=0
pnlList.Height = RowHeight
SelectedItem=-1
i=0
Try
Dim txtControl As String
Catch
Log(LastException)
End Try
Try
For i = 0 To lst0.Size - 1
txtControl=lst0.Get(i)
txtControl=txtControl.ToUpperCase
If txtControl.Contains(".GPX")=False Then
GlobNomeTrack=""
GlobDateTrack=""
GlobTimeTrack=""
tw.Initialize(File.OpenInput(Global.GPSDir & "/MieTracce/", lst0.Get(i)))
Line=tw.ReadLine
'************************************* STRING PARSER************************************
dummy=Line
pos1=dummy.IndexOf(";")
pos2=dummy.IndexOf2(";",pos1+1)
pos3=dummy.IndexOf2(";",pos2+1)
pos4=dummy.IndexOf2(";",pos3+1)
pos5=dummy.IndexOf2(";",pos4+1)
GlobNomeTrack=dummy.SubString2(0,pos1)
GlobDateTrack=dummy.SubString2(pos1+1,pos2)
GlobTimeTrack=dummy.SubString2(pos2+1,pos3)
ecc ecc....