Récuppérer le nom du fichier d'une url

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 720 fois - Téléchargée 31 fois

Contenu du snippet

Ce code permet de récuppérer le fichier qui est spécifié dans une URL.

Par exemple avec l'url 'http://www.mp3guest.com/default.asp' , la fonction retournera 'index.asp'

Source / Exemple :


function Right(str: string; numchars:integer):string;
    begin
    result := copy(str, (length(str)-numchars)+1, numchars);
    end;
    function Left(str: string; numchars:integer):string;
    begin
    result := copy(str, 0, numchars);
    end;

Function GetFilefromURL (URL:string):string;
var
sl : string;
st : string;
i : integer;
begin

 i := 0     ;
while not ((st) = ('/')) do
 begin
        i := i + 1                   ;
        sl := left(URL  , length(URL)- i      )  ;
        st := (right(sl,1));
 end;
   GetFilefromURL := right(URL,i);
end;

Conclusion :


Txt := GetFilefromURL ('Http://www.mp3guest.com/default.asp')

Txt vaut alors default.asp'

A voir également

Ajouter un commentaire

Commentaire

Filipe35
Messages postés
496
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007
-
Pour ceux qui voudrait utiliser cette source, attention (!) celle-ci effectue une boucle infinie avec une chaine vide passée en paramêtre ... à vous de vérifier avant d'appeler la fonction.

Cela dit, c'est une bonne source ;-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.