Как пройти циклом по массиву? :-)

[tyomitch]

На VB это просто:

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

Sub DoSomething(ByVal v As Variant)
...
End Sub

Sub Iterate(ByVal w As Variant)
Debug.Assert IsArray(w)
Dim v As Variant
For Each v In w: DoSomething v: Next
End Sub


DoSomething уже написана на "обычном языке" (не мной). Мне надо написать Iterate на том же языке.

w -- это массив неизвестного заранее типа. Iterate должна пройти по нему в цикле, и каждый элемент перед вызовом привести к Variant.

Тут целых две проблемы: как проходить в цикле по массиву неизвестного заранее типа, и как приводить объект неизвестного заранее типа к Variant.

Посоветуете что-нибудь?

[Хакер]

Не могу понять в чём же проблема этих двух проблем, а также что за
"обычный язык". Это типа как в рекламах "Обычный порошок" ?

[tyomitch]

"обычный язык" -- это любой без встроенной поддержки COM.
Если можешь помочь, помоги. Только я уже скоро своими силами, думаю, дойду...

[Approximator]

"обычный язык" -- это любой без встроенной поддержки COM.
Если можешь помочь, помоги. Только я уже скоро своими силами, думаю, дойду...

Конечно дойдёшь. Единственный прикол с Variant'ом, что это структура с поинтером на данные. Сейчас (ещё недели полторы) нахожусь за компом, где не установлена VS. Есть самописная асмовская библа (native dll) для тонкой работы с массивами (операции со всевозможной итерацией), в т.ч. с данными типа Variant. Если не сильно горит (вернусь за комп, где всё есть только через полторы недели) могу помочь. Если горит, проще разобраться самому. Кстати, у GSerg'а есть статья про массивы и работу с ними.

[tyomitch]

(То, что было в этом посте написано раньше, -- неправда)

Значит, на самом деле msvbvm копирует (SafeArrayCopy) лежащий в w массив во временный SAFEARRAY(VARIANT), и потом циклит уже по нему, без проблем. Имхо неожиданное решение: а если бы у меня в w был гигабайтный массив?

[ANDLL]

То надо переделывать программу, что бы не было гигабайтовых массивов... Обычно эти проблемы решают так. Кроме крайне узкого круга специфичных задач...

[tyomitch]

ANDLL, ты не прав. Положим, у меня была задача, которую мне героическими усилиями удалось запихнуть в гиг памяти. (Была, кстати: про ферзей с фиберами.) И значит, VB у меня отъест ещё вчетверо больше только затем, чтобы пройти в цикле по массиву? Так нечестно!

------------------------------

К слову об интересных эффектах с вариантами. От этого кода IDE впадает в анабиоз: не работает, но и не помирает

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

Option Explicit

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

Sub Main()
Dim v As Variant
CopyMemory v, &H400C, 2
CopyMemory ByVal VarPtr(v) + 8, VarPtr(v), 4
MsgBox v
End Sub


[tyomitch]

А вот, собственно, ответ на вопрос топика: цикл по массиву без создания временной вариантной копии.

Синтаксис VB использован в чисто иллюстративных целях; но этот код проверен и работает.

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

Option Explicit

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

Sub DoSomething(ByVal v As Variant)
Debug.Print v
End Sub

Sub Iterate(ByVal w As Variant)
Debug.Assert IsArray(w)
Dim v As Variant, i As Long, psa As Long, c As Long, pdata As Long
CopyMemory psa, ByVal VarPtr(w) + 8, 4
CopyMemory c, ByVal psa, 2
Debug.Assert c = 1 'одномерность
CopyMemory c, ByVal psa + 4, 4
CopyMemory pdata, ByVal psa + 12, 4
CopyMemory v, (VarType(w) And Not vbArray) Or &H4000, 2
For i = LBound(w) To UBound(w)
    CopyMemory ByVal VarPtr(v) + 8, pdata, 4
    DoSomething v
    pdata = pdata + c
Next
CopyMemory v, Empty, 16
End Sub

Sub Main()
Dim b() As Byte: b = "Hello!"
Iterate b()
Dim i() As Long: ReDim i(3)
i(1) = 2: i(3) = 4
Iterate i()
Dim s() As String: ReDim s(1)
s(0) = True: s(1) = False
Iterate s()
Dim w() As Variant: ReDim w(1)
w(0) = Null: w(1) = CVErr(123)
Iterate w()
End Sub


[tyomitch]

Не могу понять в чём же проблема этих двух проблем, а также что за
"обычный язык". Это типа как в рекламах "Обычный порошок" ?

Только сейчас обратил внимание, что Хакера постоянно заносит в одну и ту же сторону: порошок и тому подобное

[tyomitch]

Следующая проблема -- как сделать, чтобы DoSomething могла не только читать из v, но и писать назад...
Чего-то в голову ничего не идёт. Может, Approximator даст совет?
Так как есть сейчас -- она перезаписывает мой вариант новым, а не изменяет содержимое по ссылке.