Как объединить несколько массивов?

[dimalib]

Привет всем. С прошедшим праздником. Как объединить несколько массивов, и получит один массив?

[alibek]

Если массивы числовые, то проще и безопаснее всего через CopyMemory. Несколько более рискованно (но значительно быстрее) использовать достижения GSerg'а на ниве "SAFEARRAY Tricks"

[GSerg]

Да нет, в общем безопасно всё
Только в данном случае номер не пройдёт, ибо pvData только один, и указывает он на непрерывный блок. Так что CopyMemory

[dimalib]

Никогда не использовал. Это типа так:

Код: Выделить всё

Copymemory resN(0), res1(0), UBound(resN) - LBound(resN) + 1

пишется? Если все правильно то что подключит? А то ругается что:

Sub or Function not defined

[alibek]

Функцию надо предварительно задекларировать

Код: Выделить всё

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
...
Dim res() As Long, I As Long, N As Long
N = (UBound(data1) - LBound(data1) + 1) + (UBound(data2) - LBound(data2) + 1) + ...
ReDim res(1 To N)
I = 1
N = UBound(data1) - LBound(data1) + 1
CopyMemory res(I), data1(LBound(data1)), 4&*N
I = I + N
N = UBound(data2) - LBound(data2) + 1
CopyMemory res(I), data2(LBound(data2)), 4&*N
I = I + N
...