capricorne83
Messages postés48Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention15 novembre 2013
-
2 janv. 2008 à 05:16
capricorne83
Messages postés48Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention15 novembre 2013
-
2 janv. 2008 à 12:44
Bonjour
J'utilise une fonction pour récupérer le source d'une page HTML via un composant Inet pour ensuite effectuer une recherche dans le fichier texte créé. Bizarrement la fonction qui a très bien tournée jusqu'à présent ne me renvoie plus qu'une toute petite partie du source.
Voila la fonction. Je répète que celle-ci a bien fonctionnée jusqu'a présent.
Function getsourcehtml(adresse As String) As String
On Error Resume Next
Dim codeHTML As String, ladresse
With Inet1
.AccessType = icUseDefault
.Protocol = icHTTP
codeHTML = .OpenURL(adresse, icString)
Do Until .StillExecuting = False
DoEvents
Loop
End With
getsourcehtml = codeHTML
End Function
capricorne83
Messages postés48Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention15 novembre 2013 2 janv. 2008 à 12:44
Salut merci de vos reponses................; j ai vire le on resume next, aucune erreur n'est generee le fichier texte est incomplet........ il ne recupere que les 13 premieres lignes........ (en passant sous word on trouve 1017 caracteres recuperes j ia pense pendant un moment a une limite... 1024 quelque chose mais non...... A RENFIELD j ai pas tout compris ton message la...... quant a PCPT je ne cherche qu'a recuperer le code source de la page pas de fichier...... le module trouve sur le snippet dont tu parles ressemble a celui que j utilise....... (simple changement dans le type de variable recupere).......