Array Join

[ReneMiner]

small idea for

Long lCount = Array Add arrayvariable2 Into arrayvariable1


in example below array sArray1() will thereafter contain all the members of sArray1() and sArray2() together.
sArray2 is empty then.

i needed a few times something as this to fast join 2 arrays of strings,


this only works for dynamic string-array, other types should be easy to realize...
could also be Add$ for Strings & Add for other types but i guess thinCore will know the type...

maybe something for new Keyword Into,
optional switches as Unique or Ascend/Descend thinkeable

Array Add [Unique] v2 [,Collate Ucase][,Ascend | Descend] Into v1





Uses "console"

' --------------------------------------------------------------------

Function Array_Add(ByRef a1() As String, _
ByRef a2() As String _
) As Long
' --------------------------------------------------------------------

' will move all elements of a2 into a1
' a2 will be empty thereafter
' returns Ubound of a1


If UBound(a2) = 0 Then Return Ubound(a1)


ReDim Preserve a1(UBound(a1) + UBound(a2))

Memory_Swap( _
VarPtr(a1(1)) + 4 * ( UBound(a1) - UBound(a2) ), _
VarPtr(a2(1)), _
4 * UBound(a2) )

Function = UBound(a1)


End Function

' now test it:
' --------------------------------------------------------------------
Function TBMain()
' --------------------------------------------------------------------

Local sArray1(3) As String
Local sArray2(5) As String
Local i As Long

For i = 1 To UBound(sArray1)
sArray1(i) = "array1(" & TStr$(i) & ")"
Next

For i = 1 To UBound(sArray2)
sArray2(i) = "array2(" & TStr$(i) & ")"
Next

i = array_Add(sArray1, sArray2)

While i
i -= 1
PrintL sArray1(UBound(sArray1) - i )
Wend
For i = 1 To UBound(sArray2)
PrintL i, sArray2(i)
Next

PrintL "key to end"
WaitKey
End Function

[ErosOlmi]

Ciao René,

does your code can be summarized by the following code:

Parse Join$(sArray2, $NUL), sArray1, $NUL

Not really optimized and quite slow for big arrays because there are a lot of internal string handling.

Anyway, more ARRAY functions are always welcome.
I will think about your request in particular on how to generalize.

Ciao
Eros

[ReneMiner]

...
does your code can be summarized by the following code:

Parse Join$(sArray2, $NUL), sArray1, $NUL
...



Nope, that is not what it does:
I want the members of array B() to become additional new members of array A().

in Basic:



Local sArray1(3) As String ' 1 array of strings
Local sArray2(5) As String ' another String-array
Local i, lOld As Long ' little helpers

For i = 1 To UBound(sArray1)
sArray1(i) = "array1(" & TStr$(i) & ")" ' assign identity

Next

For i = 1 To UBound(sArray2)
sArray2(i) = "array2(" & TStr$(i) & ")" ' assign identity

Next

lOld = Ubound(sArray1) ' store old count of elements in sArray1

' resize sArray1 to have enough space for th new members:

Redim Preserve sArray1(Ubound(sArray1) + Ubound(sArray2))

' transfer the members of sArray2 to be members of sArray1 in future:
For i = 1 To Ubound(sArray2)
sArray1(i+lOld) = sArray2(i)
Next
' now sArray1 holds all the members of both arrays,
' sArray2 i dont need any more...
' next step would be to sort the new sArray1() ...

' practical use was, to join lists of tB-Keywords and
' User-tokens that shall be displayed together in autocomplete...


this was the intention.

[ErosOlmi]

This way :)


Parse Join$(sArray1, $NUL) & $NUL & Join$(sArray2, $NUL), sArray1, $NUL


Sorry, just joking, I'm too tired today due to work load.
Already worked 12 hours and still to have 2 hours drive back to home and some work to finish from home.

It cannot continue this way :suicide:

[ReneMiner]

i wish i could do some of your work, so you have more time to develop new functions :),

we have a keyword Add already so i thought it would be the appropriate one. Join was almost the correct keyword (thats the reason why the thread is entitled Array Join)

but i should have suggested this:

Array Merge [Unique] array2[,array3[,... ?]] Into array1


the first function at the top does almost that: it swaps the stringpointers from array2 with the new stringpointers of just dimensioned new members of array1. Array1 has its members and they will persist. Mandatory only: all arrays to merge have to be of the same type, 1-dimensional.