使用QTP对报表中的webtable内容进行正确性验证。

    基本思路是：

    一：使用getcelldata（i，j）的方法遍历webtable把表格内容存入一个数组中，一般为二维数组

    二：使用数据库连接组件ADODB连接后台数据库，使用数据结果集对象保存select查询结果，也是一个二维数组

    三：此时区分是否需要验证排列顺序，如果需要，直接对两个二维数组进行一对一遍历比较

    四：不需要验证排列顺序，或者顺序无法控制的情况下，我们需要对显示内容和查询预期内容进行比较，这时候牵涉到两个结果集的数据顺序问题，如果采用单对多遍历的情况，效率会十分低。

    这时候我们换一种思路考虑，既然是验证内容，那我们就可以把二维数组的验证转换成排序一维数组比较，实现方式是，采用join方法将二维数组的每一行转换成一个字符串（内容没有变化，只加入拼接符），两个二维数组进行相同转换，成为两个一维的字符串数组。

    然后使用快速排序法对两个一维数组进行一次排序，同样的机制下，如果原本内容相同，那么排序出的内容也应该相同。然后直接进行一维数组一对一比较。

    下面是vbs的快速排序代码，合适数字和字符串数组：

Public Function QSort(ByRef ReArr, ByVal head, ByVal tail)

'ReArr 是待排序数组， head和tail是该数组的最小下标和最大下标
Dim lef, rig
Dim pivot

If head < tail Then
 lef=head
 rig=tail
 pivot=ReArr(lef)
 While (lef <> rig)

  While (lef < rig and ReArr(rig) >= pivot)
   rig = rig-1
  Wend
  If lef <rig Then
   ReArr(lef) = ReArr(rig)
   lef = lef+1
  End If

  While (lef < rig and ReArr(lef) <= pivot)
      lef = lef+1
  Wend
  If lef <rig Then
   ReArr(rig) = ReArr(lef)
      rig = rig-1
  End If
 
 Wend

 ReArr(lef) = pivot
 call QSort(ReArr, head, lef-1)
 call QSort(ReArr, lef+1, tail)
 
End If
End Function

1、拆分语句split
例：取得当前日期后拆分
riqi=date()
    my=split(riqi,"-")
    riqi=my(1)&"月"&my(2)&"日"
    datatable("riqi",DtGlobalSheet)=riqi
    本地表：DataTable("a", dtLocalSheet)
riqi= year(date)& "-" & Right("0"& month(date),2) & "-"&Right("0"&   Day(Date),2)

2、取得表格中某行某列的值GetCellData
例：飞机票取票价
shuA=Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebTable("New York to Zurich").GetCellData(3,3)


3、取距某年某月某日的天数datediff
例：计算距2008-08-08奥运天数
datediff("d",now,"2008-8-8")


4、描述性编程text:=
例：取得某页面上某文字的链接
Browser("").Page("").Link("text:=娱乐").Click
     或
     neirong="娱乐"
     Browser("").Page("").Link("text:="&neirong).Click


5、网页中HTML编辑器的录制
功能：验证126邮箱的发信功能正确
操作步骤：
      a.录制脚本，动作包括整个发信的过程。
      b.修改脚本，在输入信件主题代码后加wait 10语句
       c.回放脚本，观察在邮件正文中输入的内容，回放时QTP是否写入
      d.重新修改脚本，保证回放时QTP在邮件正文中写入内容

英文解决方案：
    Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - xueqinzhaoqing@126.co").Frame("indexFrame").WebEdit("subject").Click
    wait 1
     Setting.WebPackage( "ReplayType")=2      '配置使用浏览器事件或鼠标运行鼠标操作的'方式.1 - 使用浏览器事件运行鼠标操作,2 - 使用鼠标运行鼠标操作。
     Set ōbj=createobject("wscrīpt.shell")
     obj.sendkeys "{TAB}"
     wait 2
     obj.sendkeys "abc1111"
     wait 1
     Setting.WebPackage( "ReplayType")=1
中文解决方案

strCopy = "软件测试." 
Set ōbjIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate("about:blank") 
objIE.document.parentwindow.clipboardData.SetData "text", strCopy 
objIE.Quit

wait 1
Setting.WebPackage( "ReplayType")=2
Set ōbj=createobject("wscrīpt.shell")
obj.sendkeys "{TAB}"
wait 2
obj.sendkeys "^v"
wait 1
Setting.WebPackage( "ReplayType")=1

6.使用Multi Test Manager添加文件时可以直接往里拖的哦。

7.函数：新建记事本，改名为public.vbs例：
   function ZHIRSS
ZHIRSS="RSS行业资讯分类维护"
end function
  使用语句executefile "d:\zhaopin\case\denglu.vbs"或设置QTP test/settings/resources/+函数目录

8.设置动作循环：右击/actiong call properties/run on all rows

9.设置动作允许被调用：右击/action properties/general/reusable action打勾

10.QTP与MTM连接：Tools/option/run/allow other mercury products to run...

11.插入已存在的动作1）insert/call to copy of action...复制可修改
                   2）insert/call to existing of action...复制不可修改

12.QTP报告自动跳出设置：Options>Run>View results when run session ends

13.判断表格是否存在：
If Browser("数商3.0后台管理系统").Page("Page").Frame("main_5").WebTable("标题").Exist then
reporter.ReportEvent 0,"pass","系统显示了所有的资讯列表！"
else
  reporter.ReportEvent 1,"fail","系统没有显示资讯列表！"
end if

14.获取表格行数：Browser("数商3.0后台管理系统").Page("Page").Frame("main_5").WebTable("标题").RowCount

15.注释脚本存在位置:qtp/dat/ActionTemplate.mst

