Whether function can return number of links and their names in a web page

[kotaramamohana]

Hi Friends,

Whether function can return number of Links and their names in a web page. I have tried but I am getting error as "Wrong number of arguments or invalid property assignment"

Here is my code:

Code:

n=abc()

msgbox n.count

Public function abc()

Set linkdesc=description.Create
       linkdesc("micclass").value="Link"
Set objlink=browser("g").Page("g").ChildObjects(linkdesc)

  abc=objlink

End Function

Can you please share your ideas

[ssvali]

Try the below code

Code:

oval=  lnkCount()
For j = lbound(oval) to ubound(oval)
    Print oval(j)
Next
Print "Total No . of Link" &  ubound(oval)

Function lnkCount()

   Set linkDesc = Description.Create
    linkDesc("micclass").value = "Link"
    Set lnk = Browser("g").Page("g").ChildObjects(linkDesc)
    For i = 0 to lnk.Count - 1
        ReDim Preserve lnkname(i)
        lnkname(i) = lnk(i).GetROProperty("name")
        
    Next
    lnkCount = lnkname
    
End Function

[kotaramamohana]

Thanks Ssvali, Its working fine.

[elango87]

Your approach is right.
Instead of using abc = objlink, you should have used
abc = objlink.count()

and in place of msgbox = n.count, you should use msgbox = n

below is the modified version of your code.

--

Code:

SystemUtil.Run "iexplore.exe", "google.com"
n=abc()

msgbox n

Public function abc()

Set linkdesc=description.Create
       linkdesc("micclass").value="Image"
Set objlink = Browser("Google").Page("Google").ChildObjects(linkdesc)
abc = objlink.Count()

End Function

--

hope this helps.

Thanks,
Elango