Sub DeleteDataPlane
Dim List1 As List
'controllo se esiste il file di testo
If File.Exists(File.DirRootExternal, "RCHangar/ListModel.txt") Then
'se il file esiste carico i dati dal file di testo
List1 =File.ReadList(File.DirRootExternal, "RCHangar/ListModel.txt")
For i = 0 To 9
ListModel(i) = List1.Get(i)
If ListModel(i) <> 0 Then
'Riempio lo slot con i valori da registrare
ListModel(i) = "0"
End If
Next
File.Writelist(File.DirRootExternal, "RCHangar/ListModel.txt", ListModel) 'Salvo l'array nel file di testo
StartActivity(Main)
End If
End Sub