pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 27 déc. 2003 à 13:44
G eu pas mal de probléme avec inet, il est apparement assez capricieux!!!!!
Renfiled ma donné ce code que je n ai pas encore testé, c'est au niveau du buffer de inet que ca merde d apres lui :
Private Function OpenURL(URL As String)
Dim Buffer As String, Ret As String
Buffer = Inet.OpenURL(URL)
While Len(Buffer) > 0
Ret = Ret & Buffer
Buffer = Inet.GetChunk(1024)
Wend
OpenURL = Ret & Buffer
End Function
Sinon moi j'utilise le webbrowser et je pique le code src du web browser qui n'est pas formater de la mm maniére qu'avec inet mais ca marche a chaque fois!!!!
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 27 déc. 2003 à 17:10
Oui, c'est vrai que j'ai galéré aussi pour trouver lol :
Dim CodeSrc As String 'Variable qui contiendra le code source
Private Sub Form_Load() 'lance le navigate sur l 'url
WebBrowser1.Navigate "http://www.yahoo.fr"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'A la fin du chargement de la page on charge le code src dans la variable!!!
CodeSrc = WebBrowser1.Document.documentElement.innerHTML
End Sub
Ps: voila tien moi au courant et s tu a besoin d aide!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Private Function OpenURL(URL As String)
Dim Buffer As String, Ret As String
Buffer = Inet.OpenURL(URL)
While Len(Buffer) > 0
Ret = Ret & Buffer
Buffer = Inet.GetChunk(1024)
Wend
OpenURL = Ret & Buffer
End Function
------ Code Sans la fonction ------
Dim CodeSrc As String
UniCyclon
Messages postés38Date d'inscriptionjeudi 27 juin 2002StatutMembreDernière intervention27 février 2006 27 déc. 2003 à 17:25
Bon, je vais garder avec le webbrowser. Si ça marche chez toi, c'est bien, mais je vais pas prendre le risque que ça ne marche que chez 60% des gens...
Merci quand même
Arf, il me rajoute des balises à la con :
"<HEAD></HEAD>
[mon texte]
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 27 déc. 2003 à 18:19
Normal tu extrait le codesrc de la page, si c du html tu aura tj les balises!!! mais il est trés facile d'extraie que le texte qui t'interesse!!! j'ai fais une src de recherche et d extraction d'affiche et d info sur allociné, a coté de ça ton url, c'est du gateau!!!!!
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 27 déc. 2003 à 18:33
voici un petit exmple dans ton cas, mais il faut voir comment sera mis a jour l 'url et voir si il y aura pas plusieurs ligne a extraire enfin sinon c pas compliquer a modifier tu fais une boucle jusque quand P1 renvoi 0, c'est qu'il y a aura plus de texte a extraire!!!
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'A la fin du chargement de la page on charge le code src dans la variable!!!
CodeSrc$ = WebBrowser1.Document.documentElement.innerHTML
'code exmple pour extraire le texte entre 2 repéres ici "|"!!!
P1% = InStr(1, CodeSrc, "|") + 1
P2% = InStr(P1%, CodeSrc, "|")
TxtExtrait$ = Mid(CodeSrc, P1%, P2% - P1%)
End Sub