Массив переменных

[STanli]

Как Очистить переменную из массива со здвигом данных?

[GSerg]

Да просто CopyMemory всего куска, который ниже удаляемой переменной на то место, которое она занимала.

[A.A.Z.]

GSerg, ну ведь знаешь же, что сейчас пример потребуют!

[tyomitch]

Дык а чё тут писать?
CopyMemory Massiv(i), Massiv(i + 1), LenB(Massiv(LBound(Massiv))) * (UBound(Massiv) - i)

[A.A.Z.]

Вот теперь не потребуют

[CodeName33]

CopyMemory не прокатит если это массив из пльзовательского типа данных. Кидать будет. Но с обычными типами данными пройдёт нормально.

[TEH3OP]

А если массив не оч. большой (САБЖ не жалко памяти) и если не хочется париться, то заместо массива лучшее использовать Scripting.Dictionary или VBA.Collection. Тама и добавлять и удалять мона и поиск производится быстро.

[tyomitch]

CopyMemory не прокатит если это массив из пльзовательского типа данных. Кидать будет.

Почему? Объясни плз

[GSerg]

И мне объясни, плз...

[BP]

Не, ну вы молодцы ребята. У меня теперь из за ваши экскрементов VB перестал запускаться. Надеюсь только до перезагрузки.

Да, пользовательские типы он действительно копирует. Вот только выбивает когда обращаешся к последнему элементу. Возможно это лечится Redim Preserve. Проверить не могу по причинам указанным выше.

[CodeName33]

>Почему? Объясни плз

Раньше не мог понять, чего у меня прога одна кидает иногда. А причина была в том, что когда передаёшь в API функцию параметр A(1), то если A() массив обычных типов (Int, Long) то VB передаёт реальный адрес первого элемента, а если он массив сложных пользовательских типов данных (ещё с подтипами внутри), то VB почему-то копировал один передаваемый элемент в отдельную область памяти, и передавал его адрес. Зачаем я так и не понял. Но если самому докопаться до реального адреса массива (VarPtrArray(A()), а потом через структуры SAFEARRAY), то можно и через CopyMemory двигать.

[Approximator]

>Почему? Объясни плз

Раньше не мог понять, чего у меня прога одна кидает иногда. А причина была в том, что когда передаёшь в API функцию параметр A(1), то если A() массив обычных типов (Int, Long) то VB передаёт реальный адрес первого элемента, а если он массив сложных пользовательских типов данных (ещё с подтипами внутри), то VB почему-то копировал один передаваемый элемент в отдельную область памяти, и передавал его адрес. Зачаем я так и не понял. Но если самому докопаться до реального адреса массива (VarPtrArray(A()), а потом через структуры SAFEARRAY), то можно и через CopyMemory двигать.

