Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim Text As String 'Ignore
Dim Count As Int = 5000
Dim Dir As String = File.DirInternal
Dim FileName As String = "CharSequence_100KB.html"
Dim Elapsed As Long
File.Copy(File.DirAssets, FileName, Dir, FileName)
Dim FileSize As Long = File.Size(Dir, FileName)
Elapsed = DateTime.Now
For i = 0 To Count-1
Text = File.GetText(Dir, FileName)
Next
Elapsed = DateTime.Now - Elapsed
Log($"GetText: Read the string of ${FileSize} Bytes ${Count} times required ${Elapsed} millis"$)
Log($"Aprox ${NumberFormat2((Elapsed/Count)*1000, 0, 0, 3, False)} micros everyone = Aprox $1.2{NumberFormat2((Elapsed/Count)*1000/(FileSize/1000), 0, 0, 3, False)} nanos every byte"$)
'-------------------------------
Elapsed = DateTime.Now
For i = 0 To Count-1
Text = File.ReadString(Dir, FileName)
Next
Elapsed = DateTime.Now - Elapsed
Log($"ReadString: Read the string of ${FileSize} Bytes ${Count} times required ${Elapsed} millis"$)
Log($"Aprox ${NumberFormat2((Elapsed/Count)*1000, 0, 0, 3, False)} micros everyone = Aprox $1.2{NumberFormat2((Elapsed/Count)*1000/(FileSize/1000), 0, 0, 3, False)} nanos every byte"$)
' Log(Text)
End Sub