Посчитать количество элементов массива одной тематики

@Clavicula · Регистрация: 05.09.2016

Студворк — интернет-сервис помощи студентам

Господа, прошу помочь написать цикл, который посчитает кол-во элементов массива определенной тематики и запишет это число в переменную Interact.
В vbs я новичок, поэтому буду изъясняться на дилетантском языке.
Есть массив, каждый элемент массива состоит из трех слов одной тематики, например:

0 - Car;Bike;Motorcycle 'Транспорт
1 - Cup;Spoon;Knife 'Посуда
2 - Table;Chair;Box 'Мебель

Меня интересует тематика Транспорт, слова в элементе могут стоять в разном порядке, например:

Car;Bike;Motorcycle
Bike;Bike;Car
Motorcycle;Bike;Bike

Если в элементе есть хоть одно из трех слов Car, Bike, Motorcycle, то Interact будет равен 1.

Приведу еще один пример массива где Interact будет равен 2 (0 и 2 элемент массива имеют тематику Транспорт):
0 - Car;Car;Motorcycle
1 - Cup;Spoon;Spoon
2 - Motorcycle;Car;Bike
3 - Box;Chair;Box

@Alex77755 · 05.09.2016, 19:06

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
    Dim arr, i, a, b, c, Interact
    a = "Car": b = "Bike": c = "Car"
    arr = Split("Car;Car;Motorcycle  Cup;Spoon;Spoon Motorcycle;Car;Bike Box;Chair;Box")
    For i = 0 To UBound(arr)
        If InStr(1, arr(i), a, vbTextCompare) > 0 _
        Or InStr(1, arr(i), b, vbTextCompare) > 0 _
        Or InStr(1, arr(i), c, vbTextCompare) > 0 Then Interact = Interact + 1
    Next
    MsgBox Interact, 64, ""
End Sub

@Clavicula · 06.09.2016, 15:47 **[ТС]**

Благодарю за ответ, буду пробовать =)

Добавлено через 2 часа 51 минуту
Цикл работает, спасибо

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 11.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 10.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Clavicula 0 / 0 / 0 Регистрация: 05.09.2016 Сообщений: 4

	Посчитать количество элементов массива одной тематики 05.09.2016, 18:08. Показов 1878. Ответов 2 Метки нет (Все метки) Господа, прошу помочь написать цикл, который посчитает кол-во элементов массива определенной тематики и запишет это число в переменную Interact. В vbs я новичок, поэтому буду изъясняться на дилетантском языке. Есть массив, каждый элемент массива состоит из трех слов одной тематики, например: 0 - Car;Bike;Motorcycle 'Транспорт 1 - Cup;Spoon;Knife 'Посуда 2 - Table;Chair;Box 'Мебель Меня интересует тематика Транспорт, слова в элементе могут стоять в разном порядке, например: Car;Bike;Motorcycle Bike;Bike;Car Motorcycle;Bike;Bike Если в элементе есть хоть одно из трех слов Car, Bike, Motorcycle, то Interact будет равен 1. Приведу еще один пример массива где Interact будет равен 2 (0 и 2 элемент массива имеют тематику Транспорт): 0 - Car;Car;Motorcycle 1 - Cup;Spoon;Spoon 2 - Motorcycle;Car;Bike 3 - Box;Chair;Box 0

@Clavicula 0 / 0 / 0 Регистрация: 05.09.2016 Сообщений: 4
	06.09.2016, 15:47 [ТС]
	Благодарю за ответ, буду пробовать =) Добавлено через 2 часа 51 минуту Цикл работает, спасибо 0

Посчитать количество элементов массива одной тематики

Решение