1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| @echo off
Mode 70,3 & color 0A
>nul chcp 65001
Title Génération Multi fichiers avec des identifiants
Set Identifiants="TOTO/TUTU" "RORO/BABA" "COCO/KIKI" "Hello/HelloWorld" "Chichi/azerty" ^
^ "Bibi/qwerty" "Hackoo/123456" "olees/va1mpire" "ravine68/l231" "wlacroix/2011" ^
^ "jessica/2000" "dgleiber/1eHello" "micr0d0t/15664" "robk33/k85453" "stopp/3333333" ^
^ "debra/scoo123" "bullard/516" "dwagner/j58eb03" "rpollack/n7ob12" "arringtonpm/44gilast" ^
^ "alijb80/only1god" "jazzinjazmin/120595" "chadnolan5790/k5790" "cerberus70/cassie01" "klewis91/cartoon75" ^
^ "janeway49/g85555nd1" "lorettaamposta/dancing1" "rozsea1/pelican12" "rod2fast4u/crslt21" "selenite/ress44" ^
^ "snapongeo/quilts4me" "milesd421/bigboy555" "artistic-1/icecream1" "j2592/dayinara1" "janmckendree/123cjan1" ^
"mlhamby/j9655n022" "mloverine/badgers91" "ktmbiker50/d185b1ke" "ellisc/sun584vil1" "apratt3/alb123any21"
Set "FolderOutput=%~dp0Identifiants"
:: Ici juste on crée un dossier pour regrouper tous les fichiers générés dedans
If Not Exist "%FolderOutput%" MD "%FolderOutput%"
@For %%# in (%Identifiants%) do (
@for /f "tokens=1 delims=/" %%A in ('echo %%~#') do (
Call :Ecrire_Phrase_Base %%# "%FolderOutput%\%%A.txt"
)
)
Explorer "%FolderOutput%" & Exit
::---------------------------------------------------------
:Ecrire_Phrase_Base <Phrase> <Fichier de Sortie>
Cls
echo(
echo Génération en cours de %1 ...
echo Il est nécessaire de rentrer ces identifiants %1>"%~2"
Exit /b
::--------------------------------------------------------- |
Partager