Itereate through Link Items

[lucster]

Hey guys,

i am new to this board and the whole QTP.

With this code i iterate through links on a website:

Code:

i=0
j=1
While Browser("IDD Portal Login").Page("IDD Portal").Frame("frameLeft").Link("class:=arrow_normal", "html tag:=A", "index:="&i).Exists = true

    Datatable.SetCurrentRow (i+1)
    Browser("IDD Portal Login").Page("IDD Portal").Frame("frameLeft").Link("class:=arrow_normal", "html tag:=A", "index:="&i).Click
    i = i+1
    Wait 2

    While Browser("IDD Portal Login").Page("IDD Portal").Frame("frameMain").Link("class:=arrow_bold", "html tag:=A", "index:="&j).Exists = true

        txt = Browser("IDD Portal Login").Page("IDD Portal").Frame("frameMain").Link("class:=arrow_bold", "html tag:=A", "index:="&j).GetRoProperty("innertext")

        If txt <> "Instanz auswählen" Then
            print txt
            Datatable("Berichtstitel", dtGlobalsheet) = txt
        End If

        j = j+1
        
    Wend
    
Wend
Datatable.ExportSheet "D:\Daten\Berichtsl.xls", 1

As u may know now, the parser dont accept this, because the function EXISTS is not possible to use in that context.

Now i ask you, how i can define an end of my ieration? The count of iteration has to be variable. Anyone has an idea?

thanks in advance, lucster.

[vIns]

Hi..
The above approach might NOT work as expected when you have only one link in the page. This is because, QTP uses index property only when multiple objects are found. When there is only one object, index property is simply ignored, so the above loop will repeat indefinitely. (even if you set index=10000, QTP's Exists property will return the value as True; but they all refer to same Link here)

So, Take the count first and proceed.

Code:

Set chObj = Description.Create
chObj("micclass").Value= "LINK"
chObj("html tag").Value ="A"
chObj("class").Value ="arrow_normal"

objCount = Browser("IDD Portal Login").Page("IDD Portal").ChildObjects(chObj).count

[lucster]

This is how it works, your code needed some edit.

Code:

Set chObj1 = Description.Create
[b]'chObj1("micclass").Value= "LINK"[/b]
chObj1("html tag").Value ="A"
chObj1("class").Value ="arrow_normal"

objCount1 = Browser("IDD Portal Login").Page("IDD Portal")[b].Frame("frameLeft")[/b].ChildObjects(chObj1).count

Thanks for your help