Lire le contenu d'un fichier sur internet

[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 ?

[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

[Xizvak]

Aaah merci beaucoup