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

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

2014-03-27T19:10:10Z

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

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

2014-03-27T18:37:24Z

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

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

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

2014-03-27T18:33:28Z

При таком объявлении массива 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: Проверка есть ли данные в массиве

2014-03-27T16:53:57Z

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

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

2014-03-27T16:28:16Z

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


Dim FileMassiv()

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

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