关于“Filter”如何使用的疑问。

lovetest6 · 发表于 2005-5-24 11:01:42

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:28

你可以改一下.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:53

另外谁给看看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:32

呵呵有道理，If UBound(TestCheck,1) Then

QA_BAY · 发表于 2005-5-24 11:32:46

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

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

someone5 · 发表于 2005-5-24 13:07:22

又学到了一点东西^_^

lovetest6 · 发表于 2005-5-24 13:52:25

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

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

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

QA_BAY · 发表于 2005-5-24 15:06:16

写错了,
够细心!

someone5 · 发表于 2005-5-24 15:54:19

是做测试的料，呵呵

lovetest6 · 发表于 2005-5-24 16:41:20

哈哈，不要挖苦偶哦，呵呵：）

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

hxf · 发表于 2007-2-9 13:52:18

谢谢了，我也又学了两个函数

htot05 · 发表于 2007-2-9 15:51:16

以前用过这两个函数,但不够深入,现在又加深了一些理解

顶起~!

Coffey111111 · 发表于 2007-2-13 17:06:00

请问UBound(TestCheck,1) 函数是指什么意思啊？可否解释一下呢？sdlkfj5

htot05 · 发表于 2007-2-14 10:57:55

取TestCheck这个数组的一维大小

Coffey111111 · 发表于 2007-2-14 11:55:07

UBound(TestCheck,1)是不是用来判断TestCheck数祖是不是一维的呀？还是判断是不是超过一维的啊？sdlkfj5

Coffey111111 · 发表于 2007-2-14 11:59:17

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:52

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

Coffey111111 · 发表于 2007-2-15 09:04:19

恩，谢谢htot05

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 关于“Filter”如何使用的疑问。

相关帖子

站长推荐 /1