Серый форум — VBS: Проверка есть ли данные в массиве

Re: VBS: Проверка есть ли данные в массиве

null@example.com (wildwolf007) — Thu, 27 Mar 2014 19:10:10 +0000

Спасибо omegastripes. Вариант с "-1" больше всего подходит.

Re: VBS: Проверка есть ли данные в массиве

null@example.com (Xameleon) — Thu, 27 Mar 2014 18:37:24 +0000

При таком объявлении массива IsArray() всегда скажет да:

omegastripes, действительно. Не сообразил сразу.

Re: VBS: Проверка есть ли данные в массиве

null@example.com (omegastripes) — Thu, 27 Mar 2014 18:33:28 +0000

При таком объявлении массива IsArray() всегда скажет да:

Dim FileMassiv()
MsgBox IsArray(FileMassiv) ' Истина
ReDim FileMassiv(-1)
MsgBox IsArray(FileMassiv) ' Истина
ReDim FileMassiv(0)
MsgBox IsArray(FileMassiv) ' Истина

Ошибку можно обойти так:

Dim FileMassiv()
ReDim FileMassiv(-1)
' выполнение операций
' ...
' проверка
MsgBox Ubound(FileMassiv) ' для пустого массива вернет -1

И так:

Dim FileMassiv
FileMassiv = Array()
' выполнение операций
' ...
' проверка
MsgBox Ubound(FileMassiv) ' для пустого массива вернет -1

Или сначала проверить на наличие элементов в массиве (что-то подобное уже было на форуме):

Dim FileMassiv(), HasElements
' выполнение операций
' ...
' проверка
HasElements = False
For Each Elt In FileMassiv
    HasElements = True
    Exit For
Next
MsgBox HasElements

Во всех этих случаях проверяемая переменная FileMassiv при вызове TypeName() и VarType() возвращает одинаковые значения "Variant()" и 8204.

Re: VBS: Проверка есть ли данные в массиве

null@example.com (Xameleon) — Thu, 27 Mar 2014 16:53:57 +0000

Проверку на IsArray(FileMassiv) можно сделать.

VBS: Проверка есть ли данные в массиве

null@example.com (wildwolf007) — Thu, 27 Mar 2014 16:28:16 +0000

При построении кода использую динамические многомерные массивы. В результате обработки я помещаю в массивы те или иные данные при определенных условиях, но существуют ситуации когда никаких данных в массив не помещено, даже массив не обозначен в результате появляются ошибки в работе.


Dim FileMassiv()

'Здесь появляется ошибка
MsgBox Ubound(FileMassiv)

Как можно уйти от данной ошибки ? Или только обработать код ошибки ?