Android Question handmade txt file does not load in the file.readmap

[Henry Baars]

Ok,
I give up… (almost)

I am using the map function in b4a to load a file with game levels.
When I programmatically generate the file with the Savelevelsmap sub I get the hex dump as shown below.

In this case the loadlevels sub works just fine.

But, when I create the file with a text editor and then convert it to get the vbLF (0A) correct, without any vbCR’s in the file, resulting in the !!! SAME !!! hex dump as shown below. Te APP crashes on the SECOND line in loadlevelsmap. The fist line is executed correctly. So, the simple conclusion:
something is wrong with the used parameter names of something is wrong with vbCr en vbLF.
But as the hex dump does show... parameter names are ok and there is only a VBLF between lines (which is exaclty what the File.WriteMap generates

The whole idea of the MAP function is that it is convenient to generate parameters in a txt document. But I like to generate them simply in a text file, without the need of programmatically generating it.

Any tips on how to use the map function with txt files I create manually, in stead of through code?
Sample code with an alternative (working) solution is also more then welcome.

Sub Activity_Create(FirstTime AsBoolean)
File.Copy(File.DirAssets, "gamelevels.txt", File.DirInternal, "gamelevels.txt")
End sub

sub Loadlevelsmap
LevelsMap = File.ReadMap(File.DirInternal,"gamelevels.txt")
Fairysprites1(0).x = LevelsMap.Get("1Levelx")
Fairysprites1(0).y = LevelsMap.Get("1Levely")
End sub

Sub Savelevelsmap()
LevelsMap.Put("1Levelx",100)
LevelsMap.Put("1Levely",100)
File.WriteMap(File.DirInternal, "gamelevels.txt", LevelsMap)
End Sub

 

[Erel]

Can you upload the text file?

 

[Henry Baars]

Can you upload the text file?

I added the text file to the original post.
Thanks in advance for taking a look at this.

 

[Erel]

It works here:

Sub Activity_Create(FirstTime As Boolean)
   Dim m As Map = File.ReadMap(File.DirAssets, "gamelevels.txt")
   Log(m)
End Sub

 

[Henry Baars]

It works here:

Sub Activity_Create(FirstTime As Boolean)
   Dim m As Map = File.ReadMap(File.DirAssets, "gamelevels.txt")
   Log(m)
End Sub

Sub Process_Globals
End Sub

Sub Globals
Dim LevelsMap As Map
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
File.Copy(File.DirAssets, "gamelevels.txt", File.DirInternal, "gamelevels.txt")
End If
loadLevelsmap
End Sub

Sub loadLevelsmap()
'Savelevelsmap
Dim x As Int, y As Int
LevelsMap = File.ReadMap( File.DirInternal, "gamelevels.txt")
x = LevelsMap.Get("2Levelx")
y = LevelsMap.Get("2Levely")
End Sub

Sub Savelevelsmap()
LevelsMap.Initialize
LevelsMap.Put("1Levelx",100)
LevelsMap.Put("1Levely",100)
File.WriteMap( File.DirInternal, "gamelevels.txt", LevelsMap)
End Sub

This is the shortest version I have. and it gives the error as shown in the screen dump attached

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.


Are you using v3.50? There is no reason to use the legacy debugger. You should use the rapid debugger instead.

The key name is 2levely not 2Levely.

 

[Henry Baars]

The key name is 2levely not 2Levely.

Jez.... I really do need a new pair of glasses...
Maybe a new pair of brains as well...... maybe that was it... I have two eyes but only one brain to look with... no wonder I overlooked this one for over 5 hours!!!!

Erel... your a lifesaver.
Many thanks!