Pour lire le contenu d'une page web, j'utilise la fonction ReadInURl trouvée sur MémoAccess, elle fonctionne trés bien mais 3 fois par session ???
Dans la fonction "fReadInURL( )", augmente le "Buffer" a une valeur par défaut à 10 ou 50000 au lieu de 1000
Function fReadInURL(strURL As String, _ Optional LenBuf As Long = 50000) _ As String Dim sBuffer As String sBuffer = Space(LenBuf)
OK ?
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
reno
Merci de ta réponse,
Je l'avait déjà augmenter à 3000 en lors de l'apel de la fonction por etre sur de récupérer le texte qui m'interesse. La fonction marche mais si elle est appelée plusieurs fois ça plante (au bout de 3 fois en général)
j'ai réglé le probléme en téléchargant le fichier puis le passer à un objet textstream et avec la fonction inStr je sais si le texte recherché est présent ou pas (il s'agit d'un lien sur une page de météofrance si ce lien est présent un BMS est en cours de validité sinon non, je teste toute les 10mn)
PS : BMS = bulletin de météo spéciale (vent fort)
merci
Salut,
"reno"
Pour lire le contenu d'une page web, j'utilise la fonction ReadInURl trouvée sur MémoAccess, elle fonctionne trés bien mais 3 fois par session ???
Dans la fonction "fReadInURL( )", augmente le "Buffer" a une valeur par défaut à 10 ou 50000 au lieu de 1000
Function fReadInURL(strURL As String, _ Optional LenBuf As Long = 50000) _ As String Dim sBuffer As String sBuffer = Space(LenBuf)
OK ?
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Merci de ta réponse,
Je l'avait déjà augmenter à 3000 en lors de l'apel de la fonction por etre
sur de récupérer le texte qui m'interesse. La fonction marche mais si elle
est appelée plusieurs fois ça plante (au bout de 3 fois en général)
j'ai réglé le probléme en téléchargant le fichier puis le passer à un objet
textstream et avec la fonction inStr je sais si le texte recherché est
présent ou pas (il s'agit d'un lien sur une page de météofrance si ce lien
est présent un BMS est en cours de validité sinon non, je teste toute les
10mn)
PS : BMS = bulletin de météo spéciale (vent fort)
merci
Salut,
"reno"
Pour lire le contenu d'une page web, j'utilise la fonction ReadInURl trouvée
sur MémoAccess, elle fonctionne trés bien mais 3 fois par session ???
Dans la fonction "fReadInURL( )", augmente le "Buffer" a une valeur
par défaut à 10 ou 50000 au lieu de 1000
Function fReadInURL(strURL As String, _
Optional LenBuf As Long = 50000) _
As String
Dim sBuffer As String
sBuffer = Space(LenBuf)
OK ?
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Je l'avait déjà augmenter à 3000 en lors de l'apel de la fonction por etre sur de récupérer le texte qui m'interesse. La fonction marche mais si elle est appelée plusieurs fois ça plante (au bout de 3 fois en général)
j'ai réglé le probléme en téléchargant le fichier puis le passer à un objet textstream et avec la fonction inStr je sais si le texte recherché est présent ou pas (il s'agit d'un lien sur une page de météofrance si ce lien est présent un BMS est en cours de validité sinon non, je teste toute les 10mn)
PS : BMS = bulletin de météo spéciale (vent fort)
merci
Salut,
"reno"
Pour lire le contenu d'une page web, j'utilise la fonction ReadInURl trouvée sur MémoAccess, elle fonctionne trés bien mais 3 fois par session ???
Dans la fonction "fReadInURL( )", augmente le "Buffer" a une valeur par défaut à 10 ou 50000 au lieu de 1000
Function fReadInURL(strURL As String, _ Optional LenBuf As Long = 50000) _ As String Dim sBuffer As String sBuffer = Space(LenBuf)
OK ?
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