16取本地文件名称Function ShowFileList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("scrīpting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name
      s = s &   "  "
   Next
   ShowFileList = s
End Function
wenjian=ShowFileList("D:\下载\本地下载1\")

17.取本地文件删除：del= DeleFile("D:\下载\本地下载1\")
Function DeleFile(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("scrīpting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
         f1.delete
   Next
End Function

18.sousuo2=Browser("Browser").Page("Page_4").Check (CheckPoint("2007-11-08 14:21"))
If (sousuo2)eqv(true) Then
    reporter.ReportEvent 0,"",""
else
   reporter.ReportEvent 1,"",""
End If

19.取参数化数据的行数，只在某几行进执行某些语句
row=datatable.GetSheet(3).getcurrentrow
If row = 3 Or row = 4 Then

20.单选框置灰zhihui=Browser("下载中心--新增下载文件").Page("下载中心--新增下载文件_4").WebRadioGroup("downloadType").GetROProperty("disabled")
If  zhihui=1 Then
End If

29.取树结构
Set Desc=descrīption.create
Desc("micclass").value="WebTable"
Set List=Browser("Browser").Page("Page").Frame("main").ChildObjects(Desc)
yuqi=List(0).GetROProperty("innertext")
msgbox yuqi
yuqi=split(yuqi," ")
msgbox yuqi(1)

30.关闭所有IE
SystemUtil.CloseProcessByName("iexplore.exe")

31.创建action template.
    当希望在每一个新建action时都增加一些头部说明，比如作者、创建日期、说明等，用action template
    来实现最简单快捷。
    方法：用记事本等文本编辑器，输入如下类似的内容：
          'Company: xxxx
          'Author: xxx
          'Product: xxx
          'Date: xx
         然后将文件保存为ActionTemplate.mst，并存放到QTP安装目录下的dat目录。

32.启动IE的语句：SystemUtil.Run "iexplore.exe", "http://www.***.com"
   关闭IE或其他程序的语句：SystemUtil.CloseProcessByName "app.exe"
     or  SystemUtil.CloseProcessByWndTitle "Some Title"

33.获取图片的名称
ObjectName = Browser(…).Page(…).Image("Find").GetProperty("Name")

34.检查某个对象是否存在，如果存在弹出对话框说明对象存在。
If Browser("Browser").Page("Page").Applet("login.html").JavaEdit("username").Exist Then
MsgBox("The object exists.")
End if

35.同步点
Browser("数商3.0制作平台").Dialog("Microsoft Internet Explorer").WaitProperty "visible", True, 120000
设置test/test settings/object synchronizationg timeout 一致

36.视图框显示为乱码时：调整原页面编码，在QTP/tools/change active screen

37.添加附件：
   Browser("**").Page("**").WebFile("filePath").Click
Browser("**").Dialog("**").WinEdit("文件名(N):").Set "D:\**.jpg"
Browser("下载中心--新增下载文件").Dialog("选择文件").WinButton("打开(O)").Click
添加相应的对象

38.在图片上右击添加：tools/web event recording configuration/custom settings
webedit/event/add/onblur,onchange,onfocus,onpropertychan,onsubmit
webdlement/event/add/onclick,onmousedown,onmouseup/listen always

39.数据执行保护
  方法一、右击我的电脑/高级/性能/设置/数据执行保护/为除下列选定程序之外的所有程序和服务启用DEP/添加被保护的程序。
  方法二、C:/BOOT.INT修改noexecute=alwaysoff

40.在图片上右击添加：tools/web event recording configuration/custom settings
webedit/event/add/onblur,onchange,onfocus,onpropertychan,onsubmit
webdlement/event/add/onclick,onmousedown,onmouseup/listen always

41.去掉前后空格
If trim(mingcheng)=trim(yuqi) Then

42.分类树问题解决
Set Desc=descrīption.create
Desc("micclass").value="WebTable"
Set List=Browser("Browser").Page("Page").Frame("main").ChildObjects(Desc)
yuqi=List(0).GetROProperty("innertext")
msgbox yuqi
yuqi=split(yuqi," ")
msgbox yuqi(1)


43.引用自定义环境变量
Environment.LoadFromFile "D:\询价\case\环境\huiyuan.xml"

44.环境变量有2种，一种是QTP的内置变量，一种是用户自定义的变量。内置变量是可以直接就可以用，自定义环境变量需要在菜单中选择“文件”——>“设置”——>“环境”，在变量类型中选择“用户自定义”,然后进行添加，可以对添加的变量全部导出，导出的文件为.xml格式的文档。既然可以导出，那么必然可以导入.xml文件，你可以在该对话框中的选中“从外部文件导入”，然后添加其文件路径即可。(当然这些操作都可以直接使用脚本来实现，如：Environment.LoadFromFile(“FileName”))
例如：在桌面建立一个Var.xml,如下
-<Environment>    //以这个开始的内部都是定义环境变量，直到以</Environment>结束
- <Variable>                           // 变量定义起始标识
                 <Name>aa</Name>               // 变量名称
                 <Value>11</Value>               // 变量值
        </Variable>                            // 变量定义结束标识
- <Variable>
                 <Name>bb</Name>
                 <Value>22</Value>
        </Variable>
- <Variable>
                 <Name>cc</Name>
                 <Value>33</Value>
              </Variable>
  </Environment>
然后导入本测试的环境变量文件中，在专家视图里编写下面的脚本代码：
Dim aParam3
aParam3=Environment.Value(“aa”)          // 调用环境变量
msgbox aParam3
运行测试，会输出”11”

45.在HTML编辑器中写入数据
用低水平录制写入编辑器过程，增加编辑部器前的对象，加入click事件，再用TAB
例如：
Browser("广告管理").Page("广告管理").WebEdit("descrīption").Click
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type mictab
Window("Microsoft Internet Explorer").WinObject("Internet Explorer_Server").Type "aaa"

46.Browser("creationtime:=1").close
   两个页面title相同无法识别时使用描述必编辑
    Browser("creationtime:=1").page(title:=****).WebEdit("name:=***").Set "***"
    或Browser("creationtime:=1").page(index:=1).WebEdit("index:=0").Set "***"

47.场景恢复：
   当某些提示框会在不定期时有提示时，如果自动点击确定或某些按钮
   1、tools/recovery scenaril manager,制作相应的提示框和要点击的按钮，并保存
   2、test/settings/recovery,添加刚保存的.qrs

48.输入验证码，先提示一个输入框，在输入框内输入验证码，点击[确定]，把输入的验证码框
   Dim a
  a = InputBox("输入名字")

49.对象库中对象名称不分为_2,_3...设置：tool/options/web/page/fram options/
     crate a new page test object for为different test object descrīptons
     crest a new frame. test object for为different test object descrīptions

50.验证测试输入框输入的最大允许字数功能的正确

QTP脚本代码中编写
Set aa=Browser("Browser").Page("Page").Frame("main").WebEdit("PayTypeName")
if konglen(aa,20) eqv true then
reporter.ReportEvent 0,"添加支付方式，支付方式输入框允许输入的最大字符功能正确",""
else
reporter.ReportEvent 1,"添加支付方式，支付方式输入框允许输入的最大字符功能错误",""
end if

此函数的功能为：验证测试输入框输入的最大允许字数功能的正确，函数可写在public.vbs中
Function konglen(duixiang,guifanshu)
duixiang.Click
wait 1
Setting.WebPackage( "ReplayType")=2
Set ōbj=createobject("wscrīpt.shell")
i=0
ōld="a"
xin="b"
while old<>xin
ōld=duixiang.GetROProperty("value")
i=i+1
wait 0,20
obj.sendkeys "1"
wait 0,20
xin=duixiang.GetROProperty("value")
wend
'msgbox i
If i-1=guifanshu Then
konglen=true
else
konglen=false
End If
     Setting.WebPackage( "ReplayType")=1
End Function

51.超时设置：Setting("DefaultTimeout") =1000000

52.共享对象库：Set App = CreateObject("QuickTest.Application")
App.Test.Settings.Resources.ObjectRepositoryPath = "path"

53.取颜色   browser("b").page("p").Object.currentStyle“：.color
54.显示行号设置：Tools- --> Editor Options...-->General-->Show line number，

55.不同数据库检查点手动SQL写法
QTP插入数据库检查点，手动指定SQL语句的写法。
一、SQL Server格式(本地无需安装SQL Server)
connectionstring(连接字符串):
1.本地没有创建数据源的方式
DRIVER=SQL Server;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名

实例：
DRIVER=SQL Server;SERVER=10.160.11.10;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJHLJUN;DATABASE=dcwork

2.本地已创建数据源的方式
DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名

实例：
DSN=LocalServer;UID=sa;PWD=sa;APP=Microsoft Office 2003;WSID=RJDCWORKTEST;DATABASE=dcwork

3.SQL语句实例(从数据库表HR_LANGUAGE_TYPE中，查询字段语言名称LANGUAGE_NAME，条件语言名称＝中文，按语言名称升序排序结果)
source(SQL语句):
SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME  FROM dcwork.dbo.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE  WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文')  ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME


二、DB2格式：(本地至少安装DB2 Run-Time Client Lite)
connectionstring(连接字符串):
1.本地没有创建数据源的方式
DRIVER={IBM DB2 ODBC DRIVER};UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=数据库名;

实例：
DRIVER={IBM DB2 ODBC DRIVER};UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK;

2.本地已创建数据源的方式
DSN=数据源名称;UID=用户名;PWD=密码;MODE=SHARE;DBALIAS=DCWORK;

实例：
DSN=DWCORKDB2;UID=db2admin;PWD=db2admin;MODE=SHARE;DBALIAS=DCWORK;

3.SQL语句实例
source:SQL语句
SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME  FROM DB2ADMIN.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE  WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文')  ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME


三、Oracle格式：(本地需要安装Oracle ODBC DRIVER)
connectionstring(连接字符串):
1.本地没有创建数据源的方式
DRIVER={Oracle in OraHome92};SERVER=数据库服务名;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;

实例：
DRIVER={Oracle in OraHome92};SERVER=DCWORK;UID=DCWORK;PWD=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;



2.本地已创建数据源的方式
DSN=数据源名称;UID=用户名;PWD=密码;DBQ=数据库名;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;

实例：
DSN=dcworkoracle;UID=DCWORK;DBQ=DCWORK;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;

3.SQL语句实例
source:SQL语句
SELECT HR_LANGUAGE_TYPE.LANGUAGE_NAME  FROM DCWORK.HR_LANGUAGE_TYPE HR_LANGUAGE_TYPE  WHERE (HR_LANGUAGE_TYPE.LANGUAGE_NAME='中文')  ORDER BY HR_LANGUAGE_TYPE.LANGUAGE_NAME



四， mysql
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.100;DATABASE=wp_blog;user id=zzz ; password=123456"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000;"
Rs.open sql,conn,1,3
If (not Rs.eof) then
Rs.MoveFirst
MsgBox Rs(0)
MsgBox Rs(1)
MsgBox Rs(2)
MsgBox Rs(3)
end if

Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
(转载于 http://bbs.51testing.com/thread-42921-1-1.html )

五. access

Set Conn = CreateObject("ADODB.Connection" )
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )


56.*.xml
Environment.LoadFromFile "D:\新建文件夹\a.xml"
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set Environment("HuiYuanB")

57、类似时间控件，不能手到输入的文本档
   1）手工添加对象，
   2）.object.value="2008-4-12"

    这时候我们需要考虑很多问题,登陆不是主要事件,忽略,当你进入order订单界面的时候,我们主要考虑动态变化的元素,主要有3个元素:flyfrom;flyto;以及确定了from和to之后的flights列表.

    根据分析我们可以发现,flyfrom永远是10取1,index从0-9,而flyto则是去掉被选定的from之后剩余的9取1,index从0-8;这两个动态元素比较容易控制.

    难点是flights弹出列表的记录数,这个记录数根据选定的from,to进行对应变化,也就是说有10的10次方种列表,我们无法写出简单的脚本对其进行自动读取.

    改变一下思路,我们事先不知道flights列表的index,那我们就添加额外步骤去确认每一次的index,只要我们控制好循环,就可以完成其遍历所有存在记录的目的.

以下是自动添加1000条相互不同记录的脚本

登陆部分（忽略）

Dialog("Login").WinEdit("Agent Name:").Set "abanban"
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure "47a173562d6104f53d107ca1be4ccb82c48020f1"
Dialog("Login").WinEdit("Password:").Type  micReturn

循环插入记录，重点部分，三层循环

'定义插入记录数，插入计数器

'InsertCount用来控制指定数量插入不同记录
InsertCount=1000
InsertNum=0

'取往来地点的最大值，固定，Maxfrom是flyfrom，Maxto是flyto
Maxfrom = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
Maxto=Maxfrom-1

'最外层循环，Fly from
For i=0 to Maxfrom-1

'第二层循环，Fly to 
 For j=0 to Maxto-1

'这一段用作取当前往来的所有可选航班，可变，在每一次往来变化中动态获得flightsnum，
'用来作为do while 循环的退出条件
  Window("Flight Reservation").WinButton("Button").Click
  Window("Flight Reservation").ActiveX("MaskEdBox").Type "1111111111"
  Window("Flight Reservation").WinComboBox("Fly From:").Select i
  Window("Flight Reservation").WinComboBox("Fly To:").Select j
  Window("Flight Reservation").WinButton("FLIGHT").Click

'取flightsnum，每确认一次from，to取一次

  flightsnum=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount

'因为该步骤只是取不断变化的flights数量，所有cancel掉

  Window("Flight Reservation").Dialog("Flights Table").WinButton("Cancel").Click

     k=0
'取flightsnum完成，初始化第三层循环计数器K

'第三层循环，按照from i， to j， 航班 k遍历，k不断自增到flightsnum－1

  Do While 1  '死循环，无限

   Window("Flight Reservation").WinButton("Button").Click

   Window("Flight Reservation").ActiveX("MaskEdBox").Type "1111111111"
   
   Window("Flight Reservation").WinComboBox("Fly From:").Select i
   Window("Flight Reservation").WinComboBox("Fly To:").Select j
   Window("Flight Reservation").WinButton("FLIGHT").Click
   Window("Flight Reservation").Dialog("Flights Table").WinList("From").Activate k

   Window("Flight Reservation").WinEdit("Name:").Set "aban"
            Window("Flight Reservation").WinEdit("Tickets:").Set RandomNumber(1, 10)

   Window("Flight Reservation").WinButton("Insert Order").Click

   
   Window("Flight Reservation").ActiveX("Threed Panel Control").WaitProperty "text", "Insert Done...", 10000

'计数器自增
   k=k+1

   InsertNum=InsertNum+1

'插入记录数到达指定数，退出
   If InsertNum=InsertCount Then
    ExitTest
   End If

'判断当前动态航班表flights是否遍历结束，结束则跳出第三层循环
   If flightsnum=k Then
    Exit do
   End If
   
     Loop

'第二层循环，下一个flyto

 Next

'第一层循环，下一个flyfrom

Next

Dim aa,bb,cc,dd

aa=Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").RowCount'先获得表格的行数

bb="200802-7501-024"'设置的变量

For i=1 to aa
    cc= Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").GetCellData(i,5)'得到表格中单元格的值
  msgbox cc
  If (bb=cc) Then'进行比较
   msgbox bb
   dd=i'获得变量所在的行
   Exit for
  End If
Next
msgbox dd
Browser("CYBRE - OREV Concluded").Page("CYBRE - OREV Concluded").WebTable("Date Received").ChildItem(dd,8,"Link" , 0).Click'根据变量所在的行去点击相应单元格中的链接。

'如果当前也没有，先在最外层增加多少页的循环，然后在内层的循环中，可以增加else，进行翻页。

摘要：产生期望的随机数来选取到动态的下拉菜单的值。
关键字：随机数；GetROProperty
        有网友在论坛上提出问题，在使用QTP中如何随机选取动态的下拉菜单。在此笔者总结了一些测试经验，利用51testing的登录界面（http://bbs.51testing.com/logging.php?action=login）作为测试页面进行讲解。
        首先我们拿登录页面中的  安全提问  这个下拉菜单作为测试对象。
         

        我们可以先录制一段选取下拉菜单的脚本。
        Browser("51Testing软件测试论坛 测试 | 软件测试\").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").Select "您个人计算机的型号"。
        备注：无

        这边有个技术处理就是使用#加数字来选择我们的下拉菜单。
        Browser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").Select "#2"
        备注：这个方法在论坛上也出现过，比较适合这个例子。

        下面我们要取得下拉菜单中选项的个数。
        Browser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").GetROProperty ("items count")
        备注：这边使用GetROProperty，应该算比较常见的，所以不多做解释。

        接下来是要个随机函数，参考帮助。
Randomize
x=RandomNumber (0,2)
        备注：这边是随机生成0-2之间的三个数字中的一个。

        我们可以把随机函数写成function，方便以后使用。
Function Get_Ran(i)
   Randomize
  Get_Ran=RandomNumber (0,i)
End Function
        备注：这边需要注意的就是使用了函数返回值

        最后我们把脚本整合起来
Function Get_Ran(i)
   Randomize
  Get_Ran=RandomNumber (0,i)
End Function

Get_Count=Browser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").GetROProperty ("items count")
Ran_Number=Get_Ran(Get_Count-1)
Browser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").Select "#"&Ran_NumberBrowser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").GetROProperty ("items count")
Browser("51Testing软件测试论坛 测试 | 软件测试").Page("51Testing软件测试论坛 测试 | 软件测试").WebList("questionid").GetROProperty ("items count")
        备注：需要注意的就是在下拉菜单选择的时候从#0开始计算的，所以随机数字从0开始，传入的值也需要减去1。

        题外话：这边主要是使用QTP自带的随机数字函数这个方法来实现随机选择下拉菜单的内容，其实这个随机数字可以开展到随机字符串。因为我们经常会有一些输入域的测试，有的就需255个字节，多的就更可怕，使用随机函数能大大减少我们的工作量。而下面这个例子是实现在abc这三个字母中随机取出来拼成字符串。
Function makestring(inputlength)
If IsNumeric(inputlength) Then
For I = 1 To inputlength
'you may add a random function here
A = Array("a","b","c")
Randomize
x=RandomNumber (0,2)
B = A(x)
makestring =makestring +B
Next
msgbox ("output the string:"&makestring )
else
msgbox ("error format:"&inputlength)
End If
End Function
Call makestring("8")

'intTotal_Page 总页数 intCur_Page 当前页
'************************************************************************
 Public Sub Pagination ()
    Reporter.ReportEvent micDone ,"调用 Pagination ()","Start"
 intTotal_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=total_page").GetROProperty("innertext")
    msgbox  intTotal_Page
 intCur_Page=Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).WebElement("html id:=cur_page").GetROProperty("innertext")
 msgbox  intCur_Page
    If (intTotal_Page=0and intCur_Page=0)or (intTotal_Page=1and intCur_Page=1) Then
   Reporter.ReportEvent micpass ,"分页","没有分页"
  End If
  if  (intCur_Page<intTotal_Page)  then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_go.gif").Click
   end if
  If  (intTotal_Page= intCur_Page) then
   Browser("name:="&strBrowserName).Page("title:="&strPageName).Frame("title:="&strFrameName).Image("file name:=pages_back.gif").Click
   end if 
    Reporter.ReportEvent micDone ,"调用 Pagination ()","End"
End Sub

    对鄙人来说，比较感兴趣它的check point，特别是里面的数据库测试点部分。

    案例：如果我们需要测试某一条选定的记录，那check point中的constant部分就可以实现了，这一点比较简单，不过实际测试过程中我们会遇到许多复杂的情况，比如Qtp附带的flight程序中页面显示的单条购票的总价Total值是否计算正确？

    分析测试需求，我们发现首先需要了解flight的数据库结构，我们能够在flights表中找到航班单价，能够在orders表中找到定票数量和航班的等级属性class（定义一等，商务，经济舱），数据库中没有保存total值，这时候我们就不能直接光用Database check point对数据库进行数据比较了，经过考虑，有2种思路可以实现测试需求。

    1.正向测试：使用Qtp录制一段插入记录的动作，然后修改脚本，参数化航班信息（random使数据更真实），在一个循环中不断插入记录，同时取下显示界面上的total值，再设置Database check point进行total值和从表中取出值计算后结果的比较。

    2.反向测试：利用原有已经存在表中的数据进行测试，录制利用记录号打开记录的动作，修改脚本，利用一个循环遍历所有存在记录，同时取下显示界面上的total值，再设置Database check point进行total值和从表中取出值计算后结果的比较。

    实行时的难点在于:

    1.Database check point的预期值和实际值都是动态变化的，需要参数化

    2.界面上的total取值中含有价格符号以及小数精度。eg：（￥3.00）

    3.反向中的循环次数会有意外（如果记录中存在删除的记录，则就会有记录号不连续的情况）

    最终考虑选取正向测试方案，参数化插入记录属性。

    在循环中取到total的text，使用Environment("total")= trim(CSng(mid(var,2)))来处理该值

    var是getroproperty的输出，mid去除￥符号，CSng转换成单精度数，trim去除多余的0（3.80会成3.8；2.00会成2）

    再设置一个环境变量（保存动态 select 命令）

    Environment("select")="select a.Ticket_Price*b.Tickets_Ordered*choose(b.class, 3, 2, 1) from Flights a, Orders b where a.Flight_Number=b.Flight_Number and b.Order_Number="&tordnum

    tordnum是从界面上取出的插入的order number，choose函数替换输出class，整句sql语句计算得出该条记录正确的总价。

    在循环插入的循环体最后插入Database check point，预期值参数化成Environment，选择total，然后再去资源选项resources中修改这个check point的source部分，将其也参数化成Environment，选择select，这样整个check point就会动态地进行循环判断。

    最终得到我们的测试报告，从result中查看结果！

第二部分

1、Datatable方法GetRowCount
   DataTable.GetSheet("Action1").GetRowCount   //获取总行数
  使用如：
  CountNum=DataTable.GetSheet("Action1").GetRowCount

2、Datatable方法SetNextRow
   DataTable.GetSheet("Action1").SetNextRow     //取得下一行
   datatable.setcurrentrow(n)   //取得某一行

3、Datatable方法getcurrentrow    //获得当前行数
   例如：datatable.getcurrentrow

4、获取datatable值
   4.1  DataTable("p_Text", dtLocalSheet)  //取得datatable中参数名称为：p_Text的值
   4.2  DataTable.GlobalSheet.GetParameter("p_Text").Value   //获取参数值方法和DataTable("p_Text", dtLocalSheet)一样
   例如：xname为变量，dim xname
   xname=DataTable("p_Text", dtLocalSheet)
   xname=DataTable.GlobalSheet.GetParameter("p_Text").Value

5、datatable.value("num")只在global形式下的一种省略形式；完整形式是:
datatable.value("num",dtlocalsheet)

-----向某一列的单元格赋值:
datatable.value("column_name",dtlocalsheet)="nanjing"

6、字符转换Cstr
   dim mm
   Cstr(mm)

7、获取对象属性名称用法:
GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）
           例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是
　　　　　　QTP为识别该对象创立的描述属性；
GetToproperty----从对象库中描述对象的属性，静态值
GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法

8、如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现=false
     error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
　　　if error_message<>(datatable.value("error_info"))then
         msgbox(error_message)
      end if
     browser("web_name").dialog("diaglog_name").close
  end if
这里总结了两点技巧：
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
    二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理

9、数据库检查点模块:
sub database_check
set con=createobject("adodb.connection")
con.open "Descrīption=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_
                 "PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
'Orocle方式:con.open "DRIVER={Oracle in OraHome92};SERVER=CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
set record=createobject("adodb.recordset")
sql="select*from ibm_one_table"
record.open sql,con
DO
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
num=num+1;
end if
record.movenext
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing
end sub

10、"is+*"类型function
isarray'是否是数组
isconnected'判断QTP是否连接到TD
isdate'是否是合法的日期类型
isempty'判断是否初始化
isNull'判断是否为空值
isNumeric'判断是否是数字型
isobject'判断是否一个功能对象
isready'判断设备是否准备就绪
isRootFolder'是否是根目录

11、for方法1,参数化时选择：dtLocalSheet
Dim CountNum
CountNum=DataTable.GetSheet("Action1").GetRowCount
For i=0 to CountNum-1
－－－－xunhuanti------
DataTable.GetSheet("Action1").SetNextRow    //使用SetNextRow方法
Next

12、for方法2，参数化时选择：dtLocalSheet
dim countNum
countNum = DataTable.GetSheet("Action1").GetRowCount
For i=1 to countNum
DataTable.GetSheet("Action1").SetCurrentRow(i)  //使用SetCurrentRow(i)方法
―――ddd―――
next
13、while方法1，参数化时选择：dtLocalSheet
Dim CountNum,i
i=1
CountNum=DataTable.GetSheet("Action1").GetRowCount
While i<=CountNum
－－－－－－xuhuanti---
DataTable.GetSheet("Action1").SetNextRow
i = i+1
Wend

14、while方法2，参数化时选择：dtLocalSheet
Dim CountNum,i
i=1
CountNum=DataTable.GetSheet("Action1").GetRowCount
While i<=CountNum

DataTable.GetSheet("Action1").SetCurrentRow(i)
－－－－xuhuanti－－－
i = i+1
Wend

第三部分

15、Do while方法
Dim i,RowCount '定义两个变量
i=0
RowCount=DataTable.GetSheet("Action1").GetRowCount '设置RowCount等于Action1中的行数。
msgbox RowCount
Do while i<rowcount
i=i+1 '第一次进入循环，执行这句后，i=1
'DataTable.GetSheet("Action1").SetCurrentRow(i)  这句话被我注释掉了，正确的写法应该是下面这样，分开写。

datatable.getsheet("Action1")
datatable.setcurrentrow(i)

－－－－xunhuanti－－－－
loop

16、取对象属性（Property）值

Dim usname
usname =Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").GetRoProperty("Value")   '获取对象属性（Property）值，如Property为Value
MsgBox usname

17、取得要删除的id，并删除
'url在查看该新增记录的信息页面对象中取得，所以录制的时候，登记，查看（修改），删除

Dim strUserid,id,strId

     id=Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_4").GetROProperty("url") '在url这个属性值中存在我需要删除记录的ID信息
  strId=Mid (id,instr(60,id,"=")+1)  '这一步是把需要的id值取了出来，例如：strId=Mid (id,instr(1,id,"=")+1)
     strUserid =strId  'strUserid是我要删除的记录前的复选框属性值当中的ID信息
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set "ON" 这样就把想删除的记录选中了。
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebButton("删 除").Click '这样就删除掉啦，呵呵

17.2通过数据库取得id值，并赋值进行删除

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtGlobalSheet)
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.address").Set DataTable("p_Text1", dtGlobalSheet)

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.unitTel").Set DataTable("p_Text2", dtGlobalSheet)

Dim xname,address,unitTel
xname=DataTable("p_Text", dtGlobalSheet)   '从datatable中取值
address=DataTable("p_Text1", dtGlobalSheet)
unitTel=DataTable("p_Text2", dtGlobalSheet)

Dim res,cmd,sql
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=HKORACLE;UID=USER22;PWD=ZJLH;DBQ=HKORACLE;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"
Cmd.CommandType = 1
'sql="select  addressid from address_list t where name ='"&xname&"'"
'sql="select  

在当今IT界没有数据库的话，大家想象一下，会是什么样子？

Mercury公司为QTP也提供了对数据库的数据进行操作的方法，同时也有数据库检查点的设置，我在测试过程中，就是使用SQL Server2000进行数据管理的。目前我还没有学习到Oracle（^_^，很惭愧）。

利用数据库来进行测试数据的管理有几个优点：1. 数据便于统一管理2. 方便修改、查询3. 便于进行对已经修改的数据进行数据库检查点设置来检查数据是否修改成功4. 脚本的可重用性提高 5. 脚本与数据分离，脚本的维护工作量减少

QTP的脚本调用数据库中的数据有2种方法：1. 利用用户DSN数据源 2. 直接连接数据库

1.       本地没有创建数据源的方式
DRIVER=SQLServer;SERVER=数据库IP地址;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=本地主机名;DATABASE=数据库名

2.       本地已创建数据源的方式
DSN=数据源名称;UID=用户名;PWD=密码;APP=Microsoft Office 2003;WSID=数据库的主机名;DATABASE=数据库名

注：虚线框中的是引用别人的

       你可以建立一个DBFunction.vbs文件，将你编制的数据库调用的函数（如：连接、查询、修改。。。）全部放在这个文件中（建议：DBFunctions与你的公共函数不要放在一起），然后通过QTP引用资源文件，在菜单中选择“文件”——>“设置”——>“资源”，然后将你的函数库文件添加到这个关联函数库文件下。这样你的脚本就可以使用这些函数了。

       当然，有人不愿意这样做。还有一个方法，就是在每个脚本的开头使用下面的脚本代码引用你自定义的函数库文件：

       ExecuteFile “FileName”  //例如：ExecuteFile “D:\Functions\DBFunction.vbs”

       当数据库中的数据需要修改时，调用完修改数据库数据的函数后，在此函数后的一行脚本脚本可以添加数据库检查点来检查你刚才修改的数据是否成功，数据库检查点的方法见：QTP的帮助文档。

OK，这样就设置完成了数据库的数据驱动方式

我觉得Mercury公司考虑事情很周到，连环境变量的功能也添加进去了（不知道我高兴是不是有道理，目前的知识面不是很广，大家不要见怪啊）

环境变量的的适用范围就是本测试，本测试中的所有操作都可以调用。

环境变量有2种，一种是QTP的内置变量，一种是用户自定义的变量。内置变量是可以直接就可以用，自定义环境变量需要在菜单中选择“文件”——>“设置”——>“环境”，在变量类型中选择“用户自定义”,然后进行添加，可以对添加的变量全部导出，导出的文件为.xml格式的文档。既然可以导出，那么必然可以导入.xml文件，你可以在该对话框中的选中“从外部文件导入”，然后添加其文件路径即可。(当然这些操作都可以直接使用脚本来实现，如：Environment.LoadFromFile(“FileName”))

例如：在桌面建立一个Var.xml,如下

-<Environment>    //以这个开始的内部都是定义环境变量，直到以</Environment>结束

然后导入本测试的环境变量文件中，在专家视图里编写下面的脚本代码：

Dim aParam3

aParam3=Environment.Value(“aa”)          // 调用环境变量

msgbox aParam3

运行测试，会输出”11”

       OK，完成环境变量的初级知识的学习。

Left 函数
        返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。

语法

Left(string, length)

Left 函数的语法有下面的命名参数：

部分     说明
 
string  必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。
 
length  必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
 

说明

欲知 string 的字符数，使用 Len 函数。

注意    LeftB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是要返回的字符数。

Mid 函数
        从字符串中返回指定数目的字符。

Mid(string, start[, length])

参数

string

        字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。

Start

        string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。

Length

        要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。

说明

        要判断 string 中字符的数目，可使用 Len 函数。

        下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：

Dim MyVar

MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "scrīpt"。

注意   MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。

Len 函数
        返回字符串内字符的数目，或是存储一变量所需的字节数。

Len(string | varname)

参数

string

        任意有效的字符串表达式。如果 string 参数包含 Null，则返回 Null。

Varname

        任意有效的变量名。如果 varname 参数包含 Null，则返回 Null。

说明

        下面的示例利用 Len 函数返回字符串中的字符数目：

Dim MyString

MyString = Len("VBscrīpt") 'MyString 包含 8。

注意   LenB 函数与包含在字符串中的字节数据一起使用。LenB 不是返回字符串中的字符数，而是返回用于代表字符串的字节数。

Right 函数
        从字符串右边返回指定数目的字符。

Right(string, length)

参数

string

        字符串表达式，其最右边的字符被返回。如果 string 参数中包含 Null，则返回 Null。

Length

        数值表达式，指明要返回的字符数目。如果为 0，返回零长度字符串；如果此数大于或等于 string 参数中的所有字符数目，则返回整个字符串。

说明

        要确定 string 参数中的字符数目，使用 Len 函数。

        下面的示例利用 Right 函数从字符串右边返回指定数目的字符：

Dim AnyString, MyStr

AnyString = "Hello World"      ' 定义字符串。

MyStr = Right(AnyString, 1)    ' 返回 "d"。

MyStr = Right(AnyString, 6)    ' 返回 " World"。

MyStr = Right(AnyString, 20)   ' 返回 "Hello World"。

注意   RightB 函数用于字符串中的字节数据，length 参数指定返回的是字节数目，而不是字符数目。

InStr 函数
        返回某字符串在另一字符串中第一次出现的位置。

InStr([start, ]string1, string2[, compare])

参数

start

        可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare，则必须要有 start 参数。

string1

        必选项。接受搜索的字符串表达式。

string2

        必选项。要搜索的字符串表达式。

compare

        可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。

设置

        compare 参数可以有以下值：

常数
 值
 描述
 
vbBinaryCompare
 0
 执行二进制比较。
 
vbTextCompare
 1
 执行文本比较。
 

返回值

InStr 函数返回以下值：

如果
 InStr 返回
 
string1 为零长度
 0
 
string1 为 Null
 Null
 
string2 为零长度
 start
 
string2 为 Null
 Null
 
string2 没有找到
 0
 
在 string1 中找到 string2
 找到匹配字符串的位置
 
start > Len(string2)
 0
 

说明

下面的示例利用 InStr 搜索字符串：

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"   ' 要搜索的字符串。

SearchChar = "P"   ' Search for "P".

MyPos = Instr(4, SearchString, SearchChar, 1)   ' 在位置 4 进行的文本比较。返回 6。

MyPos = Instr(1, SearchString, SearchChar, 0)   ' 在位置 1 进行的二进制比较。返回 9。

MyPos = Instr(SearchString, SearchChar)   ' 默认情况下，进行的是二进制比较（省略了最后的参数）。返回 9。

MyPos = Instr(1, SearchString, "W")   ' 在位置 1 进行的二进制比较。返回 0（找不到 "W"）。

注意   InStrB 函数使用包含在字符串中的字节数据，所以 InStrB 返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

LTrim、RTrim与 Trim 函数
        返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。

LTrim(string)

RTrim(string)

Trim(string)

string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。

说明

        下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：

Dim MyVar

MyVar = LTrim("   vbscrīpt ")   'MyVar 包含 "vbscrīpt "。

MyVar = RTrim("   vbscrīpt ")   'MyVar 包含 "   vbscrīpt"。

MyVar = Trim("   vbscrīpt ")   'MyVar 包含 "vbscrīpt"。

Rnd 函数
返回一个随机数。

Rnd[(number)]

number 参数可以是任意有效的数值表达式。

说明

        Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：

如果 number 为
 Rnd 生成
 
小于零
        每次都相同的值，使用 number 作为种子。
 
大于零
        序列中的下一个随机数。
 
等于零
        最近生成的数。
 
省略
        序列中的下一个随机数。
 

        因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。

        在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。

        要产生指定范围的随机整数，请使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

        这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。

注意   要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

Randomize 语句
初始化随机数生成器。

语法

Randomize [number]

        可选的 number 参数是 Variant 或任何有效的数值表达式。

说明

        Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。

        如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

要在一列姓名列表中找出所需要的人，并在其前面勾选上。录制的脚本直接按row来数行数
'~X$K I,[2D\Dgz138711
(padb&I+BCl2a/|138711Browser("AA").Window("AB-Web").Page("AB").WebCheckBox("all_2").Set "ON"
'}p+f0dKq138711Browser("AA").Window("AB-Web").Page("AB").WebCheckBox("all_3").Set "ON"
ha Fl
RA)Z:{138711
Kuq%H$J3|/e138711这也能解决问题，但存在一个潜在隐患：如果姓名列表发生变动，脚本就不正确了。
2V ]%gk mQ13871151Testing软件测试网"n7~'O7F spWht
我想一劳永逸。如何能够让QTP自动寻找到目标姓名行，并在其前面完成勾选动作？
5a~_^o2F138711
yZ g Z+z138711参见附图：

我的思路是：
DifIWu |1387111. 按照innertext属性来找到对应的行，再在对应的复选框里勾上
?1s4}Uc
hDe X d1387112. 或者直接按复选框的outerhtml属性来查找、选择。 但spy可以看到outerhtml属性，选到对象库里就看不到这项属性了，不知能否办到51Testing软件测试网)w,]#\}4\.t;Z't

9Hc/wF)wQ!A138711***********************************************************51Testing软件测试网4gH$M-q$I
补充1:
z#~7LTnCfR138711***********************************************************51Testing软件测试网r^H#fe-~%p
WebCheckBox的value属性是按排序从0递增的
_!{*CY"r TJ13871151Testing软件测试网I.p/znIn
另: 在我的环境里用Highlight in Application查看,WebCheckBox是在WebElement里面的.这两个对象的outerhtml属性有一段是相同的,51Testing软件测试网.^;r^,P!}$~.RF2w
WebChekBox的outerhtml属性:51Testing软件测试网#Xd&Ul G[
<INPUT type=checkbox value=11 name=all is_used="1" user_name="aaron.gao">51Testing软件测试网4Oy&AD6I.bW
WebElement的outerhtml属性:
!o*t_ r,tEP8@A138711<TD><INPUT type=checkbox value=11 name=all is_used="1" user_name="aaron.gao"> aaron.gao </TD>
+l nwR2R j,g4z*O1r138711而且这段里包含有我需要的user_name51Testing软件测试网s9Ka!yfp
不晓得能否利用到这一点51Testing软件测试网4C,_K3[!c?

GI"t&v^JCkCx138711是否可以将outerhtml取出，用正则表达式判断用户名是否在里面，是则选中??51Testing软件测试网8C;^~(?$?(n4_8iy$K:t

!fxIB*{:DN13871151Testing软件测试网.{a$U pZ:w }
***********************************************************
v];f;JBH7seUi|p138711补充2:
N X0t5w@N-]3xVG138711***********************************************************51Testing软件测试网xw)F!}(N{i1M+w

,q p:G"a H`&^H138711又有一个思路,名单就是个只有一列的表,把这个表的内容取出来查,这样比较好实现.
u4f^\ h138711
_
I&s Z)l&Q;\+Y4X138711还有,把 WebCheckBox 做为 WebElement 的 ChildItem去操作,似乎可以解决两者关联问题.
pf k"?%C Gc\13871151Testing软件测试网4gD6p5f`sbl
不过,这里要设计到VB scrīpt循环语句, ChildItem, 循环次数的设定……51Testing软件测试网w8DCP/]"V
51Testing软件测试网\1{9y!G,I;_E`
待我研究下----真给逼上梁山了
?C+`Z9q,Dy9]3R:]138711
*Tf$z
s _o4k(K"]138711***********************************************************
k#rp#i:` L~i138711解答1:
i%_"a }#r0d&D138711***********************************************************51Testing软件测试网/HOJ2h c"x
Z
51Testing软件测试网v _5U1Z*ws{%_
吼吼!!!问题解决了!!!
Iv [ZMm K8[P13871151Testing软件测试网+MsV];h,ON;|"M^
row = Browser("AA").Window("AA-Web").Page("AB").WebTable("ALL").RowCount51Testing软件测试网(z.\&C0q'f8j
R#|
For i=1 to row -1 51Testing软件测试网 L `}a:Y
    If  Browser("AA").Window("AA-Web").Page("AB").WebTable("ALL").GetCellData(i, 1) = " sheila.shi "    Then51Testing软件测试网 iGXtP_(ND
  Browser("AA").Window("AA-Web").Page("AB").WebTable("ALL").ChildItem(i,1,"WebCheckBox",0).Set "ON"
7E_Kx4S#y138711(
F:OXte138711上句也可换为:
@7M^QK+y'Y/p138711Set ōbj = Browser("AA").Window("AA-Web").Page("AB").WebTable("ALL").ChildItem(i,1,"WebCheckBox",0)
$nK@0Ru138711obj.Set "ON"
y
XFB}9A6?@138711)
ZP.P!z Mm138711    Exit for
]@'YL/l5p+h138711    End If
+l'T
EB0Wc138711Next51Testing软件测试网-Op/P6D m _,I7SQ
51Testing软件测试网J _x-?7U;wvAd3?
下面就是对" sheila.shi "参数化了.51Testing软件测试网 k$Dr Y*a$zq$o
参数化就用这句：51Testing软件测试网#z:^+u9W.^*B$J2z4{'~4Z

cS9VhC138711If  Browser("AA").Window("AA-Web").Page("AB").WebTable("ALL").GetCellData(i, 1) = DataTable("ConfCall_All", dtLocalSheet)    Then51Testing软件测试网8Av'RHjZ7?:W

b5An'U,H9P#HL138711注意:
*Rt+M UrZ!T#I1387111. WebTable("ALL")必须是包含且只包含所有WebElement的表格, 注意和其他WebTable的区分.
!D
u2[2U S%l5Oh1N }1387112. If语句里=后的 " sheila.shi " 要注意引号里的空格, 是否该有空格可以通过table checkpoint里的configure value来确定.如果和checkpoint里的不一致会找不到目标对象.本环境中引号与姓名之间各有一个空格，参数化后EXCEL表里姓名前后也要各留一个空格。8晓得怎么会这样。
LvC8PS!w a6]1K13871151Testing软件测试网W|h9B/i#}
51Testing软件测试网%WGAh)dT;bJ/Pp x

4?*?ho~%}5d'a138711这是最后一个思路的解决办法. 前面的思路似乎也是可行的.
*Lcl9{0Sm/`W P138711
0?9cI4}4X}&? M_138711哪位高手能给出前面思路的解法?

1 生产随机数列
第一种方法
randomize'更新反回的数据
funcation rand(k,n)
n="int((k-1)*rnd+1) rand=n
end funcation
第二种方法
n="randomnumber.value(1,255)

2 当运行到表中的某一行，自动导出表中的所有数据
row=datatable.getcurrentrow
if row="5" then
  datatable.export("d:\data.xml")
end if

3 参数化密码
webedit("txtpass").setsecure"sdsdf...."
如果参数化密码，可以直接在数据表中写入未加密的密码，它会自动识别，即不用把setsecure改为set

4　如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证
if browser("web_name").dialog("dialog_name").exist(1) then'如果不出现="false     

error_message=browser("web_name").dialog("diaglog_name").static("用户密码错误!".getRoproperty("text")
　   if error_message<>(datatable.value("error_info"))then 
         msgbox(error_message) 
     end if
     browser("web_name").dialog("diaglog_name").close 
end if
这里我总结了两点技巧：
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性
     二是：如果对于提示信息比较长的，可以用mid(error_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理

5 datatable.value("num")只在global形式下的一种省略形式；完整形式是:
datatable.value("num",dtlocalsheet)
-----向某一列的单元格赋值:
datatable.value("column_name",dtlocalsheet)="nanjing"
-----取得某一行具体值：
datatable.setcurrentrow(n)
msgbox(datatable.getsheet("global").getparameter("column_name").Rawvalue)
或者kk=datatable.Rawvalue("column_name","action1")
----在run-time时，动态添加表格与数据
kk=datatable.addsheet("sheet_name").addparameter("column_name","value").name;

7 wintreeview一些操作
选择一个条目:wintreeview.select(item)'根是0
根的名称：wintreeview.getitem(0)

8 数据库检查点模块:
sub database_check
set con="createobject(""adodb.connection")
con.open "Descrīption="IBM_ODBC;DRIVER=SQL" Server;SERVER="IBM;UID=sa;""&_
                 "PWD="123456;APP=Quick" Test Pro;WSID="IBM;DATABASE=IBM_table""
'access方式:con.open "DRIVER="{Microsoft" Access Driver (*.mdb)};DBQ="d:\test.mdb""
'Orocle方式:con.open "DRIVER="{Oracle" in OraHome92};SERVER="CESHI;UID=CND_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;

EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BA

M=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;""
set record="createobject(""adodb.recordset")
sql="select*from ibm_one_table"
record.open sql,con
DO
if(record("ibm_table_column")="kai")then'//查找表格中有多少kai
num=num+1;
end if
record.movenext
loop until record.eof="true record.close
set record="nothing con.close
set con="nothing end sub

9 换行符
vbcr----chr(13)回车符// vblf----chr(10)换行符 
vbcrlf----chr(13)+chr(10)结合//type(chr(13)就相当于按了一上键盘上的enter

10  Run from step有两种方式：
在Keyword View模式会从本步骤运行到所有action结束
在expert view模式仅会将本action运行结束

11 由于对象属性原因，无法识别对象
-----对于对象属性是变化的，可以参数化/或者用正则表达式
-----报匹配多个对象错误，可以spy查看对象，添加一个该对象另一个唯一标识属性
-----有时可以删除对象的变化的属性来解决识别问题
------对于多个完全相同的对象，可以采用添加index,location,createtime等特殊属性来识别
　　(index:按照程序源码，绘制对象的先后标识对象，所以与其它相同对象是相互依赖，当其它对象发生
　　变化后，原先的所有对象index属性要发生变化，开始是0；如index:="0;         location：根据对象的位置进行确定，从上到下，从左到右;
　　CreateTime：按照对象被浏览器打开的先后标识对象)
------另外换一种思维方式，采取等效的方法；比如用键盘代替鼠标或用操作系统本身特性去解决问题

12  对系统文件的操作
-------从系统的文件中获取信息及删除文件
  get_file_infor("c:\she.mpg")
   function get_file_infor(url)
    dim fso,f
    set fso="createobject(""scrīpting.filesystemobject")
    set f="fso.getfile(url)"
    f.name:f.size:f.type:f.datacreated'///获取文件信息
    fso.deletefile(url)'/////删除文件
   end function
--------获取文件夹里所有文件信息
get_folder_infor("c:\kai")
function get_folder_infor(folder)
dim fso,f,f1,n
set fso="createobject(""scrīpting,filesystemobject")
set f="fso.getfolder(folder) set fc="f.files for each f1 in fc
select case f1.name
case"kai.mpg","she.mpg","dd.mp3"'//检查文件夹里是否含有这些文件
end select
next
end function

