про массив

[oxystile]

Добрый!
есть ли функция, которая определит сколько раз определенное значение встречается в массиве
(или только обычный перебор пожет это выяснить)?

 

[Medevic]

Нет.

 

[morpheus]

можно зделать так
например

dim arr(5) as string
Dim v as Variant
Dim result as INteger
arr = "1":"2":"3":"2":"7"

v = implode ( arr )
v = Split( v, "2" )
result = Ubound(arr) - UBound( v )

могут быть ошибки, писал прям тут

 

[oxystile]

спасибо! указанный пример работает
у меня result = UBound( v )

 

[morpheus]

oxystile
подождите не внедряйте, есть маленький изьян

dim arr(5) as string
Dim v as Variant
Dim result as INteger
arr = "1":"2":"3":"2":"7"
dim s as string
s = "$$#"
v = s & implode ( arr, s ) & s 
v = Split( v, s & "2" & s )
result = UBound( v )

при таком варианте не будет ошибок с массивом "1":"2":"3":"2":"72":"7" - тут результат повторений был бы 3, а на самом деле тут 2 повторения

 

[oxystile]

v = Split( v, s & "2" & s ) если с моими значениями, то так v = Split( v, s & list1(i) & s ) и тут ошибка "String is too large"

 

[Medevic]

Имхо, проще перебрать в цикле. Универсально(работает не только для строк) и просто.

Вот еще один способ. Вроде ничем не быстрее цикла:
(Len(Join(array)) - Len(Join(Arrayreplace(array, symbol, "")))) / Len(symbol)

 

[morpheus]

у меня result = UBound( v )

правильно, тут я ошибся

то так v = Split( v, s & list1(i) & s ) и тут ошибка "String is too large"

ну так может и вправду слишком длинная?

 

[Medevic]

Если это массив строк, то можно достаточно просто получить число повторов каждого элемента.

Хотя, можно иметь массив любого типа.

Тут проверил.
Код вида:

Dim l List As Long
Dim i As Long
For i = Lbound(arr) To Ubound(arr)
l(arr(i)) = l(arr(i)) + 1
Next

В три раза быстрее этого:

Dim i As Long
Dim c As Long
For i = Lbound(arr) To Ubound(arr)
If arr(i) = symbol Then c = c + 1
Next

Я поражен.

 

[morpheus]

Я поражен.

интересно, скорее всего из-за отсутствия в первом примере операции сравнения ( что медленно само по себе )