hello house,
i have a text file created from my php program and stored in my website. i tried to retrive the content of the file in b4a code with File.ReadString it gave no error but the result is blank. what are mine doing wrongly pls.
my code:
If job2.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"test.txt", False)
File.Copy2(Job.GetInputStream, out)
EditText1.Text = (File.ReadString(File.DirRootExternal, "test.txt"))
If File.Exists(File.DirRootExternal,"test.txt") = True Then
Msgbox("yes it is available"," ")
' EditText1.Text = "test.txt.text"
paid1 = (File.ReadString(File.DirRootExternal, "test.txt"))
Msgbox(paid1," ")
'paid1 = (File.GetText(File.DirRootExternal, "test.txt"))
Else
Msgbox("i no see am oooo"," ")
End If
out.Close '<------ very important
i have a text file created from my php program and stored in my website. i tried to retrive the content of the file in b4a code with File.ReadString it gave no error but the result is blank. what are mine doing wrongly pls.
my code:
If job2.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"test.txt", False)
File.Copy2(Job.GetInputStream, out)
EditText1.Text = (File.ReadString(File.DirRootExternal, "test.txt"))
If File.Exists(File.DirRootExternal,"test.txt") = True Then
Msgbox("yes it is available"," ")
' EditText1.Text = "test.txt.text"
paid1 = (File.ReadString(File.DirRootExternal, "test.txt"))
Msgbox(paid1," ")
'paid1 = (File.GetText(File.DirRootExternal, "test.txt"))
Else
Msgbox("i no see am oooo"," ")
End If
out.Close '<------ very important