Проверить массив

[Тимофей]

Как проверить заполнен массив или нет.
Массив предварительно объявлен неявно (без указания размерности).

[Aleksej]

Функция UBound

Возвращает значение типа Long, содержащий максимальный доступный индекс.

[Тимофей]

Я же говорю, что массив объявлен неявно (значит неуказана его размерность). И попытка узнать его UBound выдаст ошибку.

[alibek]

Ты еще не читал наших апостолов (GSerg и иже с ними? )? Срочно в статьи, там как раз есть пример, как узнать, инициализирован ли массив или нет.

[Тимофей]

Нашел в статьях, спасибо.

[Ruslan Demidow]

Нашел в статьях, спасибо.

Что-то я не понял, а где эти статьи? Искал - не нашёл. Может плохо искал?

[Тимофей]

Лови
http://vbstreets.ru/VB/Articles/65977.aspx

[Ruslan Demidow]

Лови
http://vbstreets.ru/VB/Articles/65977.aspx

Ах это! Я смотрел (именно, что смотрел), потому как
==================
Эта статья предполагает, что вы знакомы с функциями Get/PutMem и принципом получения параметров по их смещению с стеке
==================
А вот именно с этим я не знаком, даже понаслышке. И если честно сказать, из кода мало чего понял.
Ну да ладно. Разберусь.
А за помощь СПАСИБО.

[codemaster]

Ты еще не читал наших апостолов (GSerg и иже с ними? )? Срочно в статьи, там как раз есть пример, как узнать, инициализирован ли массив или нет.

Есть одно маленькое но:

к сожалению автор вопроса не написал тип массива и предполагаемый (ожидаемый) размер.

В случае с типом arr() as string
произойдет перевод BSTR в ABSTR
и если массив будет не путым а большим тормоза обеспечены.

( В статье это кстати выдается за "фишку" но может я что то не понимаю )

так что единственно правильный вариант исходя из быстродействия прогр. Ubound() и обработать ошибку если массив пустой.

P.S. Если идея в том что с проверкой массива создается пауза в программе то вариант GSerg несомненно лучше.


Жалко что в этом форуме нет места для обсуждения статей.
но это вопрос скорее к модераторам.

[tyomitch]

Жалко что в этом форуме нет места для обсуждения статей.
но это вопрос скорее к модераторам.

Было бы наиболее логичным завести отдельный раздел - "Обсуждение статей", без права создавать новые топики, и с правом писать незарегистрированным пользователям. А внизу каждой статьи давать ссылку на соответствующий ей топик.
А то сейчас получается, что vbstreets.ru и bbs.vbstreets.ru - два разных и никак друг с другом не связанных проекта.

[gaidar]

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

Новые статьи будут иметь такие ссылки.

[tyomitch]

Новые статьи будут иметь такие ссылки.

Здорово!

Осталось только поиск по русским буквам наладить

[GSerg]

к сожалению автор вопроса не написал тип массива и предполагаемый (ожидаемый) размер.

В случае с типом arr() as string
произойдет перевод BSTR в ABSTR
и если массив будет не путым а большим тормоза обеспечены.

( В статье это кстати выдается за "фишку" но может я что то не понимаю )

Для определения BSTR** (strarr) используется специальная функция StrArrPtr! Никаких преобразований никуда Читай внимательно
А для юзерских типов нуно использовать либо её аналог, переобъявленный для каждого юзерского типа, либо функцию AnyPtr - её мне там в комментариях написали

[codemaster]

To "GSerg"

Итак тестируем вообщем безобидный код.
(Массив инициализирован!!!! )

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

Option Explicit

Private Declare Function GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long) _
As Long

Public Function StrArrPtr(arr() As String, Optional ByVal IgnoreMe As Long = 0) As Long
GetMem4 VarPtr(IgnoreMe) - 4, VarPtr(StrArrPtr)
End Function

Private Sub Command1_Click()
On Error Resume Next
Const CONST_ARR_SIZE As Long = 100000
Dim arr() As String
Dim laPtr As Long, lSize As Long
'
ReDim arr(CONST_ARR_SIZE) As String
'
laPtr = StrArrPtr(arr())
'
lSize = UBound(arr())

'
Debug.Print lSize, laPtr
'
End Sub

Performans поражает воображение см. архив.

[GSerg]

Судя по всему, это квантовый эффект
Факт наблюдения меняет поведение наблюдаемого объекта

Вот тело функции GetMem4:

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

mov eax, [esp+4]
mov ecx, [esp+8]
mov eax, [eax]
mov [ecx], eax
xor eax, eax
ret 8

Вот тело функции VarPtr:

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

mov eax, [esp+4]
ret 4

Укажи мне место, которое тормозит

ЗЫ: у меня не тормозит.
ЗЗЫ: от размера массива это не зависит вообще.

[Andrey Fedorov]

Я тут попробовал на эту тему, получилось две функции:

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

Public Function UboundArray(ArrayName As Variant, Optional Dimension As Integer = 1) As Long
    Dim d As Long
   
    d = GetArrayDimensions(ArrayName)
    If Dimension < 1 Or Dimension > d Then
        UboundArray = -1
    Else
        UboundArray = UBound(ArrayName, Dimension)
    End If
End Function

Public Function GetArrayDimensions(arr As Variant) As Integer
    Dim a As Long, b As Long
   
    CopyMemory b, ByVal VarPtr(arr) + 8, ByVal 4
    CopyMemory a, ByVal b, ByVal 4
    If a Then CopyMemory GetArrayDimensions, ByVal a, 2
End Function

GetArrayDimensions - возвращает размерность массива или 0 если массив не инициализирован.

UboundArray - возвращает кол-во элементов в указанной размерности массива или -1 если данная размерность не инициализирована.

То есть UboundArray неинициализированного массива вернет -1.

Как оно - сойдет?

[Andrey Fedorov]

В общем чуть подчищенные функции:

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

Public Function UboundArray(ArrayName As Variant, Optional Dimension As Integer = 1) As Long
    If Dimension < 1 Or Dimension > GetArrayDimensions(ArrayName) Then
        UboundArray = -1
    Else
        UboundArray = UBound(ArrayName, Dimension)
    End If
End Function

Public Function GetArrayDimensions(arr As Variant) As Integer
    Dim a As Long

    CopyMemory a, ByVal VarPtr(arr) + 8, 4
    CopyMemory a, ByVal a, 4
    If a Then CopyMemory GetArrayDimensions, ByVal a, 2
End Function

[tyomitch]

Укажи мне место, которое тормозит

Тормозит, безусловно, вызов по Declare. Посмотри код DllFunctionCall (с названием могу врать) и ужаснись. У меня даже протрейсить её до конца терпения никогда не хватало.

Вот за этим-то и нужны TLB.

[GSerg]

Это да...
Но я смотрел, как в exe реализованы вызовы getmem4 - они вообще идут как внутренние вызовы части exe, очень быстро.