Android Question TXT-File exists, but can't be read (no such file)

do a log after reading the "filename"...
to see what you really want to read.... It should be ONLY "Baumliste"... No character more....

DonManfred said:

do a log after reading the "filename"...

B4X:

ListTitel = File.ReadString(File.DirInternal,"curlist.txt")
log("ListTitel = "&ListTitel)

to see what you really want to read.... It should be ONLY "Baumliste"... No character more....

Click to expand...

I did. Here's the result:

ListTitel = Baumliste

Then it should work... Maybe you should upload your project (Export as zip) so we can have a look at the complete source.

1. Why aren't you reading the files from File.DirAssets directly?
2. I don't see anywhere in your code that you are copying Baumliste.txt to the internal libraries folder.
3. You should initialize any object in sub Process_Globals.

Erel said:

1. Why aren't you reading the files from File.DirAssets directly?
2. I don't see anywhere in your code that you are copying Baumliste.txt to the internal libraries folder.
3. You should initialize any object in sub Process_Globals.

Click to expand...

1. Because only a few lists will be "presets" and they have to be editable and users may add their own lists.
2. It's in "DeployPresets" in the "subs"-module.
3. Which object do you mean?

This screenshot includes all the hints required:



Remove the UTF8 BOM from your text files.

Thanks ... that's it! I forgot how messy the notepad is with UTF8.

hi
its many day's im bloked to read a line from a file .txt dawnoalded from web-server white many fonction file.listread...textreader

i dont know what's de probleme , the file is dawnoalded whit success i open it with " gestionnaire d'aplication" is ok

that's my code :

Sub JobDone (job As HttpJob)

If job.Success = True Then

Select job.JobName

Case "job1"
Dim outs As OutputStream
outs = File.OpenOutput(File.DirRootExternal&"/fichiermiseajour","prod.csv",False)
File.Copy2(job.GetInputStream,outs)
ProgressDialogHide


Msgbox("le telechargemet de " & job.Tag & " est terminé","info")

outs.Close
p.ReleaseKeepAlive
csvload

Case "job2"

Dim out2 As OutputStream
Dim list As List
out2 = File.OpenOutput(File.DirRootExternal&"/fichiermiseajour","version.txt",False)
File.Copy2(job.GetInputStream,out2)

list = File.ReadList(File.DirRootExternal&"/fichiermiseajour",job.Tag)

For i =0 To list.Size-1

Log(list.Get(i))


Next

Msgbox("le telechargemet de " & job.Tag & " est terminé","info")

out2.Close

' If versionactual < version.SubString(5) Then
'
' Msgbox("nouvelle mise ajour est disponible","info")
'
'
'
' End If
'


End Select

Else

Msgbox("erreur:" & job.ErrorMessage ,"info")

End If

job.Release

End Sub





sorry for my bed english


cordialement

Please start a new thread for this question and make sure to use [code]code here...[/code] tags when posting code.