Android Question KeyValueStore2 ListKeys, display problem ?

[incendio]

Hi guys,

I have 2 keys in keysvaluestore

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

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]

DId you try this?

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

 

[incendio]

DId you try this?

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]

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:

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]

Use KeyValueStore2 class and change its:

'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:

'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]

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

You can store a List as a single item.

 

[incendio]

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]

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

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

 

[incendio]

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

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

Thanks, I will look for Map for other alternative.