begin process at 2010 07 29 20:57:01
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
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 :6 501
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
Toutes les sources de la catégorie Divers

 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...

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

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 : 0,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)