13   等待某个对象出现方法
y="......waitproperty(""visible",true,10000)

14   防程序中断方法
On error resume next
On error goto handle

15  数组的应用:
name="array(1,2,""aa","bb")
name(2)="aa"

16  正则表达式应用模板
进行日期YYYY-MM-DD的格式检查　:
Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' Create variable.
  Set regEx = New RegExp         ' Create a regular expression.
  regEx.Pattern = patrn         ' Set pattern.
  regEx.IgnoreCase = True         ' Set case insensitivity.
  regEx.Global = True         ' Set global applicability.
  Set Matches = regEx.Execute(strng)   ' Execute search.
  For Each Match in Matches      ' Iterate Matches collection.
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function
date_pattern="^((((19|20)(([02468][048])|([13579][26]))-02-29))|((20[0-9][0-9])|(19[0-9][0-9]))-((((0[1-9])|(1[0-2]))-((0[1-9])|(1\d)|(2[0-8])))|((((0[13578])|(1[02]))-31)|(((01,3-9])|(1[0-2]))-(29|30)))))$"
result_message=RegExpTest(date_pattern, inputbox("请你输入要检查的时间："))'用其它正则表达式更改此处
Select case result_message
Case ""
         msgbox("你输入的日期格式与标准不匹配")
case else  MsgBox(result_message)
end select

