get all text showing on web page

[daniel_QTP]

[Ankesh]

try this

Code:

strPageText=Browser().Page().Object.body.innertext

strPageText is a string which now holds the entire text of the page.

Do let me know if you need more help.

Regards,
Ankesh

[daniel_QTP]

Actually it works, but I get the texts I do not see on the screen.
for example,
<input type="hidden" autocomplete="off" name="_fb_noscript" value="true" />

How can I get only the text that I see on the screen? and how I can work with any string and string separately? I mean, I have the ability to reach all the text on the screen separately and not all the text as one group

Thank you very much!

---

I tried the following code:

Code:

strPageText=Browser("Facebook").Page("Facebook").Object.body.innertext strPageText= Split(strPageText,chr(10))

I got an array which is filled with empty values

       

[jesonvan]

sample code:

Code:

Function GetPageAllStringA(obj) ' to escape invisible object, very difficult ' If lcase(obj.body.style.visibility) = "hidden" or lcase(obj.body.style.display) = "inline-block" Then ' GetPageAllStringA = "" ' Exit Function ' End If Set objChildren = obj.childNodes If objChildren.length = 0 Then GetPageAllStringA = obj.innerText Exit Function End If For i = 0 to objChildren.length - 1 set obj = objChildren.item(i) GetPageAllStringA = GetPageAllStringA & vbcrlf & obj.innerText Next End Function str = GetPageAllStringA(Browser("Google").Page("Google").Object) msgbox str