Массивы

[Twister]

- тоже устарело. Индексация теперь начинается с нуля

Интересно, а кто же устанавливает, что устарело, а что нет? И что значит "теперь"?

Индексация начинается с того места, с которого надо

[Roman-vb]

Twister
Вопрос уже решённый! "Устарело" и "Теперь" - это касается Visual Basic 2005, который, объективно говоря, считается боле прогресивным.

[GSerg]

Вопрос уже решённый! "Устарело" и "Теперь" - это касается Visual Basic 2005, который, объективно говоря, считается боле прогресивным.

По этому поводу вспоминается

Передача "РОСТ" - самая популярная передача среди моей мамы.

Roman-vb
Отныне я буду удалять из основных разделов твои ответы, касающиеся VB .NET, со всегда следующими всед за ними фразами типа "А, ну так надо было переходить, а я не виноват, что вы на VB6 пишете" как злостный оффтопик, коим они и являются. С вынесением тебе предупреждений за этот самый оффтопик. Хочешь отвечать по .NET - делай это в разделе по .NET.

[Drag]

Такой вопрос. Есть у меня такой код...

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

Public Station() as StationType

Public Sub CreateStation
    Dim Ind as Integer
1:
    For Ind = 1 to UBound(Station)
        If Not Station(Ind).Exists Then Exit For
    Next
    If Ind>UBound(Station) Then ReDim Station(Ind): Goto 1
    ...
End Sub


Будет ли он тормозить при многократном вызове процедуры, и будет ли вообще работать ReDim? А то проверить сейчас не могу...

[Kovu]

Drag
У тебя массив статически объявлен, какой редим ?

[Drag]

Сори, сделал динамическим. А как насчет торможения?
PS: код исправил

[Amed]

Нет. Стоит заглянуть в MSDN по поводу динамических массивов.

[Drag]

Столкнулся со странным явлением - когда динамический массив еще не определили Redim'ом, то использование UBound выявляет ошибку "Subscript out of range". Навел курсор на UBound - появился текст ошибки, навел курсор на объект внутри функции, а затем обратно - и текст ошибки сменяется на "UBound(station) = -1". Далее жму F5 и программа как ни в чем ни бывало продолжает выполнение...

[dizzi]

Такой вопрос. Вот есть у мя двумерный массив заполненный до верху. Нужно еще добавить сверху одну (или несколько) позиций, но так, чтобы все остальное не стерлось. При этом возможно добавлятся будет не однократно. Как это по грамотному прописать в коде.

Конечно через ReDim Preserve, но у мя получается только раз, потом ошибку выдает.

И еще! Допустим надо где-то из серидины одну позицию удалить. Размер массива сократить на единицу соответственно и чтоб все сдвинулось и ничего не потерялось. Как будет выглядеть код в этом случае?

А то я решил первый вопрос через супергиганский массив. Типа сколько не добавляй, до верху не достанешь - как-то через ж.. А про удаление типа оставил на месте но все значения обнулил - то же ничего хорошего. Хочецца чтоб в итоге было все по божески. ХЭЛП!!!

[FaKk2]

Если хочешь по божески переходи на коллекцию UDT (user defined type).

[dizzi]

Час от часу не легче. А это че за зверь и с чем его едят?

[FaKk2]

У тебя массив двухмерный? Создай свой тип, который будет содержать эти два значения. И коллекцию этих типов, в которой можно достаточно просто добавлять / убирать элементы в любом месте.

[dizzi]

Тут вроде форум для новичков, а Вы нехорошими словами ругаетесь
Во-первых, не уж то нельзя обойтись стандартным набором. А во-вторых если нельзя, то нельзя ли пример кода по вашему принципу..

[FaKk2]

Тут вроде форум для новичков, а Вы нехорошими словами ругаетесь

Я бы на твоем месте просто из интереса поискал информацию о коллекциях и типах.

Во-первых, не уж то нельзя обойтись стандартным набором.

Дело не в наборе, а правильном подходе. Если тебе нужна гибкость в управлении большим количеством однотипных данных, то тебе нужно однозначно использовать коллекции. А коллекции не бывают "двухмерными" - это просто список обьектов.

А во-вторых если нельзя, то нельзя ли пример кода по вашему принципу..[

Тип создается так:

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


Public Type MyType
Long A
Long B
End Type


Как использовать коллекции, я не помню, почитай в MSDN.

[Drag]

Не знаю, как поступить - у меня есть массив, его я сортирую бинарным методом, но мне нужно как-то привязать начальные индексы к элементам массива. В массив я заношу кол-ва товаров, но после сортировки становится непонятно, какое число соответствует какому товару. Придумал только два способа, которые имхо слишком нерациональные - 1) Создать тип с двумя свойствами, 2) После сортировки сравнивать кол-ва товаров с каждым элементом массива(это приемлимо, т.к. раз кол-ва товаров одинаковые, то без разницы, какой из них какой).
Вообще, вся эта морока только для того, чтобы использовать функцию "Самый нужный ресурс" - MostNeedRes(Ind as Integer), которая определяет, какой товар самый требуемый, а Ind указывает... как бы так сказать... вообщем, если Ind = 1, то ищется нужнейший товар, а если Ind = 2 - то следующий товар по "нужности".

[alibek]

Сортируй не сам массив, а индекс к нему.

[Drag]

Это как? Единственный выход, который я нашел - создал двумерный массив, Mas(3,1). При втором индексе равном 0 - это само число, а при равном 1 - это начальный индекс.

FAKK2, ты ничего не перепутал? Я так думаю, что тип указывается так:

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

Public Type MyType
    a As Integer
    b as Boolean
End Type

[alibek]

Покажи, как ты сортируешь индекс?

[Drag]

Я просто сортирую числа, а при перестановке кроме самих чисел переставляю индексы...

[FaKk2]

Drag
Да перепутал с С#

[ANDLL]

Konst_One, оно же всегда неверно, как alibek говорит

Даже нулевой элемент массива - элемент. Вот если есть массив контролов, тогда да. Запросто может быть 'пробел' в середине.

Не, глупость. В любом массиве(даже если у нас Dim A() as TextBox) никаких пробелов не бывает. Бывают только nothing-элементы. Но это ведь то же элементы.
Другое дело, что утврждение будто arr_size=ubound(arr)-lbound(arr)+1 не верно еще и потому, что для пустых массивов(0 элементов) вызовет ошибку.