cincap
Messages postés460Date d'inscriptiondimanche 5 décembre 2004StatutMembreDernière intervention 6 avril 20092 27 janv. 2007 à 07:58
Bonjour,
Suite à mon message du 25/01/2007,
Après les différents tests, j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique "01...010".
3 fichiers 'maison.txt', 'ciel.txt', 'test.txt'.
Préfixe "test" j'obtiens test_01.txt, test_02.txt et test_03.txt ce qui est le but.
Ma fille avait des fichiers comme photo 01.jpg, photo 02.jpg etc... et elle voulait les renommer avec le préfixe soiree_$.jpg $ = 01
Donc forcément un message d'erreur.
Bonne journée.
@+,
Cincap
cincap
Messages postés460Date d'inscriptiondimanche 5 décembre 2004StatutMembreDernière intervention 6 avril 20092 25 janv. 2007 à 09:27
Bonjour,
Quelqu'un sait me dire pourquoi cette source une fois compilée fonctionne sur certains pc avec win XP ed Familiale pack 2 et pas sur d'autres.
Sur mon Compaq c'est ok, sur le packard bell de ma fille il ne fonctionne pas.
@+,
Cincap
GenEars
Messages postés16Date d'inscriptionmercredi 2 novembre 2005StatutMembreDernière intervention25 janvier 2008 25 sept. 2006 à 14:11
Salut Tonticoeur,
oups ! : je viens de faire à mon tour un code avec la même idée de base que toi (concernant le photos numériques en pagaille)...
Bon ben je vois que c'est un genre très commun, aussi excusez-moi pour le doublon.
A+
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 20 oct. 2004 à 11:36
Très bon programme!
J' en ai un dans le même genre mais avec plusieurs differences. Il permet entre autre de traiter les sous repertoires et de faire une simulation. Il permet la sustitution dans les noms mais aussi d' inserer, de bouger e de retirer des caracteres ...
Je viens de le traduire en Français, je vais de ce pas le poster!!!
Debiars
Messages postés285Date d'inscriptionlundi 16 juin 2003StatutMembreDernière intervention11 février 2018 18 oct. 2004 à 20:07
Dans la série "on peut toujours mieux faire", je viens de remplacer :
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
par
nomfic := ExtractFileName ( tmpFolder.PathName);
tonticoeur
Messages postés1Date d'inscriptionvendredi 12 septembre 2003StatutMembreDernière intervention18 octobre 2004 18 oct. 2004 à 16:40
Pour le filtre, c'est l'évenement "OnCloseUp" de la combo qui vient parturber le fonctionnement. Le mieux est de le supprimer et de faire un return après le sélection.
Concernant le folder, je ne compprends pas : Chez moi le DisplayName renvoi un String et ça fonctionne correctement.
Un petit signalement enfin et pour tout le monde : Il n'y a pas de demande de confirmation alors faite attention à votre sélection, car c'est un renommage violent !
Debiars
Messages postés285Date d'inscriptionlundi 16 juin 2003StatutMembreDernière intervention11 février 2018 18 oct. 2004 à 15:41
Ton prog m'intéresse beaucoup, mais j'ai eu quelques menus problèmes.
La sélection par filtre ne marchait pas (à part *).
"tmpFolder.DisplayName" me renvoie une chaine au format WideString, ce qui fait que TestPrefixe et TestSuffixe répondent toujours "False".
J'ai réussi à tourner la difficulté en remplaçant
if TestPrefixe( prefixe, tmpFolder.DisplayName) and
TestSuffixe( suffixe, tmpFolder.DisplayName)
par
nomfic : String;
---------
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
if TestPrefixe( prefixe, nomfic) and
TestSuffixe( suffixe, nomfic)
dans la procédure Selectionner Filtre.
Y aurait-il plus simple ?
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 15 oct. 2004 à 21:55
Pour une première avec Delphi 7, c'est excellent.
Code bien structuré, documenté et les traitements sont bien isolés de la fiche pour être plus facilement réutilisables.
10/10 : on en redemande !
Si tu as d'autre sources de cette qualité, alors n'hésite pas.
MoveX
Messages postés230Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention16 juillet 20051 15 oct. 2004 à 18:35
ca ressemble beaucoup a un prog que j avais fait, seulement, l upload sur le site avait rate.....
27 janv. 2007 à 07:58
Suite à mon message du 25/01/2007,
Après les différents tests, j'en déduit que cela fonctionne correctement si les fichiers à renommer ne contiennent pas déjà dans le nom une valeur numérique "01...010".
3 fichiers 'maison.txt', 'ciel.txt', 'test.txt'.
Préfixe "test" j'obtiens test_01.txt, test_02.txt et test_03.txt ce qui est le but.
Ma fille avait des fichiers comme photo 01.jpg, photo 02.jpg etc... et elle voulait les renommer avec le préfixe soiree_$.jpg $ = 01
Donc forcément un message d'erreur.
Bonne journée.
@+,
Cincap
25 janv. 2007 à 09:27
Quelqu'un sait me dire pourquoi cette source une fois compilée fonctionne sur certains pc avec win XP ed Familiale pack 2 et pas sur d'autres.
Sur mon Compaq c'est ok, sur le packard bell de ma fille il ne fonctionne pas.
@+,
Cincap
25 sept. 2006 à 14:11
oups ! : je viens de faire à mon tour un code avec la même idée de base que toi (concernant le photos numériques en pagaille)...
Bon ben je vois que c'est un genre très commun, aussi excusez-moi pour le doublon.
A+
20 oct. 2004 à 11:36
J' en ai un dans le même genre mais avec plusieurs differences. Il permet entre autre de traiter les sous repertoires et de faire une simulation. Il permet la sustitution dans les noms mais aussi d' inserer, de bouger e de retirer des caracteres ...
Je viens de le traduire en Français, je vais de ce pas le poster!!!
18 oct. 2004 à 20:07
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
par
nomfic := ExtractFileName ( tmpFolder.PathName);
18 oct. 2004 à 16:40
Concernant le folder, je ne compprends pas : Chez moi le DisplayName renvoi un String et ça fonctionne correctement.
Un petit signalement enfin et pour tout le monde : Il n'y a pas de demande de confirmation alors faite attention à votre sélection, car c'est un renommage violent !
18 oct. 2004 à 15:41
La sélection par filtre ne marchait pas (à part *).
"tmpFolder.DisplayName" me renvoie une chaine au format WideString, ce qui fait que TestPrefixe et TestSuffixe répondent toujours "False".
J'ai réussi à tourner la difficulté en remplaçant
if TestPrefixe( prefixe, tmpFolder.DisplayName) and
TestSuffixe( suffixe, tmpFolder.DisplayName)
par
nomfic : String;
---------
nomfic := tmpFolder.PathName;
while Pos('\',nomfic) > 0 do
Delete(nomfic,1,Pos('\',nomfic));
if TestPrefixe( prefixe, nomfic) and
TestSuffixe( suffixe, nomfic)
dans la procédure Selectionner Filtre.
Y aurait-il plus simple ?
15 oct. 2004 à 21:55
Code bien structuré, documenté et les traitements sont bien isolés de la fiche pour être plus facilement réutilisables.
10/10 : on en redemande !
Si tu as d'autre sources de cette qualité, alors n'hésite pas.
15 oct. 2004 à 18:35