17   返回一个字符串在另一字符串中的位置
instr(string1,string2)

18   有时回放出现找不到对象时，可能不是由于你的代码问题，而是由于你的操作系统等设置问题；
举例说明1：
比如：你录制一个选择磁盘中的文件动作
会录制为：
.winlistview("  ").drap 46,99
.winlistview("  ").draponitem "she.mp3"
下次录制的时候，如果你的系统文件改为不显示扩展名，下次执行的时候，QTP就找不到she.mp3，只能找到she;
举例说明2：
有时由于不同操作系统以及不同的ie，导致有些窗口不能识别，比如在2000下弹出的网页对话框的标题是：
“web对话框",而在2003上是”网页对话框"

19  "is+*"类型function
isarray'是否是数组
isconnected'判断QTP是否连接到TD
isdate'是否是合法的日期类型
isempty'判断是否初始化
isNull'判断是否为空值
isNumeric'判断是否是数字型
isobject'判断是否一个功能对象
isready'判断设备是否准备就绪
isRootFolder'是否是根目录

20 Action之间的参数传递
例如:在Action1中，有如下代码:
out_str="This is out_string"
RunAction "Action2",oneIteration,out_str
在Acton2中，在其step->Action Properties中的，input参数栏，加入out_str后,
msgbox(parameter("out_str"))，就能正确显示参数了　

