Boucle de concaténation de fichier sous dos
Résolu
mc29
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Groaarrr -
Groaarrr -
Bonjour,
j'ai besoin de lancer dans un .bat une concaténation des fichiers présents dans un répertoire et les récuperer dans un seul fichier.
Quelqu'un peut-il m'aider?
Merci d'avance
j'ai besoin de lancer dans un .bat une concaténation des fichiers présents dans un répertoire et les récuperer dans un seul fichier.
Quelqu'un peut-il m'aider?
Merci d'avance
A voir également:
- Boucle de concaténation de fichier sous dos
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
4 réponses
Bonjour,
j'ai besoin de lancer dans un .bat une concaténation des fichiers présents dans un répertoire et les récuperer dans un seul fichier.
Quelqu'un peut-il m'aider?
Merci d'avance
Configuration: wibdows 20001 message(s) posté(s) depuis le lundi 30 mai 2005
merci 1000 fois
j'ai besoin de lancer dans un .bat une concaténation des fichiers présents dans un répertoire et les récuperer dans un seul fichier.
Quelqu'un peut-il m'aider?
Merci d'avance
Configuration: wibdows 20001 message(s) posté(s) depuis le lundi 30 mai 2005
merci 1000 fois
Bonjour,
Vue ta configuration, tu n'es pas obligé d'utiliser un .bat pour faire ta concaténation de fichier.
En passant par un .vbs (qui s'exécute aussi bien qu'un .bat sous windows) cela donne :
repertoire="TON_REPERTOIRE"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ficOUT = FSO.CreateTextFile("FICHIER_RESULTAT")
Set rep=FSO.GetFolder(repertoire)
Set files = rep.Files
for each file In files
Set ficIN = FSO.OpenTextFile(file)
while not ficIN.AtEndOfStream
ficOUT.writeline (ficIN.readline)
wend
ficIN.close
next
ficOUT.close
Vue ta configuration, tu n'es pas obligé d'utiliser un .bat pour faire ta concaténation de fichier.
En passant par un .vbs (qui s'exécute aussi bien qu'un .bat sous windows) cela donne :
repertoire="TON_REPERTOIRE"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ficOUT = FSO.CreateTextFile("FICHIER_RESULTAT")
Set rep=FSO.GetFolder(repertoire)
Set files = rep.Files
for each file In files
Set ficIN = FSO.OpenTextFile(file)
while not ficIN.AtEndOfStream
ficOUT.writeline (ficIN.readline)
wend
ficIN.close
next
ficOUT.close