Sub Activity_Create(FirstTime As Boolean)
'create text file
Dim str1 = "1", str2 = "2",str3 = "3",str4 = "4",str5 = "",str6 = "6",str7 = "",str8 = "8" As String
Dim textwriter As TextWriter
textwriter.Initialize(File.OpenOutput(File.DirInternal,"1.txt",False))
textwriter.WriteLine(str1)
textwriter.WriteLine(str2)
textwriter.WriteLine(str3)
textwriter.WriteLine(str4)
textwriter.WriteLine(str5)
textwriter.WriteLine(str6)
textwriter.WriteLine(str7)
textwriter.WriteLine(str8)
textwriter.Close
'read text from file
Dim all_lines As String
Dim tr As TextReader
tr.Initialize(File.OpenInput(File.DirInternal,"1.txt"))
all_lines = tr.ReadAll
log_all_lines(all_lines)
End Sub
Sub log_all_lines(all_lines As String)
Dim arr() As String = Regex.Split(CRLF,all_lines)
For i = 0 To arr.Length -1
Log(arr(i))
Next
End Sub