Unable to click on moving text in a website

[Akhila]

Hi,

In a website "http://www.indianrail.gov.in/#" I need to find out link ""Revised Refund Rules w.e.f. 01.07.2013" and click on it.
I have written the code...it says link is found but not clicking on it.
What could be the reason?

Code:

Set oLink = Description.Create()
oLink("micClass").value = "Link"
oLink("html tag").value = "A"

Set listLinks = oPage.ChildObjects(oLink)
no_links = listLinks.count

str =  "Revised Refund Rules w.e.f. 01.07.2013"
For i=1 to no_links
arr =listLinks(i).getroproperty("innertext")
     If  instr(str,arr)>0Then
        If listLinks(i).Getroproperty("visible")=True Then
            print "link is found"
            listLinks(i).click
        wait 3
        End if

        Exit for
     End If
Next

[kordirko]

Try this code, it click on this link

Code:

Set oLink = Browser("title:=Welcome to Indian Railway.*").Page("title:=Welcome to Indian Railway.*").Link( "innertext:=Revised Refund Rules w.e.f. 01.07.2013.*")

If oLink.Exist then
          If oLink.GetROProperty("visible") Then
                print "Link is visible"
                oLink.Click
          else
                  print "Link exists but  is not visible"
          End If
    else
          print "Link does not exist"
End If

[tanyamrz]

Hi Akhila,
the problem was with your instring i have corrected that please check the below code.

Code:

Set oLink = Description.Create()
oLink("micClass").value = "Link"
oLink("html tag").value = "A"
Set oPage = Browser("title:=Welcome to Indian Railway.*").Page("title:=Welcome to Indian Railway.*")
Set listLinks = oPage.ChildObjects(oLink)
no_links = listLinks.count-1

str =  " w.e.f. 01.07.2013"
For i=0 to no_links
arr =listLinks(i).getroproperty("innertext")
      If  instr(arr,str)>0Then
         If listLinks(i).Getroproperty("visible")=True Then
             print "link is found"
              print arr
             listLinks(i).click
         wait 3
         End if
print arr
       Exit for
      End If
Next

[Staff]

Please ensure to include your code between [code] tags while asking or replying to questions. I have done this for you for this time.

[tanyamrz]

Thanks Sure will take care from next time