Discussion :

[apen2k2]

Voila mon petit probleme:
JE doit trouver un nombre dans une chaine de caractere(qui est en fait le nom d'un fichier). Cette fonction doit permettre de navihuer entre les différentes images d'un repertoire.
Voici un exembple pour etre plus précis:

Dans un fichier N°VendeurP13.jpg je voudrais retrouver la valeur '13' afin de pouvoir passer a la diapo suivante ou précéedentes.
Je vous remerci bcp et si vous avez un autre solution pour mon diaporama... MERCI

[zworg]

Quelle est exactement la question ?
Est-ce que les noms de fichier ont la même forme ?
Pour résoudre ton problème, il te faut utiliser les fonctions pos, copy length et consorts dans un algo que je te laisse le soin d'écrire

[apen2k2]

Les fichiers sont tous de la meme forme :
N°VendeurP"chiffre".jpg

Ce qu'il me faudrait est une fonction qui me donne la chaine de caractere contenu entre 2 separateurs que jorai determiner

Merci de vos réponses.

[bjl]

Salut

Code :

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

1
2
3
4
5
 
function TMainform.gauche(substr: string; s: string): string;
begin
  result:=copy(s, 1, pos(substr, s)-1);
end;

Code :

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

1
2
3
4
5
6
 
function TMainform.droite(substr: string; s: string): string;
begin
  if pos(substr,s)=0 then result:='' else
    result:=copy(s, pos(substr, s)+length(substr), length(s)-pos(substr, s)+length(substr));
end;

Code :

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

1
2
 
s:=droite('VendeurP',gauche('.',Nomfichier));

Trouvable en faisant des recherches dans les tutoriaux

[agh]

Bah a mon avis, il faudrait faire un truc avec des POS() du style :

* POS('P')+1 ce qui donne la position du premier chiffre
* POS('.') qui donne la position du point de l'extension

Après, vous faites une soustraction, et vous faites Copy() des bornes que l'ont vient de trouver...

Ce n'est qu'une exquise esquisse de la solutio, veuillez me pardoner.

[apen2k2]

MERCI Bcp de vos réponses mais agh jaimerai que tu me donne des précisions...
Je voit bience que tu veux que je fasse avec la fct POS mais elle ne me retourne qu'un rang dans chaine ....
Comment my prendre pour cette soustraction qui me renverrai la chaine???

[apen2k2]

MERCI BCP BJL TU MA VRAIMENT AIDEEE 8) 8) 8) 8)
MERCI VOUS ETES TROP RAPIDE

[apen2k2]

Merci bjlmais jai un dernier pb
A la compilation il me dit :

Code :

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

1
2
 
[Erreur] Unit1.pas(34): Caractère incorrect dans le fichier d'entrée : ' ' ($A0)

Merci et je vais modifier le tag

[bjl]

Salut

et qu'as tu dans ta ligne 34 ?

[apen2k2]

Bon ayai a trouver
MERCI BCP BJL !!!