21 Wscrīpt.Shell的一些应用
set WshShell ="CreateObject(""Wscrīpt.Shell")
WshShell.SendKeys "{ENTER}"　　　　　'模拟键盘进行操作
WshShell.AppActivate "Calculator"             '启动应用程序

22 获取对象属性名称用法:
GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是QTP为识别该对象创立的描述属性；
GetToproperty----从对象库中描述对象的属性，静态值
GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法

23 FireEvent的使用可以对一个对象进行更复杂的操作
如:FireEvent("onfocus")   '使一个控件获取焦点
     FireEvent("ondblclick")  '实现双击/也可以在事件设定中针对该对象事件响应　　

24 模板的应用
-----新建一个文本，输入一些新建Action时常包含的信息，然后保存为ActionTemplate.MST文件,
　并复制到QTP/dat目录下；这样每次新建action都会包含固定的信息了;
例如:
'-------------------脚本说明---------------
'产品版本:      __Build(  )
'测试员:
'编写日期:
'测试功能:
'脚本类型:
'被测试对象初始状态:
'进展程度:
'基本思路:
'主要功能函数:
'历史修改:
'没解决的问题:
'--------------------脚本内容-------------

25 在对象库中，两个对象有时不能通过更改属性或命名来达到两个对象完全一致的替换；
在web-mod项目中，我在对象库里添加了一个自动含有index标识属性的对象，然后每次通过SetToproperty来改变
index值，对对象进行数据驱动，使其操作另一个对象，但脚本始终操作原先index属性值的对象;后来，把该对象
删除掉，重新添加一个不自动含有index标识属性的该类对象，然后，手工添加，index标识属性，后来脚本能正常工作了，可见两次的对象属性完全一致，但形成方式不一样，导致的结果往往也不一样;

