Если текст содержится в массиве, то

@Busine2009 · Регистрация: 13.06.2009

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

Есть данные:

Visual Basic
1
2
3
Dim MyArray_1(17) As String
MyArray_1(1) = 2
MyArray_1(2) = 4

Как написать условие:
если текст содержится в MyArray_1, то...

Добавлено через 1 час 19 минут
Почему вот это не срабатывает?

Visual Basic
1
2
3
4
5
vData_1 = Len(Selection.Text) - 1
vData_2 = Left(Selection.Text, vData_1)
    If InStr(Join(MyArray_2()), vData_2) > 0 Then
        MsgBox "Это число содержится в данном массиве"
    End If

Добавлено через 55 минут
С

Visual Basic
1
Len

проблемы, почему-то из-за неё не работает.
Сейчас попробую на другом компьютере.

@Toxa33rus · 14.03.2010, 22:16

Может джойну делимитер передать еще? Для порядкУ.
А то все числа одной строкой идут и получается что 1 2 3 тоже самое что 12 3.
У меня код работает. Не Ваш, но на его основе:

Visual Basic
1
2
3
4
A = Array(1, 2, 3, 4, 5)
If InStr(Join(A, "="), "3=") Then
  f = 666
End If

@Busine2009 · 14.03.2010, 22:21 **[ТС]**

Toxa33rus,
или я чего-то недопонимаю, но я только второй раз сталкиваюсь с массивами, и уже знаю, что по умолчанию между цифрами стоит пробел, если просто использовать

Visual Basic
1
join

Щас проверю. Да я проверил, не нужен разделитель.
А ещё, почему у меня

Visual Basic
1
Len

не работает?

@Toxa33rus · 14.03.2010, 22:47

Сообщение от Busine2009

по умолчанию между цифрами стоит пробел

точно

Добавлено через 3 минуты

Сообщение от Busine2009

А ещё, почему у меня
Код Visual Basic
Len
не работает?

Я боюсь запускать макросы в ворде - их потом долго удалять надо

Так что не знаю. Но точно помню что я так делал когда-то и работало. Отладчик-то чего говорит? Там же все видно что селект а что не селект.

@Busine2009 · 14.03.2010, 23:21 **[ТС]**

Сообщение от Toxa33rus

их потом долго удалять надо

поделись секретом - как это?
Я MsgBoxом вот это просматривал:

Visual Basic
1
vData_2

выдаёт число. Но почему-то здесь:

Visual Basic
1
If InStr(Join(MyArray_2()), vData_2) > 0 Then

переменная

Visual Basic
1
vData_2

не является числом.
Если заменить

Visual Basic
1
Len(Selection.Text) - 1

на

Visual Basic
1
Selection.Characters.Count -1

то всё работает, что я и сделал.

@ironegg · 15.03.2010, 02:08

Visual Basic
1
2
3
Public Sub a()
vData_1 = Len(Selection.Text) - 1
End Sub

у меня работает.

@Toxa33rus · 15.03.2010, 21:37

Не по теме:

Сообщение от Busine2009

поделись секретом - как это?

это когда создашь 10 макросов, потом еще 10. каждый раз закрываешь это всю дребедень на крестик, на все предложения сохранить чего-то там, жму "Нет". Но макросы-то собаки такие сохраняются в Normal. И вот когда они окончательно все надоедают то начинаю их удалять. А это не так-то просто - вдруг среди них есть полезные коды. Вот и затягивается удаления на века.

@Busine2009 · 15.03.2010, 22:15 **[ТС]**

Toxa33rus,
элементарно - ватсон - сохраняй свой шаблон, а макросы других проверяй на чистом шаблоне, затем этот шаблон удали, а предыдущий установи.
ironegg,
я уже с этим сталкивался - что у меня не работает, а у др. работает, здесь есть про что-то там, где я макрос написал - вот тот макрос примени.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	15.03.2010, 22:15 [ТС]
	Toxa33rus, элементарно - ватсон - сохраняй свой шаблон, а макросы других проверяй на чистом шаблоне, затем этот шаблон удали, а предыдущий установи. ironegg, я уже с этим сталкивался - что у меня не работает, а у др. работает, здесь есть про что-то там, где я макрос написал - вот тот макрос примени. 0