EvaluateXPath

Question

Hi,Maybe someone knows if the object exists then everything works, but if the object doesn't exist then displays the following error:"Microsoft VBScript runtime errorType mismatch: 'UBound''"-----------------------------------------------Function EvaluateXPath_object(page, location, typeID, name)&nbsp; EvaluateXPath_object = False&nbsp; Dim Attr&nbsp; Set Attr = Log.CreateNewAttributes&nbsp; Attr.Bold = True&nbsp; Dim object, arr&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp; Do&nbsp;&nbsp;&nbsp; counter = counter + 1&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp;&nbsp;&nbsp; object = location.FindAllChildren(typeID,name,20000, True)&nbsp;&nbsp;&nbsp; arr = page.EvaluateXPath("(//*[text()='"+name+"'])")&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UBound(arr) &gt;= 0 Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set button = arr(0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EvaluateXPath_object = True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; log.Message "Click - '"+name+"'",,, Attr&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; button.Click&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; page.Wait&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EvaluateXPath_object = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqUtils.Delay(3000)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message("Doesn't find - '"+name+"'")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End if&nbsp;&nbsp; Loop Until EvaluateXPath_object = True or counter &gt; 25&nbsp;&nbsp; &nbsp;End Function-----------------------------------------------RegardsArmands

tanyayatskovska · Answer

Hi Armands, &nbsp; The EvaluateXPath method returns null when elements are not found. So, you'd better check whether the array contains the search results in the following way: If Not IsNull(arr) Then ...

armandsbruns · Answer

Hi TanyaThanks for your responseNow workSolution:-----------------------------------------------Function EvaluateXPath_object(page, location, typeID, name)&nbsp; EvaluateXPath_object = False&nbsp; Dim Attr&nbsp; Set Attr = Log.CreateNewAttributes&nbsp; Attr.Bold = True&nbsp; Dim object, arr, Counter&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp; Counter = 0&nbsp; Do&nbsp;&nbsp;&nbsp; counter = counter + 1&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp;&nbsp;&nbsp; object = location.FindAllChildren(typeID,name,20000, True)&nbsp;&nbsp;&nbsp; arr = page.EvaluateXPath("(//*[text()='"+name+"'])")&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsEmpty(arr) or IsNull(arr) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EvaluateXPath_object = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqUtils.Delay(3000)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message("Doesn't find - '"+name+"'")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UBound(arr) &gt;=0 and arr(0).VisibleOnScreen = True Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set button = arr(0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EvaluateXPath_object = True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message "Click - '"+name+"'",,, Attr&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cels.Click&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call Saglaba_Bildi(name)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call page.Wait&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EvaluateXPath_object = False&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqUtils.Delay(3000)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sys.Refresh()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message("Doesn't find - '"+name+"'")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End if&nbsp;&nbsp; Loop Until EvaluateXPath_object = True or counter &gt; 25&nbsp;&nbsp; &nbsp;End Function-----------------------------------------------RegardsArmands

Forum Discussion

EvaluateXPath

Related Content

EvaluateXpath - using keyword test , can we use evaluateXpath.?

Issues with Firefox EvaluateXPath on First Paragraph Only!

EvaluateXPath finds object but FindAllChildren doesn't

Can't finding TD's DIV using EvaluateXPath Method.

EvaluateXpath

Recent Discussions

Onscreen Object Selector Slowness

aqObject.CheckProperty() slowness

Problem with generated data table and keyword test

WebView2 support does not work

System checks for Object for every test