begin process at 2010 02 09 16:17:57
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

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

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


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Auteur : mike_vk

Ecrire un message privé
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é.


 Sources de la même categorie

COULEUR HEXADECIMAL par tmcuh
Source avec Zip ITERATION par DDU de AtoutFox
CRYPTE/DECRYPTE par FredArmoni
CONTRÔLE DU NUMÉRO DE TVA (BELGE) par johnmary
Source avec Zip IMPLÉMENTION EN VISUALFOXPRO DE L'ALGORITHME DE HACHAGE SHA1 par c_chenavier

 Sources en rapport avec celle ci

RETROUVER UN FICHIER INDEX (CDX) À ZÉRO par aumeric
COMMENT OBTENIR L'INFORMATION SOMMAIRE D'UN FICHIER AVEC WIN... par Mike Gagnon
COMMENT ANALYSER LE CHEMIN D'UN FICHIER AVEC WINDOWS SCRIPTI... par Mike Gagnon
COMMENT DÉPLACER UN FICHIER AVEC WINDOWS SCRIPTING HOST par Mike Gagnon
COMMENT MODIFIER L'ATTRIBUT D'UN FICHIER AVEC WINDOWS SCRIPT... par Mike Gagnon

Commentaires et avis

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 dans le forum

re-selection d'enregistrement [ par brunaux ] dans le 1er fichier il y a donc 75 variables,les 4 premieres sont de longueur differentes et toutes de type caractere, et les 71 autres dont toutes de Export d'une requête en xls [ par crampe666 ] Salut à tous,Je cherche (et même j'arrive) à exporter les résultats d'une requête dans un fichier excel.Voici mon bout de cod j'ai besoin de votre aide dans une chose importante dans foxpro [ par jbenzakour ] je suis programmeur de vb et je ne connait rien dans le foxpro mais dans la société ou je travail se trouve un programme de la paie avec fox copier ver excel [ par brunaux ] Bonjour à tousComment faire lorsque l'on à un fichier de 30 0000 (ou plus) enregistrements et que l'on veut le copier en excel et avoir importation txt --> fox pro [ par gregorian ] Bonjour, à tous, J'aurais voulu savoir si il existait une fonction permettant de lancer la commande d'importation d'un fichier txt en dbf (un peu prob avec un append from [ par gregorian ] Bonjour, J'ai été voir cette fonction, et il me semble qu'elle répond tout a fait à mes attentes sauf un petit problème.Donc, Form [ par Domatreal ] SalutJe suis un novice en Visual FoxPro. J'ai la version 9.0. Je programme par plaisir. J'ai creer une forme avec laquelle j'ouvre&nbsp Fichier Excel [ par Domatreal ] Salut Est-il possible d'ouvrir un fichier excel (qui existe deja) avec foxpro, et de le modifier toujours dans foxpro?Merci d'avanceDomatrea Base de données VB !!! [ par spoutnic_37 ] aloha , Je dois récuperer des informations clients et d'intervention d'un logiciel écrit en VB. Les info sont stockées dans des fichie Application mullti-fichier [ par jvdh ] Salut a tous, Je programme depuis environ 2 ans en Visual Foxpro (version 8) et j'ai pu elaborer plusieurs systemes de gestion tant monoposte qu'en r


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,888 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales