-----如何抓取指定页面上的特定文字-------

zengli80

现在需要打开被测系统的每一个模块，然后判断该页面是否报错（就是搜索页面上是否有“错”字），若有报错则不关闭模块，没报错就关闭模块


1、用Src_text=TextUtil.GetText(0, 20, 20, 2000, 2000)  来截屏，可惜该方法与windons冲突，每次允许到该行代码就报错
2、用Set mydesc=description.Create()
        mydesc("html tag").value="B"
        mydesc("innertext").value=".*错.*"
        MyDesc("innertext").RegularExpression = true
        if Browser("CreationTime:=1").Page("index:=0").webelement(mydesc).Exist(0)  Then

因为每个模块都是以tab页的方式打开，若当前有个模块已打开，且搜索到指定文字，那么此后的模块即使没错也不会被关闭，因为总是会搜索到前面tab页面上有指定文字，如何才能只搜索当前tab页呢

zengli80

本来是要加在Page和WebElement间frame，但属性都一样，只能通过index来区分，问题是每个frame的index事先不知道，且无规律，不知还能有什么方法

zengli80

在Page和WebElement间再添加一层对象，用于标识tab页
hsjzfling 发表于 2012-7-31 17:53

本来是要在Page和WebElement间加frame，但属性都一样，只能通过index来区分，问题是每个frame的index事先不知道，且无规律，不知还能有什么方法

zengli80

若很难找到一层可以区分的对象，可以用比较暴力点的方法


该方法执行效率会偏低，可将全局同步等待时间 ...
hsjzfling 发表于 2012-7-31 21:39

按照你的方法，写了以下代码，总是在当前页可见，是怎么回事呢？

Browser("CreationTime:=0").Page("index:=0").link("text:=收件箱","index:=0").Click

Set mydesc=description.Create()
        mydesc("html tag").value="SPAN"
        mydesc("innertext").value="客服"
        MyDesc("innertext").RegularExpression = true
        If Browser("CreationTime:=0").Page("index:=0").webelement(mydesc).Exist(0)  Then
          On Error Resume Next
          Err.Clear
          Setting.WebPackage("ReplayType") = 2
          Browser("CreationTime:=0").Page("index:=0").webelement(mydesc).Click
          Setting.WebPackage("ReplayType") = 1

         If Err.Number = 0 Then

                msgbox "客服,在当前可见页"
          Else

                msgbox "客服,不在当前可见页"

          End If
End If

zengli80

加一个visible属性
mydesc("visible").value=True
如果在当前页，那就highlight看下在哪里
Browser("Cre ...
hsjzfling 发表于 2012-8-1 10:12

我要找的文字不在当前页啊，但Err.Number 总是等于0

mydesc("visible").value=True
要加在什么位置啊？

zengli80

总觉得有点像拿自动化工具做性能测试的事情。试试楼上的方法吧，不过我还想知道你所谓的出错到底是个什么样 ...
云层 发表于 2012-8-1 08:33

因为被测系统有几百个模块，每次回归测试，想用自动化来测试有没有模块会报错，报错信息是固定的，会显示“操作出错！”这几个字，不知这个代码怎么写比较好呢？
楼上的方法试过了，但似乎没作用

zengli80

mydesc("html tag").value="B"
mydesc("innertext").value=".*错.*"
改成
mydesc("html tag").value="B" ...
hsjzfling 发表于 2012-8-1 14:49

还是不行啊！是不是我代码问题
if Browser("CreationTime:=1").Page("index:=0").webelement(mydesc).Exist(0)  Then
         On Error Resume Next
          Err.Clear
          Setting.WebPackage("ReplayType") = 2
          Browser("CreationTime:=0").Page("index:=0").webelement(mydesc).Click
          Setting.WebPackage("ReplayType") = 1

         If Err.Number = 0 Then
                Browser("CreationTime:=0").Page("index:=0").webelement(mydesc).HightLight  '这句没高亮
                j=j+1
         end if
      else
            Browser("CreationTime:=0").Page("index:=0").image("index:="&j+1).Click  '关闭不报错的模块
end if

zengli80

你的page一直是index：=0不是代表一直是当前页吗？
joykao 发表于 2012-8-1 14:49

用SPY查看不同tab页的对象，都是属于一个page