【软件测试自动化-QTP NOTE 13】 == 如何创建高效的Test-Data Dictionary 1st ==

来源：互联网发布：js数字和字符串计算编辑：程序博客网时间：2024/06/08 19:16

众所周知，Excel是非常有效的数据管理工具，当然它也为QTP提供了强大的调用接口，但是如果QTP直接调用Excel对象管理数据就会显得毫无效率，数据将会被生硬的一遍又一遍的遍历。那如何高效的去调用excel和管理测试数据，这里常常会引用到Dictionary对象。

Dim d                   '创建一个变量。Set d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens"     '添加键和项目。d.Add "b", "Belgrade"d.Add "c", "Cairo"...

以QTP SAMPLE APPLICATION :http://newtours.demoaut.com/

With Data    .Add "UserName", "test"    .Add "Password", "test"    .Add "PassCount", "2"    .Add "FromPort", "Frankfurt"    .Add "FromMonth", "December"    .Add "FromDay", "9"    .Add "ToPort", "Paris"    .Add "ToMonth", "December"    .Add "ToDay", "27"    .Add "ServClass", "Coach"    .Add "Airline", "Unified Airlines"End With

SystemUtil.Run "iexplore.exe", "http://newtours.demoaut.com", "", "", 3 With Browser("title:=Welcome: Mercury Tours").Page("micclass:=Page")    If .Exist(5) Then        .WebEdit("name:=userName").Set Data("UserName") 'UserName = test        .WebEdit("name:=password").Set Data("Password") 'Password = test        .Image("name:=login").Click    End IfEnd With Data.RemoveAllSet Data = Nothing