Hente ut informasjon fra kildekode i vb6

[LeifOlav]

Hei. Lurte på hvordan koden blir når jeg skal hente ut noen tegn / tall / bokstaver fra en kildekode på ei internettside..

[aadnk]

Gå til Project -> References og avmerker Microsoft HTML Object Library i listen som kommer opp. Velg OK. Etter det kan du bruke kode som dette (bare et eksempel - du nevnte jo ikke HVA du skulle hente ut spesifikt på hvilken side) til å gjøre det du ønsker:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 

Private Sub Form_Load()

 

    Dim oMSHTML As New MSHTML.HTMLDocument, Document As MSHTML.HTMLDocument, Element As Object

   

    ' Last inn denne trådens side

    Set Document = oMSHTML.createDocumentFromUrl("https://www.diskusjon.no/index.php?showtopic=779469", vbNullString)

   

    ' Vent til dokumentet er nedlastet

    Do While Document.readyState <> "complete"

        Sleep 10

        DoEvents

    Loop

   

    ' Vær sikker på at dokumentet ble nedlastet

    If Not (Document Is Nothing) Then

        ' * Denne delen av implementasjonen er spesifikt til et gitt problem. *

       

        ' Gå gjennom alle elementene

        For Each Element In Document.All

            If InStr(1, Element.nodeValue, "THE POST 8821409", vbTextCompare) <> 0 Then

           

                ' Vi har nå funnet kommentaren i HTML-dokumentet:

                ' <td width="100%" valign="top" class="post2">

                '    <!-- THE POST 8821409 -->

                '    <div class="postcolor">Hei. Lurte på (...) (din post)

               

                ' Neste steg er å hente ut teksten til søskenelementet "div"

                MsgBox Element.nextSibling.innerText

           

            End If

        Next

       

    Else

        MsgBox "Kunne ikke laste ned HTML-dokument.", vbCritical

    End If

 

End Sub

[Merko]

Fikk bruk for denne selv. Funket greit nok

Endret 11. juni 2007 av vbPro