发点有质量的贴——QTP自定义检查点

chipucca

楼主你好，我想请问一下，在你代码里面的obj是怎么定义的呢？我测试了一下你的代码总是出错，我的是obj = Window("Flight Reservation").Dialog("Flight Reservations").Static("The information has changed.").GetROProperty("text")     谢谢！在线等

chipucca

非常感谢您的回复，但我这里还有有问题，其实我的目的就是设置一个TextCheckpoint,strText是期望结果，obj是被测对象。代码如下:

Dim a
Dim b

Function Check_Objects_Text(obj,strText)
   Dim i
   Dim Cnt
        strText = "The information has changed.Save changes?"
        obj = Window("Flight Reservation").Dialog("Flight Reservations").Static("The information has changed.")
                txtArray = Split(obj.GetVisibleText(),vbCrLf,-1,1)
    Cnt = UBound(txtArray)  '取数组上限
        For i = 0 to Cnt
                If   Trim(txtArray(i)) = Trim(strText) Then
                        'Reporter.ReportEvent micPass,"检查字符串是否一致","界面中包含字符串："&strText
                                                Msgbox("Pass")
                        Exit Function           
                End If
        Next
                        'Reporter.ReportEvent micFail,"检查字符串是否一致","界面中不包含字符串："&strText
                                                Msgbox("Fail")
End Function

a = obj                   'Window("Flight Reservation").Dialog("Flight Reservations").static("The information has changed. Save changes?").GetROProperty("text")
b = strText               '"The information has changed. Save changes?"   

Check_Objects_Text a,b

报的错是：Object doesn't support this property or method

chipucca

谢谢lantianwei 的积极回复。后来我没有用Split函数来通过比较每个字母是否相同来判断两个字符串是否相同，而是用strComp函数来直接比较两个字符串。现将我的代码复制如下，测的是QTP自带的小飞机程序，供大家指点：
Dim a,b
a = Window("Flight Reservation").Dialog("Flight Reservations").Static("The information has changed. Save changes?").GetROProperty("text")
b = "The information has changed. Save changes?"   
Check_Objects_Text a, b
Window("Flight Reservation").Dialog("Flight Reservations").WinButton("No").Click

Function Check_Objects_Text(realText,strText)
   Dim Mycomp
   strText = "The information has changed. Save changes?"
   Mycomp = StrComp(realText, strText, 1)
   msgbox strText
   msgbox realText
  If Mycomp = 0 Then
        Reporter.ReportEvent micPass,"检查字符串是否一致","界面中包含字符串："&strText
  else
    Reporter.ReportEvent micFail,"检查字符串是否一致","界面中不包含字符串："&strText
   End If
End Function