26 childobject的应用
childobject可以返回界面上满足条件的对象集合，而且与对象库里是否有这些对象无关，这就可以简化对象库；
返回的对象集合的count方法可以返回对象个数，这就可以通过下标对单个对象进行操作；在出现index标识对象时
可以进行运用
如:Set m_WinCheck="Descrīption.Create()       m_WinCheck("nativeclass").Value="Button"
      set All_WinCheck="Window(""").Dialog("").Childobject(m_WinCheck)
      n="All_WinCheck.Count()      for i="0" to n-1
      All_WinCheck(i).Set "ON" 
      next

例一:(来自测试者家园)

注明:设置拆分action，选择菜单功能split Action ．选择independent of each other为并列的两个action．选择Nested为主次的两个action.

全部录制完所有action后，在main action中代码如下：

RunAction "login", oneIteration51Testing软件测试网
rTM5I*wF6]n
RunAction "new order", oneIteration
"Jilz(EaJ138711RunAction "open order", oneIteration51Testing软件测试网i!u N1S7L9Cs8h
RunAction "logout", oneIteration

其中RunAction是一个调用action的函数，后面跟action名和要传递的参数．

说明：

RunAction ActionName, [Iteration , Parameters]51Testing软件测试网&O.h5O-o,^`Irz

在这里我再引入action之间参数传递．在login action中选择菜单选项，在action properties中设置两input参数分别先后为username 和　passwd.

这样我们就通过RunAction "login", oneIteration,"mercury","mercury"　　把这两个变量分别传给username 和passwd.这边的变量先后关系分别依次对应了action properties里input参数的先后关系．

这样我们就可以在login action中调用这两个变量了．

Dialog("Login").WinEdit("Agent Name:").Set Parameter("username")51Testing软件测试网$m&f"M)_s Q? U~
Dialog("Login").WinEdit("Password:").Set Parameter("passwd")
SmZ*X1Xs138711Dialog("Login").WinButton("OK").Click
a5p@ \]{)ha#k138711

下面再来实现从一个action中传出一个变量给另一个action.

那么我们在new order　中选择菜单选项，在action properties中设置一个output参数为orderno

Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:")

通过上面这句话把生成的定单号的值存放到这个ouput参数中

RunAction "new order", oneIteration,order
nF4h"]$NE:g138711RunAction "open order", oneIteration,order

再靠main　action中这个order变量来传递，这个变量正好对应着new order里的output参数．从new order中传出来，再把这个变量传给open order．当然在open order中还要同样设置input参数．和这个order变量对应起来．

这样就可以在open order中使用这个变量了．

Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Parameter("orderno")

当然其实两个action之间传递参数还可以更简单点．比如一个脚本中　datatable和环境变量都是全局的，在一个脚本中的任何action都能使用．所以可以借用这两个来传递．

通过这个例子最主要讲的是两点，拆分action和action之间的参数传递．