Прости, уважаемый, но либо я тебя не понял (и тогда извиняюсь), либо это, ещё раз извини, фигня.
Массивы пользовательских типов имеют двух и более уровневую организацию.
Причём, первый уровень это практически всегда массив Long, в котором содержатся адреса на одтельные элементы массива (кстати говоря, массив String'ов устроен абсолютно таким же образом и делается так потому, что подобные переменные сложноустроены - имеют Long-префикс определяющий их длину). Конечно, далее ты правильно заметил, чтобы изменить такой массив необходимо изменять его размер в SAFEARRAY. Но на использовании CopyMemory это изначально никак не влияет.

[tyomitch]

Approximator, CodeName33 прав - я просто совсем выпустил из виду эту "особенность" VB. Если по ссылке передаётся структура, содержащая строки и/или паддинг, то VB создаёт её временную копию, и передаёт в функцию именно копию.
Поэтому вот UDT-safe версия сдвига:
CopyMemory ByVal VarPtr(Massiv(i)), ByVal VarPtr(Massiv(i + 1)), LenB(Massiv(LBound(Massiv))) * (UBound(Massiv) - i)

[CodeName33]

>CopyMemory ByVal VarPtr(Massiv(i)), ByVal VarPtr(Massiv(i + 1)), LenB(Massiv(LBound(Massiv))) * (UBound(Massiv) - i)

У меня в своё время так не прокатило. Он в VarPtr тоже передавал копию элемента и не давал адрес самого массива. Хотя может я и ошибаюсь...

[Approximator]

Approximator, CodeName33 прав

Неа. Ну, не виноват я, что он не прав.

- я просто совсем выпустил из виду эту "особенность" VB. Если по ссылке передаётся структура, содержащая строки и/или паддинг, то VB создаёт её временную копию, и передаёт в функцию именно копию.

Буду возражать. Усё зависит от того, как эту проблему решать. Если использовать инкапсуляцию, то всё получается нормально
Вот тебе функция, а заодно и идея, которые можешь использовать, как твоей душеньке угодно.

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

Public Function AnyPtr(ByRef vVar As Variant) As Long
CopyMem VarPtr(AnyPtr), VarPtr(vVar) + 1, 1
If AnyPtr = 64 Or AnyPtr = 96 Then CopyMem VarPtr(AnyPtr), VarPtr(vVar) + 8, 4
End Function


И никаких копий. Забудь о них.

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

CopyMemory ByVal VarPtr(Massiv(i)), ByVal VarPtr(Massiv(i + 1)), LenB(Massiv(LBound(Massiv))) * (UBound(Massiv) - i)

Не, мне кажется, что здесь может подглючивать. Попробуй заменить VarPtr на AnyPtr.

[Approximator]

>CopyMemory ByVal VarPtr(Massiv(i)), ByVal VarPtr(Massiv(i + 1)), LenB(Massiv(LBound(Massiv))) * (UBound(Massiv) - i)

У меня в своё время так не прокатило. Он в VarPtr тоже передавал копию элемента и не давал адрес самого массива. Хотя может я и ошибаюсь...

Согласен. Надо было решать так же, как я это показал в AnyPtr (см. мой предыдущий пост в теме). Граждане, ползуйтесь инкапсуляцией! Она иногда очень сильно экономит нервы.

Есть, конечно ещё пара вариантов. Можно решать по примеру GSerg'а.
А именно
функция для пользовательского типа

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

Public Function SomeTypePtr(byref vSomeType as SomeType, optional byval vPleaseIgnoreMe as Long=0)as Long
CopyMem VarPtr(SomeTypePtr), VarPtr(vPleaseIgnoreMe)-4,4
End Function

функция для массива того же пользовательского типа

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

Public Function SomeTypeArrPtr(byref vSomeTypeArr() as SomeType, optional byval vPleaseIgnoreMe as Long=0)as Long
CopyMem VarPtr(SomeTypeArrPtr), VarPtr(vPleaseIgnoreMe)-4,4
End Function

Мы с GSreg'ом в своё время немного поспорили чей вариант лучше. Вот, теперь вы можете сравнить сами.

Мне мой (AnyPtr) больше нравится, так как он универсальный. GSerg'у его, так как он (:)патологически?:)) не любит тип Variant.

[tyomitch]

AnyPtr имхо здесь не прокатит, т.к. не удастся так легко засунуть UDT в вариант. Хотя идея любопытная, буду иметь в виду.
VarPtr, с другой стороны, работает правильно - возвращает адрес самой структуры, а не копии. В крайнем случае, можно брать VarPtr от первого элемента.
Я проверял всё это в топике, где мы с Ennor-ом обсуждали вызов юникодных функций, посмотри там.

[tyomitch]

У меня в своё время так не прокатило. Он в VarPtr тоже передавал копию элемента и не давал адрес самого массива. Хотя может я и ошибаюсь...

Ошибаешься. VarPtr всё возвращает совершенно правильно.
Вот тестовая прога:

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

Option Explicit
Private Declare Function AnyPtr Lib "msvbvm60" Alias "VarPtr" (v As Any) As Long
Private Declare Function TypePtr Lib "msvbvm60" Alias "VarPtr" (v As NastyType) As Long

Type NastyType
    m1 As Byte
    m2 As String * 6
    m3 As String
End Type

Private t As NastyType
Sub Main()
    Debug.Print Len(t), LenB(t)
    Debug.Print VarPtr(t), VarPtr(t.m1)
    Debug.Print AnyPtr(t), TypePtr(t)
End Sub


[STanli]

ничё у меня не получается =( дайте готовый пример

[Approximator]

AnyPtr имхо здесь не прокатит, т.к. не удастся так легко засунуть UDT в вариант. Хотя идея любопытная, буду иметь в виду.
VarPtr, с другой стороны, работает правильно - возвращает адрес самой структуры, а не копии. В крайнем случае, можно брать VarPtr от первого элемента.
Я проверял всё это в топике, где мы с Ennor-ом обсуждали вызов юникодных функций, посмотри там.

Дык, Тёмыч, достаточно же было всего лишь пихать не в функцию, а в локальную переменную

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

Public Function <ИмяРек>(byref vAny as Variant)as Long
dim lRes as Long
<прежнее тело функции>
CopyMem VarPtr(lRes), VarPtr(vAny)+8,4
<ИмяРек>=lRes
End Function

[tyomitch]

Approximator, ты имхо не понял главного
VarPtr здесь работает прекрасно, зачем ещё что-то изобретать?

И зачем и причём здесь локальная переменная - я тоже не понял.

[Approximator]

Approximator, ты имхо не понял главного
VarPtr здесь работает прекрасно, зачем ещё что-то изобретать?

Тогда проверь свою функцию на массиве элементы которого вот такие пользовательские типы:

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

Type MyType
Sa(1 to 2) as String
End Type

хотя, ладно, может и правда, тебе ни к чему универсальность...

[tyomitch]

1) Она не моя, она стандартная. Притом работает. А ты-то её проверял на своём типе? Я же готовый тестовый пример тремя постами выше привёл.
2) Мне вообще вся эта бадяга не нужна - я думал, мы STanli собирались помочь. Что именно нужно ему, пусть он решит сам

[STanli]

Мне надо чтобы удалятась переменная и всё здвигалось вот и всё =)
ЛУчьше не кодом а примерчиком.

[tyomitch]

Переменная - она какого типа?

[STanli]

ДА их целый массив 1800 штук а тип Byte

[tyomitch]

Если Byte, то просто возьми код из самого первого поста, и забей на эту дискуссию

[STanli]

CopyMem он вобще не воспринемает, я же говорю дайте готовый пример

[tyomitch]

Эх... По памяти пишу:

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

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (D As Any, S As Any, ByVal c As Long)


[STanli]

Ещё не пробывал будет работать или нет но всё равно НУЖЕН готовый пример!!!!!!!!