Discussion :

[kinansoag]

Bonjour,


je suis entrain de créer un code dans lequel, je veux, faire une copie de fichier vers un répertoire avec incrémentation du nouveau fichier à créer si ce fichier existe déjà. ce n'est pas difficile de creer un fichier différent, mais je veux utiliser une boucle afin d'alyser si le fichier en cours de création existe déjà, passer à l'incrémentation suivante, jusqu'au nom de fichier à retenir.

Le problème est que je force d'utiliser une boucle dans un SI...Fin et je ne sais pas si c'est faisable aussi facilement. le " ALORS" me reclame un si de FIn que je n'arrive pas à bien positionner.

je veux créer des fichier comme, client1, client2, client3, client4, avec copie incrémentée automatique sans passer par la boîte de dialogue de cofirmation d'écrasement.

Si quelqu'un à une idée plus simple , il est la bienvenue.

merci.

voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
res est un booléen
gsRep2 = SC_SelecteurRépertoire
Fich1 = SC_SelecteurFichier
fic est une chaîne = ExtraitChaîne(Fich1,1,"\",DepuisFin)
Nom est une chaîne = ExtraitChaîne(fic,1,".",DepuisDébut)
sExtension est une chaîne = ExtraitChaîne(fic,1,".",DepuisFin)
Incrémente est un entier = 0
Trace(fic)
Trace(Nom)
Trace(sExtension)
nIndice est un entier = 1

// vérifier si le fichier existe déjà dans le fichier de destination
 // créer une boucle qui test l'existence du fichier crée si vrai , créer un autre fichier +1 et supprimer l'ancien. ( BOUCLE,  et sortir avec tantque fichier existe = faux) 

SI  fFichierExiste(gsRep2+"\"+fic) = Vrai  ALORS   // incrémente de  1	
 BOUCLE
 Incrémente++
 nIndice = Incrémente 
// res= fCopieFichier(Fich1,gsRep2+"\" + Nom+nIndice +"."+ sExtension, frJauge)
 // creer le prochain fichier à vérifier tout tant le supprimant avant.
 fic= Nom + nIndice + "."+ sExtension   // test l'existence de ce dernier, si vrai, le supprime et créer un autre + 1 dans une boucle

res =  fFichierExiste(gsRep2+"\"+fic)  // incrémente de  1
 TANTQUE   res = -1 // fFichierExiste(gsRep2+"\"+fic) = Faux
SORTIR	 	
  res= fCopieFichier(Fich1, gsRep2 + "\"+ fic,frJauge) 
  FIN
 SINON   // copie le fichier sous le même nom dans le repertoire
    res= fCopieFichier(Fich1,gsRep2,frJauge)	
    FIN 
 FIN

[SevenSoftware]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
gsRep2 = SC_SelecteurRépertoire
Fich1 = SC_SelecteurFichier
fic est une chaîne = ExtraitChaîne(Fich1,1,"\",DepuisFin)
Nom est une chaîne = ExtraitChaîne(fic,1,".",DepuisDébut)
sExtension est une chaîne = ExtraitChaîne(fic,1,".",DepuisFin)
Incrémente est un entier = 0
 
TANTQUE fFichierExiste(gsRep2+"\"+fic) ALORS // incrémente de 1 
  Incrémente++
  fic= Nom + Incrémente + "."+ sExtension
FIN
res= fCopieFichier(Fich1,gsRep2+"\" + fic, frJauge)
// etc...

Dans votre boucle TANTQUE, l'instruction après le SORTIR ne s'executera jamais.

[Nicolas_Jeanneau]

Bonjour,

comme il y avait des erreurs un peu partout, je te propose une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
res est un booléen
gsRep2 = SC_SelecteurRépertoire
Fich1 = SC_SelecteurFichier
fic est une chaîne = ExtraitChaîne(Fich1,1,"\",DepuisFin)
Nom est une chaîne = ExtraitChaîne(fic,1,".",DepuisDébut)
sExtension est une chaîne = ExtraitChaîne(fic,1,".",DepuisFin)
 
Trace(fic)
Trace(Nom)
Trace(sExtension)
 
nIndice est un entier = 1
 
TANTQUE fFichierExiste(gsRep2+"\"+fic)
	fic= Nom + NumeriqueVersChaine(nIndice,"05d") + "."+ sExtension
	nIndice += 1
FIN
 
SI fCopieFichier(Fich1, gsRep2 + "\"+ fic,frJauge) ALORS
   Info("Copie effectuée !")
SINON
   Erreur("Y a un pépin !",ErreurInfo())
FIN

Notes que dans le nom du fichier, tu pourrais avoir des "." donc il vaut mieux utiliser utiliser une autre façon d'extraire cette partie là ...

par exemple :

Code :

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

Nom est une chaîne = Gauche(fic, Taille(fic) - (1+Taille(sExtension)))

De plus, je préfère formater les indices de fichiers sur plusieurs chiffres car pour la lecture dans le répertoire, lorsque tu as plusieurs milliers de fichiers, c'est plus facile.

Je pense que par défaut le premier fichier devrait porter l'indice 00001 mais ce n'est que mon avis !

à bientôt,

Nicolas

[MeDeVa]

Bonjour,
Pour récupérer le nom, l'extension et le chemin de votre fichier, je vous conseil d'utiliser la fonction fExtraitChemin() :

sNomFichier est une chaine = fExtraitChemin("Chemin_Complet_du_Fichier",fFichier)
sExtention est une chaine = fExtraitChemin("Chemin_Complet_du_Fichier",fExtension)
sCheminFichier est une chaine = fExtraitChemin("Chemin_Complet_du_Fichier",fDisque+fRépertoire)

Sinon la solution de Nicolas_Jeanneau me parait claire et optimale.

Bon courage.

[kinansoag]

Bonjour, je vous remercie tous pour l'intérêt que vous portez à nos préoccupations,

par rapport à mon problème, et suite à vos observations j'ai rectifié certaines erreur : d'abord pas besoins de créer la variable indice

2- la proposition de SevenSoftware marche très bien ça me permet de créer des fichiers incrémentés , client, client0, client1, client2, clientn ...etc

Je me pose une question, n'a ton pas besoins d'une condition de sortie de cette boucle tantque. J'ai introduit une condition de sortie et ça marche toujours.

Mais quand j'éssai avec l'instruction " BOUCLE", ça ne marche pas, mais je l'ai oublié.

code qui marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
res est un booléen
gsRep2 = SC_SelecteurRépertoire
Fich1 = SC_SelecteurFichier
fic est une chaîne = ExtraitChaîne(Fich1,1,"\",DepuisFin)
Nom est une chaîne = ExtraitChaîne(fic,1,".",DepuisDébut)
sExtension est une chaîne = ExtraitChaîne(fic,1,".",DepuisFin)
Incrémente est un entier = 0
nIndice est un entier = 1
// vérifier si le fichier existe déjà dans le fichier de destination
 // créer une boucle qui test l'existence du fichier crée et et chaque qu'il existe, créer uun autre fichier +1 et supprimer l'ancien. ( BOUCLE,  et sortir avec tantque ffichier existe = faux) 
TANTQUE  fFichierExiste(gsRep2+"\"+fic) = Vrai  // incrémente de  1	
Incrémente++
nIndice = Incrémente //    
// creer le prochain fichier  .
fic= Nom + nIndice + "."+ sExtension   // pas besoin de créer indice, donc remplacable par "incrémente"   
SI fFichierExiste(gsRep2+"\"+fic) = Faux ALORS SORTIR  
FIN
//  si non copier le fichier sous nom d'origine	 	
res= fCopieFichier(Fich1, gsRep2 + "\"+ fic, frJauge)

code planté : // dans ce cas, j'ai essayé avec une boucle de type "BOUCLE"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
// vérifier si le fichier existe déjà dans le fichier de destination
// créer une boucle qui test l'existence du fichier crée et et chaque qu'il existe, créer uun autre fichier +1 et supprimer l'ancien. ( BOUCLE,  et sortir avec tantque ffichier existe = faux) 
BOUCLE 
res= fFichierExiste(gsRep2+"\"+fic) = Vrai  // incrémente de  1
Incrémente++
nIndice = Incrémente //    
// creer le prochain fichier  .
fic= Nom + Incrémente + "."+ sExtension   
SI fFichierExiste(gsRep2+"\"+fic) = Faux ALORS SORTIR	
FIN
//  si non copier le fichier sous nom d'origine	 	
res= fCopieFichier(Fich1, gsRep2 + "\"+ fic, frJauge)

3 - Pour la proposition de Nicolas Janneau,

-le premier fichier se crée facilement du genre client0001, mais pour la senconde copie, il ya plantage. d'où vient le problème ???

Merci, pour le rappel des nom de fichier contenant des "."

code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TANTQUE  fFichierExiste(gsRep2+"\"+fic) 
 
// creer le prochain fichier à vérifier tout tant le supprimant avant.	
fic= Nom +  NumériqueVersChaîne(nIndice,"05d") + "."+ sExtension   
Incrémente++ 	
FIN
 
SI fCopieFichier(Fich1 ,gsRep2+"\"+fic,frJauge) = Vrai   // incrémente de  1 ALORS
Info("le fichier " + " " + Fich1 + " " + " a été copié sous le nom de " + " " + fic )	
SINON 
Info(" Erreur le fichier " + " "+ Fich1 + " " + " n ' a pas été copié" + ErreurInfo())	
FIN

a plus

[Nicolas_Jeanneau]

c'est juste que tu augmentes Incremente au lieu de nindice ....

[Nicolas_Jeanneau]

La condition de sortie du TANTQUE est ce qui suit TANTQUE. Exemple :

Code :

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

1
2
3
4
ResultatDuTest = Test
TANTQUE ResultatDuTest = vrai
    ResultatDuTest = NouveauTest
FIN

La boucle tourne jusqu'à ce que NouveauTest rendre un résultat faux !
Attention donc à faire en sorte que cela arrive à un moment ou à un autre ....