Index du Forum
Se connecter pour vérifier ses messages privés
Lecture répertoire et range le rapport en colonne


 
Poster un nouveau sujet   Répondre au sujet     Index du Forum » Langages Informatique » Batch Sujet précédent :: Sujet suivant  
Lecture répertoire et range le rapport en colonne
 MessagePosté le: Mer 11 Sep - 14:07 (2013) Répondre en citant  
Message
  Vulcain
Adm-Fondateur
Adm-Fondateur


Hors ligne

Inscrit le: 26 Sep 2007
Messages: 4 468
Niveau Général Informatique:
Estimation Protection:
Navigateur: FireFox
Masculin Bélier (21mar-19avr) 虎 Tigre
Point(s): 4 731
Moyenne de points: 1,06
Pare-feu: Comodo
Autre: Malwarebytes Pro

PublicitéSupprimer les publicités ?
Bonjour,

Un petit programme de lecture de répertoire et édite un rapport en colonne


Code:

:: Programme personnel Vulcain
:: Version du 27-08-2013
@echo off
:: efface ecran
cls
:: Donne titre a la fenetre CMD
Title Lecture Repertoire
:: Defini la taille de la fenetre CMD
mode con cols=80 lines=5
:: Donne la couleur du fond et ecriture de la fenetre CMD
color 9F
:: Defini  le type de variable utilisee
setlocal enabledelayedexpansion enableextensions
:: définir le répertoire
pushd "c:\"
:: Supprime le rapport pour mettre à jour le suivant
del %cd%RapportRep.txt
:: Affichage dans la fenetre CMD
echo  %USERNAME% je recherche les fichiers du r‚pertoire %cd%
echo  en cours .........
set alignement=................................................
:: recherche les noms du repertoire
for /f "delims=" %%i In ('dir /b "%CD%"') Do set CheminRep=%CD%%%i& call :detailRep
goto fin

:: Procedure definissant le contenu du detaille de lignes lues dans le repertorie
:detailRep
:: recherche la taille du fichier trouvé ,le caractere _ ne peux pas etre remplace par espace fonctionne pas
for /f "tokens=1,2,3,4" %%i in ('dir "%CheminRep%" ^| findstr /c:"fichier(s)"') do (
    set TitreFichier=%%j
    set NombreFichier=%%i________
    set xoctet=%%k_______________
    set xtexte=%%l
)
:: remplace dans octets apres lecture le caractere y par espace
set xoctet=%xoctet:ÿ=.%

:: Entête du rapport
if not exist %cd%RapportRep.txt (
echo . > %cd%RapportRep.txt
echo Utilisateur : %USERNAME% >> %cd%RapportRep.txt
echo ============================================================================== >> %cd%RapportRep.txt
echo .                                                                              >> %cd%RapportRep.txt
echo .  Nom  des fichiers                                           Nombres fichiers                               Taille du fichier >> %cd%RapportRep.txt
echo .  du repertoire : %CD%                                                        >> %cd%RapportRep.txt
echo ============================================================================== >> %cd%RapportRep.txt
)
:: le découpage et la définition des variables avec _ est pour établir un centrage du rapport.
:: Constitution des lignes du rapport
echo %CheminRep%  >> %cd%RapportRep.txt
echo ................................................................  %NombreFichier:~0,8%  %TitreFichier%                     %xoctet:~0,15% %xtexte% >> %cd%RapportRep.txt

echo _________________________________________________________________________________________   >> %cd%RapportRep.txt

goto :eof

:fin
start %cd%RapportRep.txt
popd
exit



En informatique, bien souvent le programme dépasse son concepteur, c'est que le logiciel fait quelque chose qui ne lui est pas demandé. Protégez vous : Avast





Lecture répertoire et range le rapport en colonne
 MessagePosté le: Aujourd’hui à 06:04 (2017)  
Message
  Contenu Sponsorisé







Poster un nouveau sujet   Répondre au sujet     Index du Forum » Batch

Page 1 sur 1
Toutes les heures sont au format GMT - 1 Heure

Montrer les messages depuis:

  

Sauter vers:  

Portail | Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2017 phpBB Group Traduction par : phpBB-fr.com