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

hsjzfling

在Page和WebElement间再添加一层对象，用于标识tab页

hsjzfling

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

1. 
   
2. Set mydesc=description.Create()
   
3. mydesc("html tag").value="B"
   
4. mydesc("innertext").value=".*错.*"
   
5. MyDesc("innertext").RegularExpression = true
   
6. If Browser("CreationTime:=1").Page("index:=0").webelement(mydesc).Exist(0)  Then
   
7. On Error Resume Next
   
8. Err.Clear
   
9. Setting.WebPackage("ReplayType") = 2
   
10. Browser("CreationTime:=1").Page("index:=0").webelement(mydesc).Click
    
11. Setting.WebPackage("ReplayType") = 1
    
12. If Err.Number = 0 Then
    
13.   '"错"在当前可见页
    
14. Else
    
15.   '"错"不在当前可见页
    
16. End If
    
17. On Error GoTo 0
    
18. '..............................
    
19. Else
    
20. '.............................
    
21. End If
    

复制代码

该方法执行效率会偏低，可将全局同步等待时间改小些，并自行优化下逻辑提高效率

hsjzfling

加一个visible属性
mydesc("visible").value=True
如果在当前页，那就highlight看下在哪里
Browser("CreationTime:=0").Page("index:=0").webelement(mydesc).HightLight

hsjzfling

mydesc("html tag").value="B"
mydesc("innertext").value=".*错.*"
改成
mydesc("html tag").value="B"
mydesc("visible").value = True
mydesc("innertext").value=".*操作出错！.*"

hsjzfling

Highlight可以帮助你确认实际找到的和你预期的是否一致，不在当前页Highlight会定位在比较奇怪的位置上(高亮处不可见指定文本)