Динамические массивы.

[Cramac]

Всем привет. Сильно не пинайте, но я в ВБ не силен. Поиск никчему не привел хорошему, еще больше только запутал.
Суть проблемы такая:
как создать динамический массив? т.е. максимальное значение в нем не известно. Может быть как 1 так и 1000001.
Как это осуществить? Помогите примером

[BV]

ReDim

[Cramac]

BV
а не покажите пример использования?

у меня массив должен создаватся на основе результатов выполнения функции, т.е. функция при удачном выполнении выдает число 1 ... до много и собственно в функции надо создать этот массив.

[Cramac]

немного не так:

Private Sub name ()
тело процедур, при выполнении выдает к примеру 432
и тут надо сделать массив
MyArray(0)=432
End Sub

этот саб может выолнится много раз и все его результаты надо в массив записать

[Cramac]

а как записать следующее значение сохранив предыдущее?
т.е. что бы новый результат был
MyArray(1)=422

[Cramac]

выдает такое сообщение
Array already dimensioned
на строку
Redim preserve MyArray(1)

[Cramac]

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

Dim tmp_n_w As Integer
Dim myarray(1) As Integer

Private Sub chek_file(count_f)
....
If file <> 0 Then

tmp_n_w = UBound(myarray) +1
' вроде как хочу увеличить массив на 1

ReDim Preserve myarray(tmp_n_w)
myarray(tmp_n_w) = count_f

End If

End Sub

[Cramac]

так выдается такое сообщение:
subscript out of range
на строку
tmp_n_w = UBound(myarray) +1

[GSerg]

Cramac
Очень полезно найти MSDN за октябрь 2001 и установить. Тогда такие вопросы будут решаться по F1.

Кроме того, ИМХО, код следует писать не для частного случая, как тут, а универсально. Для массива, начинающегося с любой границы.

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

dim arr() as long

redim arr(1 to 1)

arr(ubound(arr))=422
redim preserve arr(lbound(arr) to ubound(arr)+1)
arr(ubound(arr))=423

[GSerg]

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

Замечание же о количестве модераторов, если честно, вообще не ясно из чего произрастает.

Выходные просто. Вот вернутся кто надо, и снесём нафиг и тебя, и все твои посты до единого. Ибо нефиг.

[Cramac]

GSerg
Спасибо, все работает

[GSerg]

Я не Гончарук Сергей. И если ты не понял, почему был удалён (вернее, перемещён для дальнейших занимательных разбирательств) твой пост, значит твой интеллект даже ниже, чем ты на данный момент успел показать, как ни кажется это невозможным.