Что нового

Добавление в [If] "или"

Zero

Новичок
Сообщения
11
Репутация
0
Приветствую всех
Как в AutoIt добавить в [If] "или"
В 1С так и пишется:
Допустим
;----------------------------------------------
Тест1 = "C:\"
Тест2 = "D:\"
Тест3 = 0
Если Тест1 или Тест2 = 1 Тогда

Иначе
;----------------------------------------------
Как реализовать это в Autoit?
Код:
If $cd0 = ("C:\") [или] ("D:\") [или] ("E:\") [или] ("F:\") = 1 Then
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
До чего дошли, по руский программируем... :laugh:
Хотя помню было что-то такое давно, «Глагол» кажется называлось.
 
Автор
Z

Zero

Новичок
Сообщения
11
Репутация
0
Bloodrinker сказал(а):
а
Код:
or
уже никак? :whistle:

Пробывал следующие:
Код:
;---------------------------------------------------------
$cd0 = ("C:\") Or ("D:\") Or ("E:\") Or ("F:\")
$cd1 = @ScriptDir
;---------------------------------------------------------
If $cd1 = $cd0 Then
	$cd2 = @ScriptDir & ("Test\")
	MsgBox(4096, "1", $cd2)
Else
	$cd2 = @ScriptDir & ("\") & ("Test\")
	MsgBox(4096, "2", $cd2)
EndIf
;---------------------------------------------------------

не работает всегда возвращает [MsgBox(4096, "1", $cd2)]
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
CreatoR
есть еще 1C:предприятие :smile: там тоже все на русском
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Алгол68 если мне не изменяет память)

Упс, про алгоритмический язык ШАЯ забыл :smile:
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Код:
$cd0 = ("C:\") Or ("D:\") Or ("E:\") Or ("F:\")

ты крут) :rofl:
это присвоит переменной значение true или же false

UPD: хотя нет... всегда будет TRUE
Кстати еще после @ScriptDir нужно самому слеш ставить, так как он возвращает путь без него
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Добавление в [If] \"или\"

Zero [?]
не удивительно. ты же в теме утверждаешь совсем другое. я, лично, не вижу, где ты добавил, дословно - в [If] "или". а вижу я "или" совсем в другом месте, рядом с оператором присвоения. но все равно, глядя на твой скрипт не могу понять до конца, что ты пытаешься сделать. проверить на каком диске находится скрипт? тогда это будет так
Код:
;---------------------------------------------------------
Dim $cd[4] = ["C:\", "D:\", "E:\", "F:\"]
$cd11 = @ScriptDir
$cd11 = StringSplit($cd1, '')
$cd1 = $cd11[1] & $cd11[2] & $cd[3]
;---------------------------------------------------------
If $cd1 = $cd[0] OR $cd1 = $cd[1] OR $cd1 = $cd[2] OR $cd1 = $cd[3] Then
   $cd2 = @ScriptDir & ("Test\")
   MsgBox(4096, "1", $cd2)
Else
   $cd2 = @ScriptDir & ("\") & ("Test\")
   MsgBox(4096, "2", $cd2)
EndIf
;---------------------------------------------------------



Добавлено:
Сообщение автоматически объединено:

Bloodrinker [?]
Алгол68 если мне не изменяет память)
изменяет, в алголе (68 в том числе) нет русских ключевых слов
[?]
это присвоит переменной значение true или же false
любая строка ненулевой длины это True :smile:
 
Автор
Z

Zero

Новичок
Сообщения
11
Репутация
0
Bloodrinker сказал(а):
Код:
$cd0 = ("C:\") Or ("D:\") Or ("E:\") Or ("F:\")

ты крут) :rofl:
это присвоит переменной значение true или же false

UPD: хотя нет... всегда будет TRUE
Kaster сказал(а):
Zero [?]
не удивительно. ты же в теме утверждаешь совсем другое. я, лично, не вижу, где ты добавил, дословно - в [If] "или". а вижу я "или" совсем в другом месте, рядом с оператором присвоения. но все равно, глядя на твой скрипт не могу понять до конца, что ты пытаешься сделать. проверить на каком диске находится скрипт? тогда это будет так
Код:
;---------------------------------------------------------
Dim $cd[4] = ["C:\", "D:\", "E:\", "F:\"]
$cd11 = @ScriptDir
$cd11 = StringSplit($cd1, '')
$cd1 = $cd11[1] & $cd11[2] & $cd[3]
;---------------------------------------------------------
If $cd1 = $cd[0] OR $cd1 = $cd[1] OR $cd1 = $cd[2] OR $cd1 = $cd[3] Then
   $cd2 = @ScriptDir & ("Test\")
   MsgBox(4096, "1", $cd2)
Else
   $cd2 = @ScriptDir & ("\") & ("Test\")
   MsgBox(4096, "2", $cd2)
EndIf
;---------------------------------------------------------



Добавлено:
Сообщение автоматически объединено:

Bloodrinker [?]
Алгол68 если мне не изменяет память)
изменяет, в алголе (68 в том числе) нет русских ключевых слов
[?]
это присвоит переменной значение true или же false
любая строка ненулевой длины это True :smile:





Kaster сказал(а):
Zero [?]
не удивительно. ты же в теме утверждаешь совсем другое. я, лично, не вижу, где ты добавил, дословно - в [If] "или". а вижу я "или" совсем в другом месте, рядом с оператором присвоения. но все равно, глядя на твой скрипт не могу понять до конца, что ты пытаешься сделать. проверить на каком диске находится скрипт? тогда это будет так
Код:
;---------------------------------------------------------
Dim $cd[4] = ["C:\", "D:\", "E:\", "F:\"]
$cd11 = @ScriptDir
$cd11 = StringSplit($cd1, '')
$cd1 = $cd11[1] & $cd11[2] & $cd[3]
;---------------------------------------------------------
If $cd1 = $cd[0] OR $cd1 = $cd[1] OR $cd1 = $cd[2] OR $cd1 = $cd[3] Then
   $cd2 = @ScriptDir & ("Test\")
   MsgBox(4096, "1", $cd2)
Else
   $cd2 = @ScriptDir & ("\") & ("Test\")
   MsgBox(4096, "2", $cd2)
EndIf
;---------------------------------------------------------



Добавлено:
Сообщение автоматически объединено:

Bloodrinker [?]
Алгол68 если мне не изменяет память)
изменяет, в алголе (68 в том числе) нет русских ключевых слов
[?]
это присвоит переменной значение true или же false
любая строка ненулевой длины это True :smile:
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
Kaster сказал(а):
любая строка ненулевой длины это True :smile:
да да .... забыл что-то сначала

Zero - редактируй свой последний пост пока никто не видит

я же говорю - сам слеш пиши
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Добавление в [If] \"или\"

Bloodrinker [?]
пока никто не видит
поздно ;D я бдю 8)
Zero
{OverQuoteWarn}


Добавлено:
Сообщение автоматически объединено:

Zero
я честно говоря ничего не понял :smile: но скажу одно наверняка – нет никакой надобности проверять пути, они универсальны :smile:
 
Верх