Discussion :

[PimpW]

Mon probleme est le suivant ...

J ai un chemin sous forme d adresse internet
mais l adresse peut changer et le nombres de sous dossiers n est jamais le meme.
Mon but est de changer la fin de l adresse et la remplacer par un fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Example : 
 
 http://www.yahoo.ca/fichiers/blablabla/oupsencore/...../index.html
 
et remplacer index.html par   01.jpg

comme je disait ca change toujours, la seule chose dont je puisse m inspirer est le fait que c est toujours apres le dernier " / " donc je doit trouver une facon d identifier le dernier " / " et remplacer la parti suivante

L adresse est contenu dans un Tedit et les nom de fichier son dans un listbox.

Merci a l avance pour vos suggestions !!!!

[edam]

2 solution:
-voir extractfilepath
-crée une fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function extact(s:string):string;
var 
   j:integer;
begin
     result:='';
     j:=length(s);
     while (j>0) and (s[j]<>'/') do dec(j);
     if j=0 then exit;
     result:=copy(s,1,j-1);
end;

pas testé

[portu]

Si tu es sûr que la fin de l'adresse se termine par "index.html", tu peux faire ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Var
New_Adresse : String;
Begin
///Boucle parcourant le ListBox1
//Edit1 possède l'adresse initiale 
//http://www.yahoo.ca/fichiers/blablabla/oupsencore/...../index.html 
New_Adresse := Copy(Edit1.Text,1,Pos('index.html',Edit1.text))+ListBox1.Items[X]; ...
end;

Maintenant, une fonction (Du genre d'Edam) serait plus propre et passe par tout.

[Jipété]

Yep !

Aide D7 :

LastDelimiter, fonction

Renvoie l'indice d'octet du dernier caractère qui correspond à l'un quelconque des caractères d'un ensemble spécifié de délimiteurs.

Unité

SysUtils

Catégorie

routines de gestion des chaînes

Syntaxe Delphi :

function LastDelimiter(const Delimiters, S: string): Integer;

Description

Appelez LastDelimiter pour localiser le dernier délimiteur d'une chaîne spécifiée.

Delimiters est une chaîne dans laquelle chaque paramètre est un délimiteur valide.

S est la chaîne permettant de chercher les délimiteurs.

Par exemple, la ligne

MyIndex := LastDelimiter('\.:','c:\nomfic.ext');

affecte 12 à MyIndex.

Avec un système de caractères codés sur plusieurs octets (MBCS), S peut contenir des caractères de deux octets, mais les délimiteurs du paramètre Delimiters doivent tous être des caractères mono-octets non nuls.

Et voili et voilou !
JP