getting webbrowser data to text file

[kushaladhikari12]

hello i am from vb6 and there is a text that is header between <h1>header</h1> and i wnana get that header into text box but how ???
help me

[si_the_geek]

Thread moved from the 'CodeBank VB6' forum (which is for you to post working code examples, not questions) to the 'VB6 and earlier' forum

[Max187Boucher]

In which continent is VB6?

To get the data from header, use the webbrowser/internet explorer Document (DOM), very easy.

Quick example:

-Add 1 CommandButton "Command1"
-Add 1 WebBrowser "WebBrowser1"

Private Sub Command1_Click()
Debug.Print WebBrowser1.Document.body.innerhtml
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub

[ladoo]

Private Function GetBetween(ByRef sSearch As String, _
ByRef sStart As String, _
ByRef sStop As String, _
Optional ByVal lSearch As Long = 1, _
Optional ByVal bCaseSensitive As Boolean = True) As String

Dim lonS As Long, lonE As Long
Dim strLCSearch As String
Dim strLCStart As String, strLCStop As String

'Case-sensitive...
If bCaseSensitive Then
lonS = InStr(lSearch, sSearch, sStart)
If lonS Then
lonS = lonS + Len(sStart)
lonE = InStr(lonS, sSearch, sStop)
If lonE Then
GetBetween = Mid$(sSearch, lonS, lonE - lonS)
End If
End If

'Not case-sensitive
'Faster to convert string to lowercase rather than vbTextCompare
Else
strLCSearch = LCase$(sSearch)
strLCStart = LCase$(sStart)
strLCStop = LCase$(sStop)
lonS = InStr(lSearch, strLCSearch, strLCStart)
If lonS Then
lonS = lonS + Len(strLCStart)
lonE = InStr(lonS, strLCSearch, strLCStop)
If lonE > 0 Then
GetBetween = Mid$(sSearch, lonS, lonE - lonS)
End If
End If
End If
End Function

Private Sub Command1_Click()
'Not case-sensitive

Text2.Text = GetBetween(WebBrowser1.Document.body.innerhtml, "<h1>", "</h1>" 'Case-sensitive

End Sub

good luck

[Nightwalker83]

In which continent is VB6?

The original poster is asking how to retrieve text from between <h1> </h1> tags not the header of the actual web page.