VB.Net Copy all text from WebBrowser

Question

I want to copy all visible text from WebBrowser.

Clipboard.SetText(WebBrowser1.Document.Body.InnerText)

This code is working, but it's also getting text between <div style="display:none"> and </div>, which i don't want (i want only text that is visible when i manually go to that website).

Have you searched Google? Look into ***HtmlAgilityPack*** it will parse it for you... — Trevor, Feb 05 '17 at 18:16
Possible duplicate of [Copy all text from webbrowser control](http://stackoverflow.com/questions/2637192/copy-all-text-from-webbrowser-control) — Andrea, Feb 05 '17 at 19:01
I saw that thread, but i don't know C# or anyone that could translate it to me. Does anybody has an answer for this? — Ses Manijak, Feb 05 '17 at 19:36
It always has errors when i convert C# to VB.Net and that code is not the one i'm looking for ;) — Ses Manijak, Feb 05 '17 at 23:23

score 1 · Accepted Answer · answered Feb 06 '17 at 04:30

1

This works for me against google.com. This is mostly a translation of the c# version of the same question mentioned in the comments above.

    Dim text As String
    WebBrowser1.Document.ExecCommand("SelectAll", False, Nothing)
    WebBrowser1.Document.ExecCommand("Copy", False, Nothing)
    text = Clipboard.GetText()
    MessageBox.Show(text, "Text")

answered Feb 06 '17 at 04:30

Alexander Ryan Baggett

2,347
4
34
61

This idea works, thank you for that. But, any ideas how to do this without using clipboard? Thanks again. – Ses Manijak Feb 06 '17 at 08:51
Attempts to do this without the clipboard will require serious XML parsing. – Alexander Ryan Baggett Feb 06 '17 at 15:32
You can take a look at this post where they show how to check if an element is visible. http://stackoverflow.com/questions/14776840/htmlagilitypack-how-to-check-if-an-element-is-visible – Alexander Ryan Baggett Feb 06 '17 at 17:44
Once you know if it is visible, you could simply do a linq statement on the body like so : Dim VisibleText = From element In body.DescendantsAndSelf() Where CheckIfVisible(element) Select element.InnerText – Alexander Ryan Baggett Feb 06 '17 at 17:45
I added Clipboard.Clear() and duplicated second line in your code, now it works perfectly for me. Thank you very much Alexander! :) – Ses Manijak Feb 08 '17 at 16:09

VB.Net Copy all text from WebBrowser

1 Answers1