✔ Bestimmten Text aus HTML auslesen

[Myth]

Hiho zusammen,

ich bin gerade dabei ein kleines aber feines Programm für meine Kommilitonen und mich zu schreiben.Unter anderem ist es notwendig (btw: ich benutze VC++ 6) eine Website aufzurufen,bzw. einen Suchtext aus der Website auszulesen.Zur Vereinfachung ein kleines

Beispiel:
Ich will das mein Tool auf der Website (bsp) http://www.tutorials.de/ nach dem String zyx sucht.

Das ganze soll keine Art Webbrowser werden,da das Prog automatisiert werden soll.Bis jetzt habe ich folgende Ideen:

Weg a.) ich nutze einfach einen älteren Source von meinem Downloader,jedoch erscheint es mir recht unprofessionell die Datei immer und immer wieder herunterzuladen

Weg b.) hab mal gehört,dass man mit GET und POST auch Strings lesen bzw. schreiben kann.Allerdings hab ich nicht wirklich einen Plan wie das geht,denke aber,dass das der bessere Lösungsansatz ist.
//Offtopic:könnte ich damit auch ein PHP Formular online ausfüllen und submitten?

Bin für jede Hilfe dankbar

 

[Myth]

So,hab die Antwort selbst rausgefunden.Wen's interessiert:Einfach ne Internetsession aufbauen zur gewünschte Seite, und remotefile auslesen lassen.Wer genauere Infos braucht soll einfach nochmal schreiben.

 

[SoccaWarrior]

Hallo Myth,

ich würde gerne wissen wie Du das Problem gelöst hast (stehe vor einer ähnlichen Aufgabe). Könntest Du den Quelltext posten oder mir zuschicken - please

 

[RaimundB]

Hallo Myth,

Könntest Du mir die Lösung deines Problemes zukommen lassen, da ich selber daran hänge...

RaimundB

 

[chmee]

Da ich sowas auch gerade geschrieben habe, hier meine Lösung.
Die ist nicht gerade supersauber, aber sie funktioniert.
Man benötigt ein WebbrowserControl und eine
Richtextbox in der Form.

Private Function LoadURL(ByVal sURL As String) As Boolean
        Dim nTimeout As Integer
        Dim vStart As Date
        Dim bResult As Boolean = True

        Me.Cursor = Cursors.WaitCursor
          With WebBrowser1
            ' URL übergeben
            .Navigate(sURL)
            ' Warten, bis vollständig geladen
            ' Timeout auf 30 Sek. festlegen
            nTimeout = 15
            vStart = Now
            Do While .ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
                ' Timeout ?
                If DateDiff(DateInterval.Second, vStart, Now) > nTimeout Then
                    bResult = False
                    Exit Do
                End If
            Loop
        End With
        Me.Cursor = Cursors.Default
        Return bResult
    End Function

Aufruf und Kopieren des Quelltextes in eine RTB

LoadURL(httpstring)
RTB1.Text = WebBrowser1.DocumentText.ToString

Dann kann man an der betreffenden Stelle den Seitenquelltext einfach in eine
Richtextbox rüberkopieren, durchsuchen und parsen.

StartPosition = InStr(1, RTB1.Text, Suchstring, CompareMethod.Text)
RTB1.Select(StartPosition, Endposition)
TS = RTB1.SelectedText

Die Parsing/Erkennungseinheit musst Du Dir schon selbst schreiben

Achja, Nebenbei --> VB.Net 2005 !

mfg chmee