vb6 data uit een website lezen

[anoniem]

Ik heb een moeilijke vraag : Heeft iemand een voorbeeld code in vb6 om data uit een website te lezen die vervolgens weer gebruikt kan worden. Bv. ergens op een pagina staat "Sun 8 Lib 44'59". Ik moet dan Sun, 8, Lib, 44 en 59 in aparte varaiabelen opslaan en verder mee rekenen. Vast zeer bedankt. mvrg Axel Holtz

[anoniem]

Om de HTML van een pagina te krijgen moet je de Microsoft Internet Transfer Control gebruiken. Vervolgens zet je de HTML in een RichEdit, zoekt naar de tekst die je wilt hebben, en ga je vervolgens met een Do-While alle woorden af. Terwijl je dit doet vul je een dynamische array in. Ik zal morgen (nu te laat) wel even een voorbeeld-programma schrijven.

[anoniem]

Oké, hier een stukje code dat wat jij wilt bijna 100% uitvoert (alleen de ' en de " bij 44 en 59 blijven aanwezig). Je moet een form aanmaken, een Microsoft Internet Transfer Control 6.0 toevoegen met de naam 'inet' (zonder de quotes). Vervolgens kopieër onderstaand stukje VB6 code en roep je de functie aan in bijvoorbeeld de Load functie van het form. [code:1:c264794a1e] Dim strHTMLsource As String Dim strSearchText As String Dim strWoorden() As String Dim intGevondenPositie As Integer Private Sub Test() 'De HTML broncode ophalen strHTMLsource = inet.OpenURL( _ "http://www.computertotaal.nl/voorpagina/index.html") 'Zoeken naar een stukje tekst intGevondenPositie = InStr(1, strHTMLsource, _ "Sun 8 Lib 44'59") 'Als we het stukje tekst hebben gevonden, ontleden we het 'en kunnen we de woorden in een array zetten If intGevondenPositie <> 0 Then strWoorden = Split(Mid(strHTMLsource, _ intGevondenPositie, len("Sun 8 Lib 44'59")), " ") End If End Sub [/code:1:c264794a1e] Ik hoop dat dit wat helpt.