Переопределение размеров массива

Размер массива может быть переопределен только в том случае, если он является динамическим. Эта процедура осуществляется с помощью команды ReDim, имеющей следующий синтаксис:

ReDim [Preserve] array_name(subscripts) [, varname(subscripts)] ...

n  Preserve – переопределяет размер, сохраняя существующие данные в массиве, если параметр не указан, то все ячейки массива обнуляются;

n  Array_name – название массива;

n  Subscripts – количество элементов в массиве.

При изменении размера многомерного массива корректировке поддается только размер последнего измерения.

Определение границ массива

Определение размера выделенной памяти для массива осуществляется с помощью команд lbound(array_name) и ubound(array_name), где array_name – название массива, границы которого необходимо определить. С помощью команды lbound определяется нижняя граница массива, с помощью ubound – верхняя граница.

Данный прием часто используется для чтения всех элементов динамического массива:

Пример1:

For i=Lbound(Array_) to Ubound(Array_)

Msgbox Array_(i)

Next

Упорядочивание элементов массивов

Наиболее простым, хотя и неэффективным, методом упорядочивания массивов является пузырьковый метод. Суть метода заключается в том, что при несоблюдении условия упорядочивания массива смежные элементы меняются местами. Затем происходит переход к следующему элементу. В результате элементы массива становятся друг за другом в заданном порядке – происходит упорядочивание. В том случае, если читатель хочет использовать более производительный метод упорядочивания массивов, то ему необходимо переписать часть кода, касающегося сортировки массива.

Пример 2:

    Dim Array(100)

    ……………………

    For j=0  to 100

    For i=0 to 100

           If StrComp(Array_sort(i),Array_sort(i+1),0)=1 Then

                 temp=Array(i)

                 Array (i)=Array(i+1)

                 Array(i+1)=temp

           End if

    Next

    Next

Первая часть: создание кэш-файла

Создание кэш-файла осуществляется с помощью сценария, написанного на VBScript, который запускается через заданные промежутки времени стандартным планировщиком задач Microsoft Windows. По ходу выполнения сценария осуществляется чтение структуры подкаталогов в указанном родительском каталоге. Анализируется содержимое подкаталогов. Если в подкаталоге обнаружена метка – файл !meta.txt, – путь к этой папке записывается в массив.