Joindre 2 string mais en les positionnant

Version imprimable

07/08/2006, 15h31
PimpW

Joindre 2 string mais en les positionnant
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:

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 !!!!

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

Code:

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é

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

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.

07/08/2006, 20h53
Jipété

Yep !

Aide D7 :

Citation:

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