Page 1 sur 1
Lire le contenu d'un fichier sur internet
Publié : ven. 19/sept./2008 10:05
par Xizvak
Bonjour, je tente de lire(non de le telecharger) le contenu d'un fichier txt placé sur un serveur mais impossible de le lire. J'ai testé la technique suivante :
Code : Tout sélectionner
....
url1$=GetURLPart("http://www.site.com/file.txt",#PB_URL_Site)
url2$=GetURLPart("http://www.site.com/file.txt",#PB_URL_Path)
file$=url1$+"/"+url2$
If OpenFile(1,file$)
PrintN("ok")
CloseFile(1)
Else
PrintN("connexion impossible")
EndIf
input()
...
Y'a-t-il une solution ?
Publié : ven. 19/sept./2008 11:05
par Ar-S
Soit tu récupères d'abord le fichier (ReceiveHTTPFile) et tu le lis en local (mais j'ai pas l'impression que tu veuilles faire ça), soit tu récupères la source, à ce moment tu peux ensuite filtrer son contenu.
Code : Tout sélectionner
url$="http://google.com" ; l'url de ton .txt
;Procédures de Droopy me semble t il.
ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
;/ Author : Pille
isLoop.b=1
INET_RELOAD.l = $80000000
hInet.l=0
hURL.l=0
Bytes.l=0
Buffer.s= Space (2048 )
RES.s= ""
hInet = InternetOpen_ ( "" , OpenType, ProxyAndPort, "" , 0)
hURL = InternetOpenUrl_ (hInet, Url, #Null , 0, INET_RELOAD, 0)
Repeat
InternetReadFile_ (hURL,@Buffer, Len (Buffer), @Bytes)
If Bytes = 0
isLoop=0
Else
RES = RES + Left (Buffer, Bytes)
EndIf
Until isLoop=0
InternetCloseHandle_ (hURL)
InternetCloseHandle_ (hInet)
ProcedureReturn RES
EndProcedure
ProcedureDLL.s Url2Text(Url.s)
ProcedureReturn Url2Text2(Url,1, "" )
EndProcedure
source$=Url2Text(url$) ; tu vas chercher la source de l'URL
MessageRequester ("Source",source$) : End
Publié : sam. 20/sept./2008 17:24
par Xizvak
Aaah merci beaucoup
