Xor не срабатывает

Question

Нет ответа, пожалуйста, проблема была решена. Перейдите к концу вопроса, чтобы увидеть, что я сделал неправильно.

---

Я бегу следующий Function прочитать синтаксис конкретного стандарта либо FilePath (Function читает file first, чтобы получить строку) или сам Text (skips file reading)

Public Function ReadStandard(Optional ByVal FilePath As String = Nothing, _ 
Optional ByVal Standard_Text As String = Nothing) As Boolean 

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

Public Function ReadStandard(str as String, isFilePath as Booelean) As Boolean 

Итак, чтобы сделать это возможным, я хочу использовать XOR, так как он должен сделать точную работу (если вы передаете 2 Booleans к XOR он должен возвращать только Правда, когда A! = B). Проведя некоторые исследования, я обнаружил, что это работает на vb.net: MSDN

Но по какой-то причине это не работает для меня;

If IsNothing(FilePath) Xor IsNothing(Standard_Text) Then (...) 

Есть ли причина для этого? Или я забыл, что я узнал в те дни?

Оказывается, что я только что-то перепутал в своей логике. В следующей функции я забыл поставить Not в If-Statement

If Not (IsNothing(FilePath) Xor IsNothing(Standard_Text)) Then 
    Throw New ArgumentException("FilePath or Standard_Text must be set.") 
    Return False 
End If 

Answer 1

XOR можно рассматривать как двоичного сложения без переноса.

If False Xor False Then '0+0 
     Stop 
    End If 

    If True Xor False Then '1+0 
     Stop 
    End If 

    If False Xor True Then '0+1 
     Stop 
    End If 

    If True Xor True Then '1+1 
     Stop 
    End If 

Answer 2

как делает ваш колл-выглядеть? Я попробовал ваш образец, и он работает.

Public Function ReadStandard(Optional FilePath As String = Nothing, Optional Standard_Text As String = Nothing) As Boolean 

    ReadStandard = False 
    If IsNothing(FilePath) Xor IsNothing(Standard_Text) Then 
     ReadStandard = True 
    End If 

End Function 

Вызов, как это (Х пример пути) обеспечивает правильный ответ:

ReadStandard(,)   --> False 
ReadStandard(, "X")  --> True 
ReadStandard("X",)  --> True 
ReadStandard("X", "X") --> False 

Осознавайте вызова, как ReadStandard("", "X"), потому что это означает FilePath не пусто.

BR