werte von einer Homepage filtern

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von mox.

    werte von einer Homepage filtern

    hallo zusammen

    Ich hab schon einige foren durchsucht, aber irgendwie klappt das ganze nicht

    unter code1 ist der quelltext der homepage die kann ich auch in einer texbox anzeigen lassen

    jetzt möchte ich aber von dem inhalt code1 nur die kompletten zeielen in eine datei abspeichern die das wort Visit haben

    meine textdatei sollte dann so aussehen


    03.12.2016 16:00 uhr Link1 "irgendeinlink1"
    03.12.2016 16:00 uhr Link2 "irgendeinlink2"

    ideal wäre es noch wenn er die seite automatisch alle 10 minuten aktualisieren sollte

    wie ihr anhand des codes sehen könnt sind das alles codeschnipsel die ich mir aus dem netzt geholt habe weil ich mich noch nicht besonders gut auskenne

    ich hoffe ich habe mich halbwegs verständlich ausgedrückt




    code1 sieht etwas so aus (gekürztz)
    -------------------
    <DIV id=container-shadow-top>
    <DIV id=popupDiv style="BORDER-TOP: black 1px solid; BORDER-RIGHT: black 1px solid; BACKGROUND: #fff; BORDER-BOTTOM: black 1px solid; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: black 1px solid; DISPLAY: none; PADDING-RIGHT: 0px"></DIV>
    ....
    <A title="Visit testlink1" href="http:\\irgendeinlink1" target=_blank>Link1<BR><SPAN style="FONT-SIZE: 9px">(Link1)</SPAN></A>
    <A title="Visit testlink2" href="http:\\irgendeinlink2" target=_blank>Link2<BR><SPAN style="FONT-SIZE: 9px">(Link2)</SPAN></A>
    ....
    <SCRIPT type=text/javascript charset=utf-8 src="/min/?g=my-js-min"></SCRIPT>
    --------------

    mein quellcode:

    Public Class Form1
    Private WithEvents w As New Net.WebClient

    Dim webadresse As String
    webadresse ="http://localhost/friends.php"
    WebBrowser1.Navigate(webadresse)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim code As String
    Dim code1 As String
    code = WebBrowser1.Document.Body.InnerText
    code1 = WebBrowser1.Document.Body.InnerHtml
    TextBox2.Text = code1
    End Sub


    End Class