Android Question KeyValueStore2 ListKeys, display problem ?

incendio · Jan 10, 2020

Hi guys,

I have 2 keys in keysvaluestore

B4X:

Sub Process_Globals
   Public kvs As KeyValueStore
end sub

Sub btn_Clicked
    Private rec As List
    rec.Initialize
    rec.AddAll(Array As String("Account2","my account2","12345"))
    kvs.PutEncrypted( "Account2",rec,PASSWORD)

    rec.Initialize
    rec.AddAll(Array As String("Account1","my account1,"12345"))
    kvs.PutEncrypted( "Account1",rec,PASSWORD)
End Sub

When I list keyvalueStore

B4X:

Sub List
    For i = 0 To kvs.ListKeys.Size - 1
        LogColor(kvs.ListKeys.Get(i),Colors.Yellow)
    Next
End Sub

The log result in Jellybean shows keys order by input sequence

Account2
Account1

but on Pie, the order is alphabetically

Account1
Account2

Is there a way to show keys order by input sequence in every OS ?

Mahares · Jan 10, 2020

DId you try this?

B4X:

Dim MyList As List = kvs.ListKeys
    MyList.SortCaseInsensitive(True)

incendio · Jan 10, 2020

Mahares said:
DId you try this?

B4X:

Dim MyList As List = kvs.ListKeys MyList.SortCaseInsensitive(True)

Isn't those codes will sort list items alphabetically?

I want to display item in list according to the input sequence.

Mahares · Jan 11, 2020

incendio said:
I want to display item in list according to the input sequence.

Can the data be entered this way whenstored in kvs. If so, then I can see a solution to the order desired:

B4X:

PASSWORD  ="12345"
    rec.Add("1, Account2,my account2, "& PASSWORD)
    kvs.PutEncrypted( "Account2",rec,PASSWORD)

    PASSWORD ="12445"
    rec.Add("2, Account1,my account1," & PASSWORD)
    kvs.PutEncrypted( "Account1",rec,PASSWORD)

    PASSWORD ="67345"
    rec.Add("3, Account3,my account3," & PASSWORD)
    kvs.PutEncrypted( "Account3",rec,PASSWORD)

We can achieve this order you are looking for:
Account2
Account1
Account3

LucaMs · Jan 11, 2020

Use KeyValueStore2 class and change its:

B4X:

'creates the main table (if it does not exist)
Private Sub CreateTable
    sql1.ExecNonQuery("CREATE TABLE IF NOT EXISTS main(key TEXT PRIMARY KEY, value NONE)")
End Sub

to:

B4X:

'creates the main table (if it does not exist)
Private Sub CreateTable
    sql1.ExecNonQuery("CREATE TABLE IF NOT EXISTS main(key TEXT, value NONE)")
End Sub

Deselect the library, of course, and delete the previous kvs file, if it exists.

Erel · Jan 12, 2020

A key - value collection, like Map, are not expected to preserve order.

You can store a List as a single item.

incendio · Jan 13, 2020

Thanks all for your help.

Unfortunately I have to abandon this keyvalue store.

I just realize that keyvalue only encrypt value not the key. This is not enough for my need.
Perhaps, I will looking for sqlcipher or randomaccessfile to encrypt all data.

Erel · Jan 13, 2020

Put all your data in a Map and save it as a single object:

B4X:

KVS.PutEncrypted("meaningless key", MapWithAllData, "password")

incendio · Jan 14, 2020

Erel said:
Put all your data in a Map and save it as a single object:

B4X:

KVS.PutEncrypted("meaningless key", MapWithAllData, "password")

Thanks, I will look for Map for other alternative.

Android Question KeyValueStore2 ListKeys, display problem ?

incendio

Well-Known Member

Mahares

Expert

incendio

Well-Known Member

Mahares

Expert

LucaMs

Expert

Erel

B4X founder

incendio

Well-Known Member

Erel

B4X founder

incendio

Well-Known Member

Similar Threads

Android Question KeyValueStore2 ListKeys, display problem ?

Well-Known Member

Expert

Well-Known Member

Expert

Expert

B4X founder

Well-Known Member

B4X founder

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency