iOS Question Merge two String Arrays

[aeric]

Referring to the code snippet for B4A here:

Merge two Byte Array in one

I have two Byte Array (or more) and I should merge it into one Dim A() As Byte = Array As Byte(23,45,67) Dim B() As Byte = Array As Byte(223,1,70) Dim c() As Byte c= A & B ' Come si può fare? ' I want to get it: C = (23,45,67,223,1,70) This operation I have to repeat it for several Array...

www.b4x.com

Public Sub Merge (array1() As String, array2() As String) As String()
    Dim BC As ByteConverter
    Dim array3(array1.Length + array2.Length) As String
    BC.ArrayCopy(array1, 0, array3, 0, array1.Length)
    BC.ArrayCopy(array2, 0, array3, array1.Length, array2.Length)
    Return array3
End Sub

In B4i, I am getting errors at line #4 and #5 when calling BC.ArrayCopy:

Cannot cast type: {Type=String,Rank=1, RemoteObject=True} to: {Type=Byte,Rank=1, RemoteObject=True}

For B4i, I can't use the above code snippet but to copy the items one by one?

 

[aminoacid]

In B4i, I am getting errors at line #4 and #5 when calling BC.ArrayCopy:

Cannot cast type: {Type=String,Rank=1, RemoteObject=True} to: {Type=Byte,Rank=1, RemoteObject=True}

Why don't you use "object" instead of "string"

 

[aeric]

Why don't you use "object" instead of "string"

Because object cannot cast to String.

 

[JordiCP]

Since B4I byteconverter's arrayCopy seems to be limited to bytes, this can be a nice replacement (only tested in debug mode)

    Dim array1() As String = Array As String("1","2","3","4","5")
    Dim array2() As String = Array As String("6","7","8")
    Dim array3() As String
    array3.As(List).AddAll(array1.As(List))
    array3.As(List).AddAll(array2.As(List))
    For k=0 To array3.Length-1
        Log(array3(k))      '<-- 1 2 3 4 5 6 7 8
    Next

 

[aeric]

Since B4I byteconverter's arrayCopy seems to be limited to bytes

Yes.
Have you tested with non-integer items in the list/arrays?

Recently I am updating a B4X library (MiniORMUtils) which required array of String as parameter in Execute method.
I will test it when I have time.
Thanks.

 

[Erel]

Public Sub Merge (array1() As String, array2() As String) As String()
    Dim res(array1.Length + array2.Length) As String
    For i = 0 To array1.Length - 1
        res(i) = array1(i)
    Next
    For i = 0 To array2.Length - 1
        res(i + array1.Length) = array2(i)
    Next
    Return res
End Sub

 

[aeric]

Public Sub Merge (array1() As String, array2() As String) As String()
    Dim res(array1.Length + array2.Length) As String
    For i = 0 To array1.Length - 1
        res(i) = array1(i)
    Next
    For i = 0 To array2.Length - 1
        res(i + array1.Length) = array2(i)
    Next
    Return res
End Sub

Thanks Erel.
This is what I am using right now.

[B4X] [SQL] MiniORMUtils

MiniORMUtils Version: 6.04 GitHub: https://github.com/pyhoon/MiniORMUtils-B4X This library can be use for creating database tables and performing CRUD operations. It is suitable for B4X apps, non-UI web app or REST API servers. It is useful to return the query results as JSON since the rows are...

www.b4x.com

#If B4A or B4i
Public Sub AddParameters (Params() As String)
    'DBParameters = Merge(DBParameters, Params)
    If Params.Length = 0 Then Return
    If DBParameters.Length > 0 Then
        Dim NewArray(DBParameters.Length + Params.Length) As String
        For i = 0 To DBParameters.Length - 1
            NewArray(i) = DBParameters(i)
        Next
        For i = 0 To Params.Length - 1
            NewArray(DBParameters.Length + i) = Params(i)
        Next
        DBParameters = NewArray
    Else
        DBParameters = Params
    End If
End Sub
#Else
Public Sub AddParameters (Params As List)
    DBParameters.AddAll(Params)
End Sub
#End If

 

[emexes]

what I am using right now

Is there a reason that DBParameters has to be an Array? Can you make it a List? Much simpler to update, eg your AddParameters Sub becomes an inline:

DBParameters.AddAll(Params)

and I'm pretty sure that even literal extras like:

DBParameters.AddAsll( Array As String("extrapar1", "extrapar2", "extrapar3=45") )

would work.

 

[aeric]

Is there a reason that DBParameters has to be an Array? Can you make it a List? Much simpler to update, eg your AddParameters Sub becomes an inline:

DBParameters.AddAll(Params)

and I'm pretty sure that even literal extras like:

DBParameters.AddAsll( Array As String("extrapar1", "extrapar2", "extrapar3=45") )

would work.

Thanks for the suggestion.
I have tried to use a List but it seems B4i doesn't like it.
If I remember correctly, it is DBUtils.ExecuteMap(DBSQL, DBStatement, DBParameters) in B4A or B4i that expect a String array in 3rd argument. In B4J, I am using a List which is more convenient.
I welcome anyone to fork my repo and improve MiniORMutils library.