get all text showing on web page

[daniel_QTP]

How can i get all text showing on web page (QTP 11)?
For example,
I want to get into array all the text that appears on the next web page:
http://m.facebook.com/.


I tried the following code without success...

Code:

set objpage = Browser("Facebook").Page("Facebook")

Set childobjdes = Description.Create()
childobjdes("micclass").value = "WebElement"
childobjdes("Visible").Value = true

set allobj = objpage.ChildObjects(childobjdes)

[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