Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
"Nicolas" a écrit dans le message de news:079d01c3c9fa$902ef7b0$
Bonjour,
Sur mon form j'ai 3 controls : Inet, WebBrowser et TextBox
Pour le moment j'arrive bien à afficher une page web dans dans mon controle WebBrowser.
Mon projet est de rapatrier toutes les fiches films du site allocine (pour ne pas leur faire de la pub)
Je fais donc une boucle sur i de 1 à 60000 En je récupère la page :
http://www.allocine.fr/film/fichefilm_gen_cfilm=" & i & ".html"
J'extrait ensuite les informations du code html avec WebBrowser1.Document.documentElement.innerHTML
Mais voila : comment faire comprendre à programme que la page est totalement chargée pour qu'il puisse passer à la suivante ?
J'ai bien essayé avec WebBrowser1_DocumentComplete mais les pages se chargent plusieurs fois d'affilée.
Bonjour/soir,
Pour charge les pages, ça devrait donner à peu près ceci (non testé):
Private ComptePage As Long Private Const MAX_PAGE = 60000
Private Sub Form_Load() GetNextPage End Sub
Private Sub GetNextPage() If ComptePage <= MAX_PAGE Then
WebBrowser1.Navigate("http://www.allocine.fr/film/fichefilm_gen_cfilm=" & ComptePage) ComptePage = ComptePage + 1 End If End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If lcase$(URL)= "http://www.allocine.fr/film/fichefilm_gen_cfilm=" & (ComptePage-1) Then 'Récupération des informations 'Stoquage éventuel dans une bdd GetNextPage End If End Sub
Par contre, je sais pas s'il vont être content des 60000 requêtes.. Peut-être devrais-tu te renseigner s'ils n'ont pas un fichier xml accessible permettant de récupérer toutes les données en une requête?
"Nicolas" <nicolasheurtevin@wanadoo.fr> a écrit dans le message de
news:079d01c3c9fa$902ef7b0$a101280a@phx.gbl
Bonjour,
Sur mon form j'ai 3 controls : Inet, WebBrowser et TextBox
Pour le moment j'arrive bien à afficher une page web dans
dans mon controle WebBrowser.
Mon projet est de rapatrier toutes les fiches films du
site allocine (pour ne pas leur faire de la pub)
Je fais donc une boucle sur i de 1 à 60000
En je récupère la page :
http://www.allocine.fr/film/fichefilm_gen_cfilm=" & i
& ".html"
J'extrait ensuite les informations du code html avec
WebBrowser1.Document.documentElement.innerHTML
Mais voila : comment faire comprendre à programme que la
page est totalement chargée pour qu'il puisse passer à la
suivante ?
J'ai bien essayé avec WebBrowser1_DocumentComplete mais
les pages se chargent plusieurs fois d'affilée.
Bonjour/soir,
Pour charge les pages, ça devrait donner à peu près ceci (non testé):
Private ComptePage As Long
Private Const MAX_PAGE = 60000
Private Sub Form_Load()
GetNextPage
End Sub
Private Sub GetNextPage()
If ComptePage <= MAX_PAGE Then
WebBrowser1.Navigate("http://www.allocine.fr/film/fichefilm_gen_cfilm=" &
ComptePage)
ComptePage = ComptePage + 1
End If
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
If lcase$(URL)= "http://www.allocine.fr/film/fichefilm_gen_cfilm=" &
(ComptePage-1) Then
'Récupération des informations
'Stoquage éventuel dans une bdd
GetNextPage
End If
End Sub
Par contre, je sais pas s'il vont être content des 60000 requêtes..
Peut-être devrais-tu te renseigner s'ils n'ont pas un fichier xml accessible
permettant de récupérer toutes les données en une requête?
"Nicolas" a écrit dans le message de news:079d01c3c9fa$902ef7b0$
Bonjour,
Sur mon form j'ai 3 controls : Inet, WebBrowser et TextBox
Pour le moment j'arrive bien à afficher une page web dans dans mon controle WebBrowser.
Mon projet est de rapatrier toutes les fiches films du site allocine (pour ne pas leur faire de la pub)
Je fais donc une boucle sur i de 1 à 60000 En je récupère la page :
http://www.allocine.fr/film/fichefilm_gen_cfilm=" & i & ".html"
J'extrait ensuite les informations du code html avec WebBrowser1.Document.documentElement.innerHTML
Mais voila : comment faire comprendre à programme que la page est totalement chargée pour qu'il puisse passer à la suivante ?
J'ai bien essayé avec WebBrowser1_DocumentComplete mais les pages se chargent plusieurs fois d'affilée.
Bonjour/soir,
Pour charge les pages, ça devrait donner à peu près ceci (non testé):
Private ComptePage As Long Private Const MAX_PAGE = 60000
Private Sub Form_Load() GetNextPage End Sub
Private Sub GetNextPage() If ComptePage <= MAX_PAGE Then
WebBrowser1.Navigate("http://www.allocine.fr/film/fichefilm_gen_cfilm=" & ComptePage) ComptePage = ComptePage + 1 End If End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If lcase$(URL)= "http://www.allocine.fr/film/fichefilm_gen_cfilm=" & (ComptePage-1) Then 'Récupération des informations 'Stoquage éventuel dans une bdd GetNextPage End If End Sub
Par contre, je sais pas s'il vont être content des 60000 requêtes.. Peut-être devrais-tu te renseigner s'ils n'ont pas un fichier xml accessible permettant de récupérer toutes les données en une requête?
