Аналог If - And - Then

[Williams]

Существует ли конструкция аналогичная If ... And ... Then...

с отличием, чтобы второе условие не проверялось, если первое ложно?

[M.A.R.K]

Williams

Код: Выделить всё

If Первое условие then
  If Второе условие then
    ...
  End if
End if

[Хакер]

Конструкий не существует таких. Потому что And это оператор, и к If никакого прямого отношения не имеет.

Тем не менее, вопрос имеет смысл.

В некоторых языках существует два вида операторов: Логические и Бинарные.

Не вдаваясь в подробности: логические операторы в силу своей особенности не требуют вычисления правого операнда, если однозначный результат можно выдать на основании левого.

Например ЛОГ_И не будет вычислять правый операнд если левый - ложь, а ЛОГ_ИЛИ не будет вычислять правый операнд если левый - истина.

В VB операторы And и Or -- бинарные, и им в любом случае (для правильного вычисления) нужно значение правого операнда.

Поэтому задуманного на базе операторов сделать невозможно.

З.Ы. Кстати, такая логика работы операторов не укладывается в рамки RPN, а мне думается, что все выражения VB перегоняются в RPN перед компиляцией.

[ANDLL]

Хакер
Словосочетание "бинарный оператор"(binary operator) вообщето означает что у оператора два операнда
В этом плане ЛОГ_ИЛИ у тебя то же будет бинарным.

В некоторых языках существует два вида операторов: Логические и Бинарные.

В этом же плане операторы бывают логические и побитовые(logical\bitwise operators).

[arthur2]

Код: Выделить всё

If a Then If b Then Stop


Так пойдёт? Только, тогда и само действие тоже должно быть на той же строке.

[Хакер]

ANDLL
Да-да, ты прав.

Чертовки описался, про арность операторов вкурсе.

[alibek]

arthur2, этот вариант плохо читаем и на практике неприменим.

[arthur2]

alibek
То что плохо читается - да.
Но почему неприменим?

[alibek]

If a Then If b Then proc1 Else proc2

К какому условию относится proc2, к a или к b?

[Williams]

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

Иногда например бывает так, что нужно проверить свойство какого-то объекта.

If Not Object Is Nothing And Object.Property = "SomeValue" (в глобальном смысле я имел в виду .NET). Даже если объект не инициализирован, свойство будет проверено, что вызовет ошибку.

Надеюсь смысл понятен...

If a Then If b Then proc1 Else proc2

К какому условию относится proc2, к a или к b?

Тоже интересует.

[Viper]

Williams, мог бы и проверить... Ко второму условию относится. Но это совершенно не очевидно визуально.

[Хакер]

А чтобы относилось к первому, надо написать Else Else. Но сделать это с первого раза не получится, надо уметь

[Viper]

А чтобы относилось к первому, надо написать Else Else. Но сделать это с первого раза не получится, надо уметь

А вот с этого места подробнее! Как сие можно измудрицца?

[Хакер]

Если писать Else Else, то вставляется третий Else, на который VB потом ругается.

Если же написать Else : Else, то двоеточие уберётся, и VB ничего трогать не будет.

Такой же баг, как и Dim zu, [гы гы лол], zwq

[ANDLL]

(в глобальном смысле я имел в виду .NET)

В .NET есть AndAlso, а что, не видно в каком разделе создается тема?

[arthur2]

alibek
If a Then If b Then proc1 Else proc2

К какому условию относится proc2

На сколько я понимаю:

Код: Выделить всё

if a then
   if b then proc1 else proc2
end if

Или (если конечно скобки позволил бы бейсик):
If a Then (If b Then proc1 Else proc2)
Мне кажется, это всё же вполне понятно и из записи.

А возможны ещё и такие извращения:

If a Then If b Then proc1 Else proc2 Else proc3
If a Then If b Then proc1 Else: Else proc3
(как заметил Хакер, двоеточие уберётся само)
If a Then If b Then proc1 Else Else Else proc3
(последнее и вовсе загадочное)

Но это уже перебор

If Not Object Is Nothing And Object.Property = "SomeValue"

А вот оно, кстати, и возможное применение.
If Not Object Is Nothing Then If Object.Property = "SomeValue" Then Stop
По моему, запись хоть и не привычна, но вполне понятна.

[ANDLL]

arthur2
Обычно советуют избегать подобных мутных конструкций.
Что бы другой программист смотря код не хватался за голову пытаясь понять тайные измышления. По этой же причине нежелательны всякие while\wend и тп

[arthur2]

Такой же баг, как и Dim zu, [гы гы лол], zwq

Прикольно! Потом этой переменной можно присваивать значения!

Код: Выделить всё

[гы гы лол] = "гы гы лол"
Debug.Print [гы гы лол]

[arthur2]

ANDLL
Разве я сильно ратовал за такие конструкции? Цитата из меня:

А возможны ещё и такие извращения

Но в случае с объектом, ИХМО, можно и применить - действительно получилось удобно. Раньше я просто знал о возможности подобных "мутных конструкций", а теперь, кажется, нашёл случай, в котором можно их оправдать

[Williams]

Williams, мог бы и проверить... Ко второму условию относится. Но это совершенно не очевидно визуально.

На тот момент когда вопрос заинтересовал, не было Студии под рукой, сейчас проверил уже

[amer]

простите, а вот эта конструкция не пойдет?

if a then
...
elseif b then
...
else
...
endif

[Хакер]

Нет .