Скопировать массив...

[X-BOND]

Народ, подскажите как можно скопировать значения одного массива в другой?

Тип данных такой:

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

Type MyType
F As Boolean
T As String
....
End Type

Вопрос наверно, примитивный, но я раньше с этим не сталкивался.

Возможно прийдется использовать CopyMemory?

[GoGosha]

CopyMemory

[X-BOND]

Никогда не пользовался CopyMemory
Как это реализовать?

[GoGosha]

Dim arr1() As ...
Dim arr2() As ...

Copymemory arr1(0), arr2(0), UBound(arr1) - LBound(arr1) + 1

это типа
arr1 = arr2

[X-BOND]

По моему это не работает, поскольку копирует только значения с адресом 0. К тому же UBound(arr1) - LBound(arr1) + 1 всегда будет 1. (я там поставил просто UBound(arr1))
Практически ничего не вышло

[Aleksej]

Попробуй так:

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

Copymemory arr1(0), byval arr2(0), byval UBound(arr1)


[GoGosha]

Попробуй так:

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

Copymemory arr1(0), byval arr2(0), byval UBound(arr1)


Arr2(0) - НЕ ДОЛЖНО БЫТЬ BYVAL

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

Private Sub Form_Load()
    Dim a() As Long
   
    ReDim a(4)
   
    MsgBox UBound(a) - LBound(a) + 1 '5
End Sub


А лучше

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

Dim arr1() As ...
Dim arr2() As ...

Copymemory arr1(0), arr2(0),( UBound(arr1) - LBound(arr1) + 1 ) * Lenb(arr1(0))


[X-BOND]

Не работает
Кстати, размер массива фиксирован (128)
Пример реально работающий есть?

[GoGosha]

Не работает
Кстати, размер массива фиксирован (128)
Пример реально работающий есть?

Массив надеюсь не стрингов?

[GoGosha]

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

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Private Sub Form_Load()
    Dim arr1() As Long
    Dim arr2() As Long
   
    ReDim arr1(5)
    ReDim arr2(5)
   
    arr2(2) = 3
   
    CopyMemory arr1(0), arr2(0), (UBound(arr1) - LBound(arr1) + 1) * LenB(arr1(0))
    Print arr1(2) '3
End Sub

[X-BOND]

Тип данных я указал в начале
там есть и String, Integer и Flag.

Я пробовал так:

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

Dim Arr(0 to 128) as MyType
Dim Cop(0 to 128) as MyType

CopyMemory Cop(0).F, ByVal Arr(0).F, UBound(Cop().F)
CopyMemory Cop(0).V, ByVal Arr(0).V, UBound(Cop().V)
....

Флаги и числа вроде скопировало, а на строке прога вылетает без всяких предупреждений.
По-моему стринги переменной длины нельзя здесь использовать.
Или я ошибаюсь?

[kif]

for i=1 to 128
array2(i)=array1(i)
next

Тип массива значения не имеет, даже если он пользовательский.

Медленнее, но...

[GoGosha]

Просто если стринг, то действительно легче циклом сделать(тамж элементы массива разного размера)

[gaidar]

На всякий случай:

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


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim sSave As String, Cnt As Long, T As Long, Pos As Long, Length As Long
    Const mStr = "Hello "
    Length = Len(mStr)
    sSave = Space(5000 * Length) 'make buffer for justified comparison
    'Get the current tickcount
    T = GetTickCount
    Pos = 1
    sSave = Space(5000 * Length)
    For Cnt = 1 To 5000
      Mid(sSave, Pos, Length) = mStr
      Pos = Pos + Length
    Next Cnt
    'Show the results
    MsgBox "It took Visual basic" + Str$(GetTickCount - T) + " msecs. to add 5000 times a string to itself."
    'Get the current tickcount
    T = GetTickCount
    Pos = 0
    sSave = Space(5000 * Length)
    For Cnt = 1 To 5000
        CopyMemory ByVal StrPtr(sSave) + Pos, ByVal StrPtr(mStr), LenB(mStr)
        Pos = Pos + LenB(mStr)
    Next Cnt
    'Show the results
    MsgBox "It took CopyMemory" + Str$(GetTickCount - T) + " msecs. to add 5000 times a string to itself."
End Sub




[GSerg]

Вы будете смеяться, но API в последнем примере работает медленнее VB!

[Ilya Vasilyev]

Хм... друзья, а почему нельзя объявить вторую переменную того же типа и присвоить ей значение первой

Dim A As MyType
Dim B As MyType

A = B

Или я не понял сути вопроса?

[X-BOND]

Потому что здесь массив...