Bug? List with Map not the same as in B4a?

[Deleted member 103]

Hi Erel,

the same data with the same routine deliver different results.
Is the map stored differently?

I ask because I've used in B4a this procedure for the conversion, and now no longer works in B4i.

  Dim lst As List   
  lst=File.ReadList(File.DirLibrary, "Setup.ini")

  For i = 1 To Timerlist.Size -1

    mp = ConvertStringToMap(list.get(i))
 Next

Sub ConvertStringToMap(str As String) As Map
    Dim mp As Map
    Dim strMap() As String
    Dim strList() As String

    mp.Initialize
    If str<>"" Then
        str = str.SubString2(1, str.Length -1)
        strMap=Regex.Split(",",str)
       
        For i = 0 To strMap.Length -1
            strList=Regex.Split("=",strMap(i))
           
            If strList.Length = 2 Then
                mp.Put(strList(0).Trim, strList(1).Trim)
            Else
                mp.Put(strList(0).Trim, "")
            End If
        Next
    End If
    Return mp
End Sub

 

[Erel]

The code that you are using to add the map is not 100% correct.

You should add Dim mp As Map before mp.Initialize to create a new instance.

 

[Deleted member 103]

Hi Erel,

this is no longer necessary, I use now another routine to save and to read.

 

[imbault]

@Filippo , I have the same pb with maps, handling, storing, can you, please, share your code for b4i, please

 

[Deleted member 103]

@Filippo , I have the same pb with maps, handling, storing, can you, please, share your code for b4i, please

This is the code I'm using now.

Sub ConvertStringToMap(str As String) As Map
    Dim mp As Map
    Dim strMap() As String
    Dim strList() As String

    mp.Initialize
    If str<>"" Then
        str = str.SubString2(1, str.Length -1)
        strMap=Regex.Split(",",str)
       
        For I = 0 To strMap.Length -1
            strList=Regex.Split(":",strMap(I))
           
            If strList.Length = 2 Then
                mp.Put(strList(0).Trim, strList(1).Trim)
            Else
                mp.Put(strList(0).Trim, "")
            End If
        Next
    End If
    Return mp
End Sub

 

[Erel]

Looks a bit complicated. If you want to serialize a map then you can use KeyValueStore class (or RandomAccessFile.WriteB4XObject).

 

[imbault]

thank you @Filippo , but like you, I wrote my proper writemap