Imports System.Xml
 
Namespace WebParsen
 
    Public Class frmParseIt
        Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
        Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles cmdGo.Click
            'lädt von Seite http://www.vbarchiv.net/forum/id10_i35384t35348.html
            'und holt sich den Beitragstext
            'dr Beitragstext steht in einem font-Tag mit der Css-Klasse 
            ' "PhorumMessage".
            'Tags dieser Sorte gibt's zwei also brauchen
            'Wir brauchen den zweiten
 
            Const url$ = "http://www.vbarchiv.net/forum/id10_i35384t35348.html"
            'html-Code laden
            Dim strHtml$ = GetHtmlCode(url)
            'XmlDocument aus HTML-Code machen
            Dim xmlDoc As XmlDocument = GetXmlDoc(strHtml)
 
            'Text des Postings holen
            Dim postingText$ = GetPostingText(xmlDoc)
            If postingText <> "" Then
                MsgBox(postingText)
            End If
        End Sub
 
        Private Function GetHtmlCode(ByVal url$) As String
            'fragt eine Webseite ab
            'und gibt den Quelltext zurück
            Dim request As Net.HttpWebRequest
            Dim response As Net.HttpWebResponse
            Dim stm As IO.Stream
            Dim sr As IO.StreamReader
            Dim retVal$
 
            request = Net.WebRequest.Create(url)
            response = request.GetResponse
            stm = response.GetResponseStream
 
            sr = New IO.StreamReader(stm, System.Text.Encoding.GetEncoding( _
              "iso-8859-1"))
            retVal = sr.ReadToEnd
            sr.Close()
            response.Close()
 
            Debug.WriteLine(retVal)
            Return retVal
        End Function
 
        Private Function GetXmlDoc(ByVal strHtmlCode$) As XmlDocument
            'macht ein XML-document aus HTML-Code. 
            'Es muss ein Verweis auf die SgmlReader-Dll gesetzt sein
            Dim doc As New XmlDocument()
            Dim rdr As New Sgml.SgmlReader()
            Dim sr As New IO.StringReader(strHtmlCode)
            'InputStream nimmt keinen Stream, sondern 
            'einen TextReader entgegen
            'man hätte eigentlich schon den StreamReader
            'aus "GetHtmlCode()" nehmen können.
            rdr.InputStream = sr
            rdr.DocType = "HTML"
 
            doc.Load(rdr)
            rdr.Close()
 
            Debug.WriteLine(doc.OuterXml)
            Return doc
        End Function
 
        Private Function GetPostingText(ByVal xmlDoc As XmlDocument) As String
            'sucht nach allen font-Tags im Xml-Dok.
            'prüft für alle Font-Tags, ob sie das Attribut "class"
            'haben, derart dass der Wert von "class" gleich "PhorumMessage" ist
            'vom zweiten Font-Element, das diesen Bedingungen genügt
            'wird der Text zurückgebenen.
            Dim nlFonts As XmlNodeList
            Dim elFont As XmlElement
            Dim attClass As XmlAttribute
            Dim cntFound% = 0
 
            nlFonts = xmlDoc.GetElementsByTagName("font")
            For Each elFont In nlFonts
                attClass = elFont.Attributes.GetNamedItem("class")
                If Not attClass Is Nothing Then
                    If attClass.Value = "PhorumMessage" Then
                        cntFound += 1
                        If cntFound = 2 Then
                            Return elFont.InnerText
                        End If
                    End If
                End If
            Next
 
        End Function
    End Class
 
End Namespace