Как работать с массивом

[mrkoder]

Забыл как с массивом работать ...как сделать
В заданном массиве a1, a2, … , an найти среднее геометрическое положительных элементов.

[Dmitriy2003]

http://forum.sources.ru/index.php?showtopic=167678

[BV]

А автор шустр, однако
Успел отметиться как минимум на 3-х форумах.

[Viper]

Пора ему в баню... Пока не научиться либо кодить сам, либо не увидит раздел Работа

[Wolfie]

С массивом работать просто:

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

Dim Имя(Граница) as Тип 'объявили
Dim Имя() as Тип 'объявили динамич. массив
ReDim Имя(Граница) 'задали границу динамическому массиву

а обращаемся к элементу по индексу:

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

Переменная=Имя(Индекс)

И ВСЁ перебирать элементы стоит в цикле...
Боюсь только, что это, Вам, автор, не помогло
Но бесплатно решать никто не будет )

[Viper]

Wolfie, не забывай, что можно задать и нижнюю границу... хотя автору конечно все это всяко не нужно

[kibernetics]

А реально ли отследить пуст ли динамический массив?

Dim arrD() as Long

Если не пусто как проверить?


П.С. хотел добавить что метод GSerg немного тяжёл для восприятия. Пока же нашёл два выхода: это обрабатывать ошибку и сравнивать Lbound с Ubound, хотя как раз-таки они и возвращают иррор...

[VVitafresh]

Как определить: пуст массив или нет?
http://bbs.vbstreets.ru/viewtopic.php?t=17555#134927

[tyomitch]

У GSerg-а код проще.

[kibernetics]

а ещё, может посоветуете, что всё-таки лучше: использовать динамический массив или коллекции?

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

[skiperski]

а ещё, может посоветуете, что всё-таки лучше: использовать динамический массив или коллекции?

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

Можно ещё извратиться с отсоединённым RS. Добавить ему поле состояния и в нём хранить почеканность. Т.о. ни создавать левые коллекции/массивы, ни тем более их перебирать не придётся. Потом фильтром выбрать только почеканные и передать их на дальейшую обработку.

[kibernetics]

skiperski
да, я много думал, и решил, что всё-таки стоит с тобой согласится, т.к. анчек итема приведёт к тому, что индекс нужно будет удалять из массива, а это наверное проще сделать в коллекции. Определять пуста ли коллекция тоже намного проще.
Единственное, что непонятно, как объявить итемы в коллекции конкретного типа, например As Long. Насколько вообще отличаются в памяти размер динамического массива и размер коллекции с одним и тем же заполением?

П.С. и еще почему-то неработает такая штука
Private colCIDs as Collection

Private Sub Splittering()
Dim sStr As String
sStr = Join(colCIDs, ",") <- Ошибка
End Sub

[skiperski]

Хм, работать и не должно. Это же коллекция, а не массив.

По поводу размера: если мне склероз не изменяет, то в коллекции можно хранить объекты различных типов, соответственно Varian, а массив можно определить конкретного требуемого типа. Т.е. коллекция по определению более ресурсоёмкая. Но возможность быстрого поиска/удаления компенсирует затраты памяти. Тем более хранить что-то в самой коллекции не обязательно, достаточно того, что ты используешь её индекс.

[kibernetics]

да...
тупанул я.
а как тогда можно сконкатенировать коллекцию в строку?
перебирать в цикле каждый итем?

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

Dim li as Long
Dim sStr As String

For li = 0 To colCIDs.Count
If sStr = vbNullString Then
sStr = colCIDs(li)
Else
sStr = sStr & "," & colCIDs(li)
End if
Next li

[skiperski]

перебирать в цикле каждый итем?

угу

[VVitafresh]

У GSerg-а код проще.

А где этот код?

[tyomitch]

Воспроизвожу по памяти, разыскивать лень.

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

Option Explicit

Private Declare Function VarPtrArray Lib "msvbvm60" Alias "VarPtr" (Arr() As Any) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ptr As Any, val As Long)

Sub Main()
Dim a()
    If Peek(VarPtrArray(a)) Then Debug.Print "Массив непустой" ' не напечатается
    ReDim a(1)
    If Peek(VarPtrArray(a)) Then Debug.Print "Массив непустой" ' напечатается
End Sub

Private Function Peek(ByVal Address As Long) As Long
    GetMem4 ByVal Address, Peek
End Function


[VVitafresh]

Наверное, эта тема?
http://bbs.vbstreets.ru/viewtopic.php?t=6676

vbskb_api vbskb_array vbskb_UBound vbskb_LBound