51Testing软件测试论坛

标题: 关于“Filter”如何使用的疑问。 [打印本页]

作者: lovetest6 时间: 2005-5-24 11:01
标题: 关于“Filter”如何使用的疑问。

Dim TestCheck
Dim TestRun (5)
FindText = "SQLException"
TestRun(0) = "java.sql.SQLException: JZ0C0: Connection is already closed. "
TestRun(1) = "<html><head>"
TestRun(2) = "Filter command"
TestRun(3) = "Foxed, Stumped and stuck"
TestRun(4) = "<body>"
TestRun(5) = "Anyone?"
TestCheck = Filter(TestRun, FindText, true)
If UBound(TestCheck) >= 0 Then
Reporter.ReportEvent 1, "页面状态", "页面'" & TestCheck(0) & "'中存在 " & FindText & " 无法访问."
else
Reporter.ReportEvent 3, "页面状态", "正常, " & FindText & " 字符串."
End If

复制代码

我们是不是可以用类似以上的代码，去判断页面是否现实正确呢？
我的页面保存的时候页面中会显示错误信息。
基本都是在第一行就显示了，是否可以取到TestRun的数组里面。然后一起判断？

作者: QA_BAY 时间: 2005-5-24 11:16
你可以改一下.UBOUND
If UBound(TestCheck,1) Then
Reporter.ReportEvent 1, "页面状态", "页面'" & TestCheck(0) & "'中存在 " & FindText & " 无法访问."
else
Reporter.ReportEvent 3, "页面状态", "正常, " & FindText & " 字符串."
End If

作者: lovetest6 时间: 2005-5-24 11:17
另外谁给看看QTP_plus中的
EnumerateApplication.vbs
怎么用？

C:\Program Files\Mercury Interactive\QuickTest Plus\Main\Usefull_Scripts\Most_out_of_TO\..\..\..\ScriptsAndTests\EnumerateApplication.vbs

作者: lovetest6 时间: 2005-5-24 11:20
呵呵有道理，If UBound(TestCheck,1) Then

作者: QA_BAY 时间: 2005-5-24 11:32

Originally posted by lovetest6 at 2005-5-24 11:20 AM:
呵呵有道理，If UBound(TestCheck,1) Then

这样两个函数都可以用起来,
不错,今天学到一点!
有问题多多提出来!
函数很多都没有用到呢!

作者: someone5 时间: 2005-5-24 13:07
又学到了一点东西^_^

作者: lovetest6 时间: 2005-5-24 13:52

Originally posted by QA_BAY at 2005-5-24 11:32 AM:

这样两个函数都可以用起来,
不错,今天学到一点!
有问题多多提出来!
函数很多都没有用到呢!

两个函数？？？应该事两个参数吧？呵呵。

作者: QA_BAY 时间: 2005-5-24 15:06
写错了,
够细心!

作者: someone5 时间: 2005-5-24 15:54
是做测试的料，呵呵

作者: lovetest6 时间: 2005-5-24 16:41
哈哈，不要挖苦偶哦，呵呵：）

[ Last edited by lovetest6 on 2005-5-24 at 16:42 ]

作者: hxf 时间: 2007-2-9 13:52
谢谢了，我也又学了两个函数

作者: htot05 时间: 2007-2-9 15:51
以前用过这两个函数,但不够深入,现在又加深了一些理解

顶起~!

作者: Coffey111111 时间: 2007-2-13 17:06
请问UBound(TestCheck,1) 函数是指什么意思啊？可否解释一下呢？sdlkfj5

作者: htot05 时间: 2007-2-14 10:57
取TestCheck这个数组的一维大小

作者: Coffey111111 时间: 2007-2-14 11:55
UBound(TestCheck,1)是不是用来判断TestCheck数祖是不是一维的呀？还是判断是不是超过一维的啊？sdlkfj5

作者: Coffey111111 时间: 2007-2-14 11:59
Dim TestCheck
Dim Tests
Dim TestRun (5)

FindText = "SQLException"

TestRun(0) = "java.sql.SQLException: JZ0C0: Connection is already closed. "
TestRun(1) = "<html><head>"
TestRun(2) = "Filter command SQLException"
TestRun(3) = "Foxed, Stumped and stuck"
TestRun(4) = "<body>"
TestRun(5) = "Anyone?"

TestCheck = Filter(TestRun, FindText, true)
msgbox TestCheck(0)
msgbox TestCheck(1)

Tests=UBound(TestCheck,1)
msgbox Tests
If Tests Then
Reporter.ReportEvent 1, "页面状态", "页面'" & TestCheck(0) & "'中存在 " & FindText & " 无法访问."
else
Reporter.ReportEvent 3, "页面状态", "正常, " & FindText & " 字符串."
End If

我改了下脚本，然后运行是Tests为1，走 Reporter.ReportEvent 1, "页面状态", "页面'" & TestCheck(0) & "'中存在 " & FindText & " 无法访问." 脚本，但是结果出来是错误的

作者: htot05 时间: 2007-2-14 13:29
你理解错了,LZ的用意就是让这个脚本判断页面访问是否正常,如果页面访问出错的话,Filter(TestRun, FindText, true)就能取到值放到TestCheck这个数组里,然后UBound取到的数组一维大小不就不为空,因此就可以判断出( "页面'" & TestCheck(0) & "'中存在 " & FindText & " 无法访问." )了
sdlkfj5

作者: Coffey111111 时间: 2007-2-15 09:04
恩，谢谢htot05

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)