Android Question Map1.Put with two separate values

Sinan Tuzcu · Aug 26, 2021

Hi there,

is there a way to set more than one "value"?

something like this:

B4X:

 Map1.Put("Key1", "Value1", "Value2")

BR
Sinan

PS: Unfortunately, I can't do something like that, because the first Value1 contains a string and this character (|) may also appear there. And then I'd have the problem with splitting

B4X:

Map1.Put(Key1, Value1 & "|" & Value2)

JordiCP · Aug 26, 2021

One of the possible ways to do it

B4X:

Map1.Put("Key1", Array as String("Value1", "Value2"))

Erel · Aug 27, 2021

Another option is to create a custom type:

B4X:

Type MyValue (Value1 As String, Value2 As String)
'now hover over MyValue and choose "generate create type sub"

Map1.Put("Key", CreateMyValue("Value1", "Value2"))

omarruben · Aug 27, 2021

I have been looking for this so many times, thank you !!!!

Sinan Tuzcu · Aug 27, 2021

Erel said:
Another option is to create a custom type:

B4X:

Type MyValue (Value1 As String, Value2 As String) 'now hover over MyValue and choose "generate create type sub" Map1.Put("Key", CreateMyValue("Value1", "Value2"))

How can I GET ?

B4X:

Map1.Get ??

omarruben · Aug 27, 2021

B4X:

Dim xvalue As MyValue = map1.Get("Key")
log(xvalue)

Deleted member 103 · Aug 28, 2021

omarruben said:
B4X:

Dim xvalue As MyValue = map1.Get("Key") log(xvalue)

But you have to be careful!
You must not save the map as a text file, because after reading the content of "map1.Get("Key")" is only pure text.
That means that the code "Dim xvalue As MyValue = map1.Get("Key")" does not work anymore.

LucaMs · Aug 28, 2021

Sinan Tuzcu said:
How can I GET ?

B4X:

Type typPerson(ID As Int, Name As String, Age As Int)


Dim Persons As Map
Persons.Initialize

Dim ID As Int = 4
Dim Person As typPerson = CreatetypPerson(ID, "Erel", 32)
Persons.Put(ID, Person)


Log(Persons.Get(4).As(typPerson).Name)


Public Sub CreatetypPerson (ID As Int, Name As String, Age As Int) As typPerson
    Dim t1 As typPerson
    t1.Initialize
    t1.ID = ID
    t1.Name = Name
    t1.Age = Age
    Return t1
End Sub

Tip:

Erel · Aug 29, 2021

Filippo said:
But you have to be careful!
You must not save the map as a text file, because after reading the content of "map1.Get("Key")" is only pure text.
That means that the code "Dim xvalue As MyValue = map1.Get("Key")" does not work anymore.

That's true. You should use KeyValueStore or B4XSerializator instead of File.WriteMap.

Erel · Aug 29, 2021

Why?

B4X:

Dim ser As B4XSerializator
File.WriteBytes(dir, filename, ser.ConvertObjectToBytes(map))

Dim m as Map = ser.ConvertBytesToObject(File.ReadBytes(...))

Deleted member 103 · Aug 30, 2021

Is it possible to reopen what was saved with this procedure,

B4X:

Public Sub WriteMapAsB4XObject(sDir As String, sFilename As String, mp As Map)
    Dim raf As RandomAccessFile
    raf.Initialize2(sDir, sFilename, False, True)
    raf.WriteB4XObject(mp, raf.CurrentPosition)
    raf.Close
End Sub

and read again with this ?

B4X:

Dim m as Map = ser.ConvertBytesToObject(File.ReadBytes(...))

I ask because then I could replace my 4 procedures with a single one.

Erel · Aug 30, 2021

Better to keep your current code as the formats are very similar but not identical. For new projects use B4XSerializator directly.

Android Question Map1.Put with two separate values

Sinan Tuzcu

Well-Known Member

JordiCP

Expert

Erel

B4X founder

omarruben

Active Member

Sinan Tuzcu

Well-Known Member

omarruben

Active Member

Deleted member 103

Guest

LucaMs

Expert

Erel

B4X founder

Erel

B4X founder

Deleted member 103

Guest

Erel

B4X founder

Similar Threads

Android Question Map1.Put with two separate values

Well-Known Member

Expert

B4X founder

Active Member

Well-Known Member

Active Member

Deleted member 103

Guest

Expert

B4X founder

B4X founder

Deleted member 103

Guest

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency