Voila comment je fais pour sélectionner le nom d'un fichier d'une url.
par exemple j'ai une url de ce type dans un TEdit :
http://www.web.fr/fichier.zip
et pour des raisons quelconque, j'ai besoin de récupérer "fichier.zip".
Source / Exemple :
var
Taille, i: integer;
url, chaine2: string;
begin
url:= Edit1.Text;
Taille:= Length(url); //on compte le nbre de caracteres de l'url
for i:= Taille downto 0 do //on décompte jusqu'a 0
begin
if url[i] = '/' then //on regarde si on rencontre / pendant le décompte.
begin
chaine2:= Copy(url, i + 1, Taille); //si oui, on copie la chaine
ShowMessage(chaine2); //entre i+1 et la fin
Exit; // on sort pour arreter au 1er / rencontré.
end;
end;
end;
Conclusion :
Length(url) permet de connaitre le nombre de caracteres de l'url.
On décompte de cette valeur jusqu'a 0, en cherchant le signe : /
si on le trouve, alors on copie la string qui se situe entre le signe / et la fin, sans prendre le /.
j'ai mis un ShowMessage pour voir vérifier le fonctionnement, mais le but, et d'utiliser chaine2 autre part.
enfin, on quite pour ne pas répéter la boucle for.
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.