Sub Globals
Dim MyList As List
Dim Edittext1, Edittext2, Edittext3, Edittext4, Edittext5 As EditText
Dim FilePath As String =File.DirRootExternal
Dim FileName As String ="done.txt"
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1") 'has 5 boxes and 1 button
If Not(File.Exists(FilePath,FileName)) Then
File.Copy(File.DirAssets,FileName,FilePath,FileName)
End If
MyList.Initialize
ReadTextFile
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ReadTextFile 'Read text file into a list
Dim reader As TextReader
reader.Initialize(File.OpenInput(FilePath,FileName))
Dim line As String
line = reader.ReadLine
Do While line <> Null
MyList.add(line)
line = reader.ReadLine
Loop
reader.Close
End Sub
Sub Button1_Click 'populate text boxes
For i=0 To MyList.Size-1
Dim MyLine As String =MyList.Get(i)
If MyLine.SubString2(0, MyLine.IndexOf(":")) =Edittext1.text Then
Dim arrLine() As String = Regex.Split(":",MyLine)
Edittext2.text= arrLine(1)
Edittext3.text= arrLine(2)
Edittext4.text= arrLine(3)
Edittext5.text= arrLine(4)
Exit
End If
Next
End Sub