qtp自动化测试-条件语句 if select case

1 if 语句

if  condition  then

end if 

If condition Then   [statements]

[ElseIf condition-n Then   [elseifstatements]] . . .

[Else   [elsestatements]]

End If

Dim timeSpan

timeSpan=1

If timeSpan=1 Then

Window("选择要清算的条件").WinObject("按以下时间段").Click

Else

Window("选择要清算的条件").WinObject("全部未清算的记录").Click

End If

If Window("销售单再现").Exist(3) Then
Window("销售单再现").WinObject("TRzToolbar").Click 132,22
ElseIf Window("销退单再现").Exist(3) Then
Window("销退单再现").Close
End If

使用 and or 添加多个条件

If Window("汽车车型分类").Exist(2) and Window("汽车车型分类").WinObject("A：排量<1.6升").Exist(2)Then
Window("汽车车型分类").WinObject("A：排量<1.6升").Type Click
Window("汽车车型分类").WinObject("确定").Click
ElseIf Window("汽车车型分类_2").Exist(2) and Window("汽车车型分类_2").WinObject("I：车总长<＝4米 或者 座位<＝7座").Exist(2) Then
Window("汽车车型分类_2").WinObject("I：车总长<＝4米 或者 座位<＝7座").Click
Window("汽车车型分类_2").WinObject("确定").Click
ElseIf Window("汽车车型分类_3").Exist(2) and Window("汽车车型分类_3").WinObject("P：载质量<=0.75吨").Exist(2) Then
Window("汽车车型分类_3").WinObject("P：载质量<=0.75吨").Click
Window("汽车车型分类_3").WinObject("确定").Click
End If

2 select case 

Select Case testexpression   [Case expressionlist-n       [statements-n]] . . .   [Case Else expressionlist-n      [elsestatements-n]]End Select

在比较前，使用ICase函数将字符串转换成小写，使用uCase函数将字符串转换成大写

'========================================
'名称：get_ColumnNum
'作用：获取菜单序号
'参数：菜单名称
'返回值：菜单序号--17 15
'调用：msgbox get_ColumnNum("基础信息")
'========================================
Function get_ColumnNum(menuName)
Select Case menuName
Case "基础信息" "17"
End Select
End Function