Альтернативы VBA короткого замыкания

Ответ 1

В качестве более общей оценки я предлагаю ввести флаги условий и использовать присвоение результатов сравнения для booleans:

dim cond1 as boolean
dim cond2 as boolean

cond1 = false
cond2 = false

' Step 1
cond1 = MyObj Is Nothing

' Step 2: do it only if step 1 was sucessful 
if cond1 then
    cond2 = MyObj.Property = 5
end if

' Final result:
if cond2 then
   msgbox "Yay"
else
   msgbox "Boo"
end if

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

РЕДАКТИРОВАТЬ 14/09/07

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

dim cond1 as boolean
dim cond2 as boolean
dim cond3 as boolean
dim cond4 as boolean

cond1 = MyObj Is Nothing
if cond1 then cond2 = MyObj.Property = 5
if cond2 then cond3 = MyObj.Property2 = constSomething
if cond3 then cond4 = not isNull(MyObj.Property77)

if cond4 then
   msgbox "Hyper-Yay"
else
   msgbox "Boo"
end if

Я мог бы согласиться на это. Это чистый поток для чтения.

Ответ 2

Есть способ. Тебе не обязательно понравится. Но это один из тех тщательно разработанных случаев, когда Goto пригодится

If Not MyObj Is Nothing Then
    If MyObj.Property = 5 Then
        MsgBox "YAY"
    Else
        Goto JUMPHERE
    End If
Else
JUMPHERE:
    MsgBox "BOO" 'Duplicate
End If

Короткозамкнутый код для реализации короткого замыкания!

В качестве альтернативы, если вместо MsgBox "BOO" - некоторый длинный и запутанный код, он может быть завернут в функцию и может быть записан дважды с минимальным воздействием/накладными расходами.

Что касается конкретного варианта использования, несколько операций Set будут иметь минимальное влияние на производительность, и, следовательно, если вы хотите избежать использования Goto (по-прежнему наиболее глобально эффективный подход, коразмер + производительность, избегая создания манекена переменные и т.д. - не имеет значения, хотя для такого небольшого фрагмента кода существует незначительный недостаток, просто повторяя команду.

Просто, чтобы проанализировать (ваш пример кода), сколько можно получить с помощью разных методов...

• Если оба условия верны:, есть 2 сравнения, 1 назначение, 0 скачков
• Если выполняется только первое условие: есть 2 сравнения, 1 назначение указателя, 1 прыжок
• Если выполняется только второе условие: существует 1 сравнение, 1 назначение указателя, 1 прыжок
• Если оба условия ложны: существует 1 сравнение, 1 назначение указателя, 1 прыжок (тот же, что и выше)

С точки зрения производительности, скачок обычно дороже сравнения (что происходит очень быстро в ALU против прыжка, что может привести к сбою в кеше кода, возможно, не в этих размерах, но все же прыжки дороги),

И нормальное присвоение по значению будет в лучшем случае столь же быстрым, как присвоение указателя или иногда хуже (это VBA, не может быть на 100% уверен в реализации p-кода)

Итак, в зависимости от вашего случая использования/ожидаемых данных вы можете попытаться свести к минимуму среднее число переходов на итерацию в вашем цикле и изменить порядок кода.

Ответ 3

Как насчет:

s = "BOO"

If Not MyObj Is Nothing Then
    If MyObj.Property = 5 Then s = "YAY"
End If

MsgBox s