Looping through an array

Question

I'm populating an array with the FindAllChildren method, which is generating a list of all the links on a specific web page. I then try to use the members of that array to open up those links. For some reason, the ToURL method is locking the array after the first iteration of the loop and blows up directly there after: blah2 is the array in question

If UBound(blah2) >= 0 Then

(blah2) >= 0

For i = o to ubound(blah2)

blah3 = Project.Variables.server & "gsa/webbas01.nsf/(vwwebpage)/" & blah2(i).nameProp

Set iexplore = Aliases.iexplore

iexplore.ToURL(blah3)'nav_to_page blah3

next

else msgbox("no values returned")

End If

I do not know how to overcome this. Its interesting to note that if I use the NavigateTo method vs. ToURL the loop continues without error (there are actually message boxes in the code that verify this), but the navigateto method does nothing. So I need a hybrid method of the ToURL / NavigateTo method - one that actually opens the page but does not lock the array subsequently. That, or a way to get around the locking of the array, if that's what you call it.

Any advice is welcome.

dmitry_nikolaev · Answer

Hi Dave,I think that there are two problems here. The first one is in this line:For i = o to ubound(blah2)You should uze '0' (zero) instead of O (a letter):For i = 0 to ubound(blah2)The second problem is that you try to get a link's URL using the 'nameProp' property that contains a stripped URL. You should use the 'href' property to get the actual link:Log.Message blah2(i).href

kinsleyd · Answer

David,Nice spot on the O vs. zero.&nbsp; Intriguing that the loop was still looping.&nbsp; Go figure.I'm looking at the href property of one of the links (through the object browser) - here's what it is for one of the links on the page:javascript&amp;colon;showwindow('/gsa/webbas01.nsf/(vwwebpage)/webbase.htm?opendocument&amp;login&amp;Scope=PRJC____,App=Basics__________,ProjectID=1188')vs. the nameprop property of the same link:webbase.htm?opendocument&amp;login&amp;Scope=PRJC____,App=Basics__________,ProjectID=1188')So the href still isn't a full link (just as the nameprop isn't), and I'd have to play text games with it, stripping off the 'javascript&amp;colon;showwindow....&nbsp; to get it to work vs. the way I'm doing it now (which works on the first iteration).&nbsp; So I'm not sure I understand the advantage to using it vs nameprop.I recognize that its probably hard to tell what's going on with the other variables in the code I posted since you can't see where they're coming from.Correcting the zero had no effect sadly - still getting 'permission denied' on the second iteration of the loop if the ToURL method is n't commented out.&nbsp; Works fine if I eliminate the ToURL method and just display the message box with the value of the array at that loop.&nbsp; Got me stumped.

kinsleyd · Answer

I tried using some script to open up a new window of IE to open up the generated link, and that seems to have gotten around the issue with the array. It presents a few other hurdles, but at least I'm past that wacky array issue!

Thanks for your help, David.

kinsleyd · Answer

Its baaaack.Something tells me this is going to continue to haunt me until I have an understanding of why its happening.&nbsp; Here's my revised code in its entirety:Sub List_Projects'loops through the main body and extracts the link property of all returned projects'Assumes a region has been selecteddim iexplore, blah1, blah2, blah3, name_prop, name_prop_lengthSet iexplore = Aliases.iexploreset blah1 = iexplore.Page(Project.Variables.server &amp; "gsa/webbas01.nsf/(vwwebpage)/webbase.htm?opendocument&amp;Set=1,Scope=RPL_____,App=Basics__________,Select=P-Active-2,")blah2 = blah1.FindAllChildren("nameProp", "webbase*", 13)If UBound(blah2) &gt;= 0 ThenFor i = 0 to 3'ubound(blah2)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; name_prop_length = len(blah2(i).nameProp)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp; extract the project ID from the nameprop property:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select case name_prop_length&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 80&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 81&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 2)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case 82&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 3)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 83&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 4)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 84&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 5)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; run the sub to change the state to completed &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Change_Project_State&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else msgbox("no values returned")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Ifend SubNow I'm calling another sub (Change_Project_state), which runs fine the first iteration, then the old "Permission Denied - blah(...).nameprop&nbsp; appears.&nbsp; Why!?????????

alexanderm · Answer

Hello Dave,Here is what happens:When you navigate to a page on the first iteration, all object references stored in the "blah2" array become invalid because all underlying objects disappear from the page. So, on the second iteration, the script will error out trying to address a non-existing object.To accomplish your task, I suggest that you store the nameProp property values of the found objects, not the object references. Something like this:AllChildren = blah1.FindAllChildren("nameProp", "webbase*", 13)For i = 0 to ubound(AllChildren)&nbsp;&nbsp;blah2(i) = AllChildren(i).namePropNextIf UBound(blah2) &gt;= 0 Then&nbsp;&nbsp;For i = 0 to ubound(blah2)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; name_prop_length = len(blah2(i))...Does this work for you?

Forum Discussion

Looping through an array

6 Replies

Related Content

2 For loops to run through 2 arrays - how?!

For loop

Help on looping through data array

Swagger Response In Array

print array values without any loop in vb script

Recent Discussions

Searching for mapped object took too much time msg

Azure Devops Integration supports Testcomplete Base Fixed Dektop Module License

Devops integration support

Including Error Handling

TestComplete14.72 is not recognizing WinUI-3 objects