Как правильно сравнивать несколько строк

@Ципихович Эндрю · Регистрация: 10.04.2009

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

здравствуйте, что-то такая конструкция ошибку выдаёт, подскажите как правильно, спасибо

Visual Basic
1
2
3
4
5
6
7
8
If Первое_второе_слово_9_строки = Первое_второе_слово_8_строки And _
                   Первое_второе_слово_8_строки = Первое_второе_слово_7_строки And _
                   Первое_второе_слово_7_строки = Первое_второе_слово_6_строки And _
                   Первое_второе_слово_6_строки = Первое_второе_слово_5_строки And _
                   Первое_второе_слово_5_строки = Первое_второе_слово_4_строки And _
                   Первое_второе_слово_4_строки = Первое_второе_слово_3_строки And _
                   Первое_второе_слово_3_строки = Первое_второе_слово_2_строки And _
                   Первое_слово & " " & Второе_слово Then

или может есть проще способ при обработке улиц переулков, который идут построчно друг за другом после сортировки вида
переулок Бульварный 1-й
переулок Бульварный 2-й
переулок Бульварный 3-й
переулок Бульварный 4-й
переулок Бульварный 5-й
переулок Бульварный 6-й
переулок Бульварный 7-й
переулок Бульварный 8-й
переулок Бульварный 9-й
сделать текст
переулок Бульварный 1-й переулок Бульварный 2-й переулок Бульварный 3-й переулок Бульварный 4-й переулок Бульварный 5-й переулок Бульварный 6-й переулок Бульварный 7-й переулок Бульварный 8-й переулок Бульварный 9-й
то есть в одну строку

Остап Бонд · 11.03.2018, 15:41

Ципихович Эндрю, все как обычно?
Вместо общепризнанными - что есть и что надо в используемом вами формате (в Ворде, но не все же об этом знают) нарисовали никому непонятный код с загадочными Первое_второе_слово_9_строки и типа расшифровкой об переулок Бульварный *-й.
Наверно кроме Бульварного есть другие переулки, улицы, проспекты, авеню...?
А по контексту -

Visual Basic
1
s=join(split(Частьсписокулицпереулковкоторыйидутпострочнодругзадругомпослесортировки,vbcrlf))'то есть в одну строку

@Ципихович Эндрю · 11.03.2018, 16:10 **[ТС]**

да, это в Ворде, но то, что Вы привели, это должно быть после Then
а вопрос о том, как поставить условие, то есть до Then

Добавлено через 11 минут
присмотрелся в 8 строке ошибка, всем спс

@Hugo121 · 11.03.2018, 16:10

Правильно не делать ненужную работу, особенно если это предполагается в длинных циклах!
Вот зачем проверять все слова если например уже Первое_второе_слово_9_строки <> Первое_второе_слово_8_строки?
Да и вообще судя по тому куску кода - все слова должны быть одинаковы, а что за Первое_слово & " " & Второе_слово вообще непонятно...
Такие цепочки AND нужно заменять на вложенные If...Then, причём в порядке возрастания вероятности, т.е. сперва проверяете наименее вероятное равенство.

Остап Бонд · 11.03.2018, 16:19

УважаемыЕ Эндрю, мне совсем неинтересно знать что будет, если в списке появятся адреса типа
улица Павлика Морозова 123 к. 13
и т.п.
Т.е. если надо вдруг смотреть не два первых слова, а 3 или более.
Это Вам должно быть интересно!
А гадать на пустом месте - увольте.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,321
	11.03.2018, 16:10 [ТС]
	да, это в Ворде, но то, что Вы привели, это должно быть после Then а вопрос о том, как поставить условие, то есть до Then Добавлено через 11 минут присмотрелся в 8 строке ошибка, всем спс 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	11.03.2018, 16:10
	Правильно не делать ненужную работу, особенно если это предполагается в длинных циклах! Вот зачем проверять все слова если например уже Первое_второе_слово_9_строки <> Первое_второе_слово_8_строки? Да и вообще судя по тому куску кода - все слова должны быть одинаковы, а что за Первое_слово & " " & Второе_слово вообще непонятно... Такие цепочки AND нужно заменять на вложенные If...Then, причём в порядке возрастания вероятности, т.е. сперва проверяете наименее вероятное равенство. 1

Остап Бонд Заблокирован
	11.03.2018, 16:19
	УважаемыЕ Эндрю, мне совсем неинтересно знать что будет, если в списке появятся адреса типа улица Павлика Морозова 123 к. 13 и т.п. Т.е. если надо вдруг смотреть не два первых слова, а 3 или более. Это Вам должно быть интересно! А гадать на пустом месте - увольте. 0