Hi Luk,
i need to get a string / some strings from a html source code
(external)
\\
Dim br As New WebBrowser
Dim Text, cuttext As String
br.Navigate("http://wow.buffed.de:80/?c=2170577&tab=8")
While Not br.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
End While
Text = br.DocumentText
//
You got the HTML Code in the String "Text". Now you need to learn HTML.
Search the Internet for SelfHTML. The Information you need is Stored in a
Table. You can find the Pos, then cut the line from the table an extract in
a nother string by only using the commands mid and instr. But it is not as
easy as you might think.
\\
Dim p1, p2 As Integer
p1 = InStr(Text, "Scherbenwelt")
p2 = InStr(Text, "Sonstige")
cuttext = Mid(Text, p1, p2 - p1)
MsgBox(cuttext)
//
Niels Wiederanders