PDA

Показать полную графическую версию : [решено] VBS - If условие


Ragnazar
01-09-2012, 19:27
Мне нужно что-бы при соответствии переменной server нескольким значениям выдавался одинаковый результат
Вроде

If server = "server1"
If server = "server2"
If server = "server3" then
any.function
WScript.Quit
Else
another.function
WScript.Quit
end if

Но этот код конечно-же не работает
Мне нужна рабочая версия

megaloman
01-09-2012, 19:50
If Server = "Server1" Or Server = "Server2" Or Server = "Server3" Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If
Si = Array("Server1", "Server2", "Server3", "Server4", "Server5")
N = UBound(Si)

Logica = False
For i = 0 To N
Logica = (Server = Si(i))
If Logica Then Exit For
Next

If Logica Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If
Si = UCase("'Server1'Server2'Server3'Server4'Server5'")

If InStr(Si, UCase("'" + Server + "'")) <> 0 Then
MsgBox "Условие выполняется " + Server
Else
MsgBox "Условие не выполняется " + Server
End If

Iska
02-09-2012, 05:16
Можно проще:
Select Case server
Case "server1", "server2", "server3"
any.function
Case Else
another.function
End Select




© OSzone.net 2001-2012