begin process at 2008 05 14 01:30:50
1 171 600 membres
12 nouveaux aujourd'hui
13 961 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER


Information sur la source

Catégorie :Divers Classé sous : Fichier, Dossier, Renommer, Préfixe Niveau : Initié Date de création : 03/01/2008 Vu : 1 363

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Vous disposez d'un dossier où les noms de plusieurs fichiers commencent par la même chaine.
Vous voulez remplacer cette chaîne par une autre pour tous les fichiers.
Cette fonction le fait très bien, sans problème pour un très grand nombre de fichiers.

Source

  • FUNCTION RenameFilePrefixes(cDir,cOld,cNew)
  • LOCAL cFileName, cRightPart
  • IF( DIRECTORY(cDir) .AND. !EMPTY(cOld) .AND. !EMPTY(cNew) .AND. cOld != cNew )
  • SET DEFAULT TO "&cDir"
  • cFileName = SYS(2000,cOld+"*.*")
  • DO WHILE( !EMPTY(cFileName) )
  • IF( LEN(cNew) > LEN(cOld) ) && Evite de boucler infiniment
  • DO WHILE( !EMPTY(cFileName) .AND. cNew = LEFT(cFileName,LEN(cNew)) )
  • cFileName = SYS(2000,cOld+"*.*",1) && Passage au fichier suivant
  • ENDDO
  • ENDIF
  • IF( !EMPTY(cFileName) )
  • cRightPart = SUBSTR(cFileName,LEN(cOld)+1) && Partie de droite à garder
  • RENAME "&cOld"+"&cRightPart" TO "&cNew"+"&cRightPart" && Remplacement du préfixe
  • cFileName = SYS(2000,cOld+"*.*") && Passage au fichier suivant
  • ENDIF
  • ENDDO
  • SET DEFAULT TO
  • RETURN .T.
  • ELSE
  • RETURN .F.
  • ENDIF
  • ENDFUNC
FUNCTION RenameFilePrefixes(cDir,cOld,cNew)
	LOCAL cFileName, cRightPart
	IF( DIRECTORY(cDir) .AND. !EMPTY(cOld) .AND. !EMPTY(cNew) .AND. cOld != cNew )
		SET DEFAULT TO "&cDir"
		cFileName = SYS(2000,cOld+"*.*")
		DO WHILE( !EMPTY(cFileName) )
			IF( LEN(cNew) > LEN(cOld) )							&& Evite de boucler infiniment
				DO WHILE( !EMPTY(cFileName) .AND. cNew = LEFT(cFileName,LEN(cNew)) )
					cFileName = SYS(2000,cOld+"*.*",1)			&& Passage au fichier suivant
				ENDDO
			ENDIF
			IF( !EMPTY(cFileName) )
				cRightPart = SUBSTR(cFileName,LEN(cOld)+1)				&& Partie de droite à garder
				RENAME "&cOld"+"&cRightPart" TO "&cNew"+"&cRightPart"	&& Remplacement du préfixe
				cFileName = SYS(2000,cOld+"*.*")						&& Passage au fichier suivant
			ENDIF
		ENDDO
		SET DEFAULT TO
		RETURN .T.
	ELSE
		RETURN .F.
	ENDIF
ENDFUNC

Conclusion

La fonction renvoie .T. si tout s'est bien déroulé.
  • signaler à un administrateur
    Commentaire de econs le 06/01/2008 09:44:49 administrateur CS 10/10

    Pas eu l'occasion de tester, mais à vue de nez, les tests de base sont présents et efficaces. Bravo !

Ajouter un commentaire

Discussions en rapport avec ce code source

Appels d'offres

creation d un acces s...
Budget : 130€
Creation site adulte
Budget : 500€
Modification d-un comp...
Budget : 2 000€

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS