[VB6] Copiare dati da una pagina Web estraendoli da una colonna

[peppegiuseppe]

ciao a tutti...
vorrei copiare, mediante un programma vb6, il testo di una pagina web (non il codice sorgente) e incollarla in un file excel... è possibile?

[peppegiuseppe]

Nessuno riesce ad aiutarmi?

[peppegiuseppe]

Up!

[oregon]

Pazienza ... a volte ci vuole un po' per avere delle risposte ...

Intanto puoi leggere la pagina con

    Dim ht As String
    ht = Inet1.OpenURL("www.google.com")

nella stringa ht.

Però bisogna capire cosa vuoi riportare su Excel ... se ci sono immagini o altro potrebbe diventare complicato ...

[peppegiuseppe]

grazie per la risposta, molto gentile
se puo interessare la pagina è questa...http://txodds.com/omoves.php?ot=0
a me interessano solo la tabella composta da
data squadre e tutti i valori fino agli zeri che vedi in fondo

[peppegiuseppe]

ok sono riuscito in questo modo..

Private Sub Form_Load()
Set ie = CreateObject("InternetExplorer.Application") 
ie.navigate "http://txodds.com/omoves.php?ot=0" 
Do Until ie.readystate = 4: Loop 
ht = ie.document.body.innerText 
ie.quit
End Sub

ma non vanno bene 2 cose...
1) viene riportata tutta la pagina
2) non riporta la formattazione originale...ma incolla su una sola e interminabile linea...

[oregon]

Inserisci un textbox multilinea sul form e questa versione di codice

    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate "http://txodds.com/omoves.php?ot=0"
    Do Until ie.ReadyState = 4
    Loop
    
    Dim iht As String
    Dim ihtx As Long
    iht = ie.Document.body.innerText
    ihtx = InStr(iht, "datemat")
    If ihtx > 0 Then
        ihtx = InStr(ihtx, iht, vbCrLf)
        iht = Mid$(iht, ihtx)
    End If
    
    Text1.Text = iht
    
    ie.Quit

[peppegiuseppe]

grazie mille tutto ok...
ho postato un altra domanda... spero di non aver sbagliato ad aprire un altro thread

[peppegiuseppe]

riapro questa discussione... sperando che qualcuno mi aiuti
usando il codice postato da oregon...
nella textbox mi esce qualcosa del genere
22/02 20:45Marseille-Inter162101522.3412.16810483213.1393.16815915362.9 813.32332.240 21/02 20:45Napoli-Chelsea16051552.5132.31710767403.1223.13315515052. 7693.06237.190 21/02 18:00CSKA Moscow-Real Madrid15114566.7767.48413413044.0424.263148161321. 4551.4108.620 23/02 21:05Anderlecht-AZ Alkmaar13121292.1081.95711010643.2673.36713213203. 2463.60823.650 22/02 20:45Basel-Bayern Munchen12350736.0446.02712154673.7883.771140100401 .5311.5483.220 21/02 01:15Tigre-San Martin de San Juan11011001.8561.9268510753.1653.12610812964.0113 .80911.910 23/02 19:00Athletic Bilbao-Lokomotiv Moscow10751021.4651.41110510233.9324.14811311216.6 767.4188.320 23/02 19:00PAOK-Udinese1017942.6912.6076321423.1123.11610510232.52 32.62410.320 26/02 14:30Arsenal-Tottenham1009552.2332.3426854143.2583.3149510853.0 252.87213.780 23/02 21:05Besiktas-Sporting Braga979612.2812.3716120413.1933.182978892.9472.85 413.90 22/02 18:00Manchester City-FC Porto9575201.5671.5768429553.7123.6987122495.5145. 4981.440 21/02 20:45Bath City-Hayes & Yeading954912.0831.985625843.2893.340969513.1343.3 7311.940 21/02 20:45Crewe-Accrington949222.1972.3116216463.2203.2078811773.0 162.88117.160 23/02 21:05Atletico Madrid-Lazio930931.6241.572979343.6103.729939035.1155.516 7.860
come faccio a visualizzare la reale formattazione della tabella web?
cioè in questo modo è tutto attaccato... non si possono distanziare le varie celle?
grazie in anticipo
peppe

[peppegiuseppe]

Up!