Существующая либо не существующая переменная

[Aganrom]

Всем привет!
Есть некий код который выводит сообщение состоящее из двух переменных

MsgBox(4096, $dir  &  $doc)

:

Я хочу сделать так что бы в случайной вероятности 50/50 переменная $doc существовала либо нет.

Тоесть что бы я получал один из двух вариантов : MsgBox(4096, $dir & $doc) или MsgBox(4096, $dir)

НО - делать рандом из двух MsgBox мне не подходит. Мне нужно превратить $doc в некий блок - который 50/50 существует либо нет. Что бы я его мог подключать куда мне надо.

Возможно это может быть какая- то функция по переменной типа _SetTrueFals($doc)....точно не знаю.

В итоге я хотел бы иметь такой результат на примере Send:

$doc = "и черный"

Send("У меня есть свитер красный" & $doc)

В результате я должен получать 50%/50%

либо: У меня есть свитер красный
либо: У меня есть свитер красный и черный

Подскажите как сделать пожалуйста!

 

[xXx]

переменная $doc существовала либо нет.

Может лучше чтобы она существовала 100%, а вот ее значением можно было управлять?

Global $doc, $dir = '"У меня есть свитер красный'
For $i = 1 To 10
    $doc = ' и черный"'
    If Mod(@SEC, 2) Then $doc = '"' ; Случайный выбор
    MsgBox(4096, Default, $dir & $doc)
Next

 

[Aganrom]

Может лучше чтобы она существовала 100%, а вот ее значением можно было управлять?

Global $doc, $dir = '"У меня есть свитер красный'
For $i = 1 To 10
    $doc = ' и черный"'
    If Mod(@SEC, 2) Then $doc = '"' ; Случайный выбор
    MsgBox(4096, Default, $dir & $doc)
Next

Спасибо за скрипт. Как вариант.
Скажите - я правильно понимаю что

$doc = ' '

Будет давать пустое значение ?

 

[xXx]

... Будет давать пустое значение ?

Смотря что вы имеете ввиду под словом "пустое".

$doc = ' '

If $doc Then MsgBox(262144, Default, 'Переменная не пуста') ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>
MsgBox(262144, Default, '$doc = ' & $doc & @LF & '(А так вроде и не видно ничего)' & @LF & _
        'хотя там символ ASCII = ' & Asc($doc)) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< П Р О В Е Р К А >>>>>>>>>>>>>>>>>>>>>>>>

 

[ra4o]

Возможно это может быть какая- то функция по переменной типа _SetTrueFals($doc)....точно не знаю.

;$MyVar = ''

If IsDeclared('MyVar') Then
    MsgBox(0, '', 'Переменная существует')
Else
    MsgBox(0, '', 'Переменная  НЕ существует')
EndIf