Posts: 1,003
Threads: 1
Joined: Jul 2009
Reputation:
5
08-17-2009, 05:13 PM
Code:
Dim Total_no_link
Dim clink ,rc,mysmgbox
Dim ln
Set fileSysObject=createobject("Scripting.FileSystemObject")
Set linksFileName=fileSysObject.opentextfile("D:\a1.txt",2,true)
Set cLink =description.Create()
cLink("html").value="A"
Browser("Login Page").Page("Login Page").WebList("select").Select "SQL2005"
Browser("Login Page").Page("Login Page").WebList("select_2").Select "VIL0910SQL2005"
Browser("Login Page").Page("Login Page").WebEdit("txtUserID").Set "nj"
Browser("Login Page").Page("Login Page").WebEdit("WebEdit").SetSecure "4a89374a064976d6f9f1"
Browser("Login Page").Page("Login Page").WebList("select_3").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_4").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_5").Select "FOOD"
Browser("Login Page").Page("Login Page").WebButton("Enter").Click
Browser("Login Page").Page("Main Menu Page").Link("General Master").Click
Set rc=Browser("Login Page").Page("Main Menu Page").ChildObjects(cLink)
Total_no_link=rc.count()
msgbox Total_no_link ' What does msgbox display ?
For i=0 to Total_no_link-1
[b]ln=Total_no_link(i).getRoProperty("name")[/b]
linksFileName.writeline(link_name)
Next
linksFileName.close
Set fileSysObject=nothing
Try this code and let me know if you get the same error message.
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Posts: 42
Threads: 25
Joined: Mar 2009
Reputation:
0
08-17-2009, 05:22 PM
hi ..
Still same error message is displaying ? why its is displaying . ? Please tell me the reason behind this error so that next time i will not get the same problem
Posts: 1,199
Threads: 5
Joined: Nov 2008
Reputation:
0
08-17-2009, 05:29 PM
Hi NJ,
The issue is there because you are taking the count of object at 'Total_no_link=rc.count()' which will return you an numeric value not an object. so when you do 'total_no_link(i)' in 'ln=total_no_link(i).getRoProperty("name")' it gives you the error. you should use the object (rc) here not the count.
'
Posts: 1,003
Threads: 1
Joined: Jul 2009
Reputation:
5
08-17-2009, 05:31 PM
Absolutely Correct !! Saket's solution should definitely resolve the issue.
Thanks for looking in immediately saket. this will help njnirmal. I had him misled because i just saw that his variable has a spell mistake and pointed it out. The bigger picture was that he did not use rc.
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Posts: 42
Threads: 25
Joined: Mar 2009
Reputation:
0
08-17-2009, 05:41 PM
thanks for both of You .. for give me the reason for this error. please tell me one thing where i hve to change and what ?
Posts: 1,003
Threads: 1
Joined: Jul 2009
Reputation:
5
08-17-2009, 05:43 PM
NjNirmal -
Please take sometime off to read through the entirety of the post. Saket and me spent sometime looking into your code and then we came up with the solution. Next time, please research on your own and if you cannot get the part post your question. We will be more than happy to help you. For now this is what saket meant,
Code:
Dim Total_no_link
Dim clink ,rc,mysmgbox
Dim ln
Set fileSysObject=createobject("Scripting.FileSystemObject")
Set linksFileName=fileSysObject.opentextfile("D:\a1.txt",2,true)
Set cLink =description.Create()
cLink("html").value="A"
Browser("Login Page").Page("Login Page").WebList("select").Select "SQL2005"
Browser("Login Page").Page("Login Page").WebList("select_2").Select "VIL0910SQL2005"
Browser("Login Page").Page("Login Page").WebEdit("txtUserID").Set "nj"
Browser("Login Page").Page("Login Page").WebEdit("WebEdit").SetSecure "4a89374a064976d6f9f1"
Browser("Login Page").Page("Login Page").WebList("select_3").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_4").Select "WHFD00"
Browser("Login Page").Page("Login Page").WebList("select_5").Select "FOOD"
Browser("Login Page").Page("Login Page").WebButton("Enter").Click
Browser("Login Page").Page("Main Menu Page").Link("General Master").Click
Set rc=Browser("Login Page").Page("Main Menu Page").ChildObjects(cLink)
Total_no_link=rc.count()
For i=0 to Total_no_link-1
[b]ln=rc(i).getRoProperty("name")[/b]
linksFileName.writeline(link_name)
Next
linksFileName.close
Set fileSysObject=nothing
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Posts: 42
Threads: 25
Joined: Mar 2009
Reputation:
0
08-17-2009, 05:50 PM
thanks basanth ..
Next time i will try my self .. IF any issue comes then help me out
Once again thankx
Posts: 1,003
Threads: 1
Joined: Jul 2009
Reputation:
5
08-17-2009, 05:55 PM
Good Spirit NjNirmal :-). Actually it should be Thanks to "Saket". He pointed the right mistake.
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Posts: 61
Threads: 1
Joined: Jul 2009
Reputation:
0
08-17-2009, 05:56 PM
Hi NjNirmal ,
It's a simple thing. Watch your code & see where you have received the collection of child objects. It's received in rc, & you are trying to iterate this collection through "Total_no_link" which is a variable assigned with only count of that collection. You have to retreive the values from the collection i.e. "rc" and not from "Total_no_link"
