Dim TData As String = File.ReadString(File.DirRootExternal, "data.dat")
Dim TLen As Int = File.Size(File.DirRootExternal, "data.dat")
Log("TDataLen:" & TData.Length)
Dim X As Int
Dim TStep As Int = 4000
Dim TEndIDX As Int
Dim T As String
For X = 0 To TLen - 1 Step TStep
TEndIDX = X + TStep
If TEndIDX >= TLen Then
TEndIDX = TLen - 1
End If
Log("FROMTO:" & X & " - " & TEndIDX & " - " & TLen)
T = TData.SubString2(X, TEndIDX) '!!!!!!!! Crashs here
Log("T:" & T.Length)
Next