Comment faire SVP

[meganet]

Salut,
voilà je voudrais extraire juste l'Host d'une URL.
Par example: http://www.monsite.com/file/ini.php dans une variable je voudrais pouvoir récupairer www.monsite.com et dans une autre, je voudrais /file.init.php.
Merci de votre aide.

[Dorian]

Voici GetHost() :

Code : Tout sélectionner

Procedure.s GetHost(Url.s)
  Pos.l = FindString(Url, "http://", 1)
  If Pos
    Url = Right(Url, Len(Url) - 7)
  EndIf
  Pos = FindString(Url, "/", 1)
  Url = Left(Url, Pos)
  ProcedureReturn Url
EndProcedure


Debug GetHost("http://www.google.fr/files/index.php?search=name")

Et GetFile() arrive dès que je la fini ^^

[Edit] Bon pour GetFile, un GetFilePart(Url.s) de la lib interne de PB suffit ^^

Code : Tout sélectionner

Debug GetFilePart("http://www.google.fr/files/index.php")[quote]

Renvoi correctement : index.php et si tu veux ton "/" devant il suffit d'une tite addition et le tour est joué ^^[/quote]

[meganet]

sa yait, j'avait réussi avant de voir ton code, mais merci qd mm.