#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Sub Button1_Click
Dim TR As TextReader
TR.Initialize(File.OpenInput(File.DirApp, "file_test.txt"))
Dim Line As String = TR.ReadLine
Do While Line <> Null
Line = TR.ReadLine
Log(Line)
Loop
If TR.IsInitialized = True Then
TR.Close
End If
'Dim s As String = File.ReadString(File.DirApp, "file_test.txt")
xui.MsgboxAsync(TR, "PIU")
End Sub