מדריך VBS – משפטי תנאי

תנאים

קוד, או קטע קוד יתבצע רק אם תנאי מסויים מתקיים. כדי לטפל במקרים אלו, קיימים התנאים.
ב-VBScript קיימים שני סוגי תנאים:

If... Then... Else
Select Case

If… Then… Else

ניתן לכתוב את התנאי בדרכים הבאות:
כאשר ישנן כמה פקודות לביצוע לאחר התנאי:

If <condition> Then
    'some code
Else
    'some code
End If

כאשר יש רק פקודה אחת לביצוע:

If <condition> Then
    'only one statment
Else
    'only one statment

(אין צורך לסגור תנאי זה ב- End if)
בדוגמא הבאה אנו בודקים האם השעה הנוכחים היא אחרי 12 בצהריים, ובהתאם לכך מציבים ערך במשתנה strTime.
הפונקציה now מחזירה לנו את התאריך והשעה הנוכחיים, והפונקציה hour מחזירה לנו מספר בין 0-23 המייצג את השעה. על הפונקציות הללו נדון בהרחבה בפרק העוסק בפונקציות המובנות של VBScript.

Dim num,strTime
num=10
If Hour(now())<12 Then
    strTime="Morning"    
Else
    strTime="Evening" 

כאשר יש לנו מספר שורות קוד לבצע, חובה לכתוב End If בסוף התנאי:

If num <> 0 Then
    value= value/num
    num = num + 1
Else
    num=1
End If

אם אין לנו שום צורך לכתוב קטע קוד שיתבצע באם התנאי לא מתקיים, ניתן לוותר על ה-Else.

If num <> 0 Then
    value= value/num
    num = num + 1
End If

אם כאשר התנאי שכתבנו ב-If אינו מתקיים, ואנו רוצים ב-Else לבדוק תנאי אחר, נשתמש ב-ElseIf:

If num <> 0 Then
    value= value/num
    num = num + 1
ElseIf num > 10 Then
    num = num / 10 + 1
    value= value/num
Else
    num=1
End If

התנאים במשפט ה-If יכולים להיות גם תנאים מורכבים, כגון:

If (num > 10 And num <=50) Or str="Hello" Then
If (str="Hello" And Num =2) Then

Select Case

מטרת ה-Case הינה לפשט את מבנה התנאי במקרה של מספר תנאים:

Select Case <Variable>
    Case <Value>
    Case <Value> ,<Value>,<Value>
    Case Else
End Select

Select Case Num
    Case 1:
        str="one"
    Case 2:
        str= "two"
    Case 3:
        str = "three"
    Case Else:
        str = "Bigger then three"
End select

Select Case strName
    Case "Moshe":
        str="Father"
    Case "Rona":
        str= "Mother"
    Case "Shay","Dany":
        str = "Brother"
    Case "Michal","Yael":
        str = "Sister"
    Case Else
        str= "Not part of the family"
End select