条件和循环语句

相关项: GUI 操作、脚本化 GUI 组件和关键字 GUI 组件

使用条件语句和循环语句将决策制定和迭代添加到测试中。像在其他步骤中一样，将它们添加到关键字视图中的测试和组件中。

条件语句

条件语句根据特定条件执行一个步骤或一系列步骤。如果不满足条件，则检查下一个 Elseif 条件或 Else 语句。

要在关键字视图中添加条件语句，请执行以下操作:

  1. 选择要在其前添加条件语句的步骤。

  2. 选择“编辑”>“代码段”，然后选择要添加的语句。

    以下条件语句在关键字视图中可用:

    • If...Then

    • While...Wend

    • For...Next

    • Do...While

    • Do...Until

    另外，如果要使用 Elself ... Then 或 Else 语句，请切换到编辑器以从“编辑”>“代码段”菜单命令添加这些语句。

    条件语句的每个部分都作为单独的步骤添加。

    例如，选择 If 以添加 If 语句。在定义 If 语句的详细信息之后，将 Then 语句作为单独的步骤添加。

  3. 在新的条件语句行中:

    • 单击“项”单元格，并选择要对其执行条件语句的对象。

    • 单击“操作”单元格，并选择要执行的操作。

    • 如果需要，单击值单元格，并输入所需条件。

  4. 添加条件语句的第二部分，例如 Then 语句。

    右键单击新条件语句，并选择“在块之后插入新步骤”。

    在“操作”和“值”列中设置新步骤的值。

    您还可以录制步骤。添加条件语句后，所有录制的步骤都会自动插入条件语句块中。

    Example:

  5. 如果条件语句替换了紧靠它前面的语句，则删除紧靠新语句上面的行。

    Example:

  6. 通过使用 Else 语句或者在语句中嵌套其他级别来完成语句。

    选择新语句，然后选择“编辑”>“代码段”，然后选择要添加的新语句。

    Example: 下面的语句检查 Advantage Online Shopping 站点中是否存在“Username”编辑框。

    如果存在编辑框，则将输入用户名；否则将消息发送到“运行结果”。

    同一示例在编辑器中显示如下:

    If Browser("Advantage Shopping").Page("Advantage Shopping").WebEdit("username").Exist  Then
	Browser("Advantage Shopping").Page("Advantage Shopping").WebEdit("username").Set DataTable("p_UserName", dtGlobalSheet)
Else
Reporter.ReportEvent micFail, "UserName Check", "The User Name field does not exist."
End If

返回页首

循环语句

在条件为真期间或者直到条件为真为止，使用循环语句重复运行一组步骤，或无条件地运行特定的次数为止。

  1. 选择要在其前添加循环语句的步骤。

  2. 选择“编辑”>“代码段”，然后选择要添加的语句。

    以下循环语句在关键字视图中可用:

    While...Wend。只要指定的条件为 True，便执行一系列语句。

    For...Next。使用计数器执行一组语句指定次数。

    Do...While。只要指定的条件为 True，便无限期执行一系列语句。

    Do...Until。无限期执行一系列语句，直到指定的条件变成 True。

  3. 在“值”列中，输入所需条件。

  4. 要完成循环语句，请执行以下操作:

    • 选择循环语句步骤并录制新步骤，以将新步骤添加到循环语句中。

    • 选择循环语句步骤，右键单击，然后选择“插入新步骤”。

Example: 以下示例计算列表中的项数，然后逐一选择它们。

选择每一项之后，测试将继续。

同一示例在编辑器中显示如下:

itemsCount = Browser("Welcome: Mercury").Page("Find a Flight:").WebList("toDay").GetROProperty("items count")
For i = 1 To ItemsCount-1
	ItemName = Browser("Welcome: Mercury").Page("Find a Flight:").WebList("toDay").GetItem(i)
	Browser("Welcome: Mercury").Page("Find a Flight:").WebList("toDay").Select ItemName
Next

返回页首

另请参见: