Gajendra:
The following lists how to get information from a web page such as
micclass, name, innertext. Some of the objects will not have any
innertext so you will need to decide how you wish to filter.
When this was executed against google.com, there were 70 objects and
only 57 had a value in the innertext.
The info could be put into a txt file, word doc, excel spreadsheet.
Your choice.
Set a=Browser("creationtime:=0").page("micclass:=page").ChildObjects
print "number of child objects = " & a.count
For i=0 to a.count-1
print a(i).GetroProperty("text")&": micclass
"&a(i).getroproperty("micclass") & ": name " &
a(i).getroproperty("name") & ": innertext " &
a(i).getroproperty("innertext")
Next
print vbcrlf
''// ignore objects with no innertext
cnt_notempty = 0
For i = 0 to a.count - 1
If a(i).GetROProperty("innertext") <> "" Then
cnt_notempty = cnt_notempty + 1
print a(i).GetroProperty("text")&": micclass
"&a(i).getroproperty("micclass") & ": name " &
a(i).getroproperty("name") & ": innertext " &
a(i).getroproperty("innertext")
End If
Next
print "cnt_notempty = " & cnt_notempty
hth,
Parke
On 7/31/12, Gajendra Jain <[email protected]> wrote:
> Hi,
>
> How can i capture the innertext of the whole webpage and save it in the
> word document?
>
> Regards,
> Gajendra
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
Parke
Cell: 770-842-0121
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
