Работа со Split

[azzzza]

Добрый день. Помогите, пожалуйста, справиться с проблемой.
2. Есть строка, типу

str$ = "a-a.1; a-b.1; a-a.2; a-b.3; a-a.4; a-a.7; a-b.2..."

Нужно найти, сколько раз в каждом маленьком отрезке(который отделен двоеточием) встречается a-a.
Думаю в следующем направлении направлении:
Разбить строку Split-ом на куски и в цикле сравнивать на вхождение через Instr и увеличивать счетчик.
Но реализовать это не получается. Пробовал делать что-то такое:

Dim arr As Variant
Dim num As Integer

arr = Split(str$,";")

В arr сохранился нужный массив, но тип у него Variant

num = 0 ' счетчик вхождений

А дальше проблема.

If (в массив сохранилось минимум 2 элемента?) Then
For i%= 1 To длинна массива
num = num + 1
Next
End If
Messagebox "Number = "&CStr(num)

Тут не знаю, как проверить сколько элементов массива загрузилось после Split-а и как получить сам массив из Variant-а. Может кто-то подсказать?

 

[nayke]

If (в массив сохранилось минимум 2 элемента?) Then
For i%= 1 To длинна массива
num = num + 1
Next
End If

forall el in arr
num = num + 1
end forall

 

[Omh]

Dim arr As Variant
Dim num As Integer

arr = Split(str$,";")
forall x in arr
if instr(cstr(x), "a-a") <> 0 then num = num + 1
end forall

Добавлено:

For i%= 1 To длинна массива

Аррей по дефолту 0-based

 

[lmike]

я чёта не втупляю, а чё Lbound Ubound отменили?

 

[Omh]

я чёта не втупляю, а чё Lbound Ubound отменили?

Не отменяли
Но forall быстрее.

 

[lmike]

Но forall быстрее.

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

 

[Omh]

forall удобнее и нагляднее

Тут я согласен
А то, что быстрее просто читал, сам не тестировал.

 

[azzzza]

С forall получилось всё красиво. Спасибо!