Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Apr 15, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Retrieve the textual or HTML text contained in a WebBrowser control

Here's a quick way to retrieve the textual (that is, without any HTML tag) contents of a WebBrowser control:

Dim Text As String
Text = WebBrowser1.Document.Body.InnerText
Getting the HTML text is a tad less intuitive, though:

Dim Text As String
Text = WebBrowser1.Document.documentElement.OuterHTML
The following procedure let's you save the contents of a WebBroser control to a file, as plain text or HTML text:

Sub SaveWebBrowser(WB As WebBrowser, ByVal FileName As String, _
    Optional SaveAsPlainText As Boolean)
    Dim Text As String, fnum As Integer

    If SaveAsPlainText Then
        Text = BW.Document.Body.innerHTML
        Text = BW.Document.documentElement.OuterHTML
    End If

    ' save to file
    fnum = FreeFile
    Open FileName For Output As #fnum
    Print #fnum, Text;
    Close #fnum
End Sub    

Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date