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

EvaluateXpath

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

Recent Discussions

How to stop TestComplete from failing a test when unrelated processes crash?

Shared user form between projects and event management

How to add external files to a project?

Unintended actions during keyword test run

Test Execution Summary is null