[BATCH] LIGNE DE DIFFERENTE COULEUR

par **Delmar Grande** Ven 14 Juin 2013, 22:11

Code:: @echo off title colorindo Set "texto=Bonjour tout le monde." :apagar set fg=0 set bg=9 :start if %fg%==10 goto apagar if %bg% lss 0 goto apagar Call :Color %bg%%fg% texto set /a fg+=1 set /a bg-=1 goto start :Color :: Exemplo de uso: Call :Color 9b variavel SetLocal EnableExtensions EnableDelayedExpansion If Not Defined ' (Subst ': "%Temp%" >Nul For /F "delims=;" %%$ in ( '"Prompt;$H;&For %%# in (1) Do Cd."') Do Set "'=%%$" Set /P "=."<Nul >"%Temp%\'") Pushd "%Cd%" &': &Set "l=-1" &Set "s=" Set "l=-1" &Set "b=%~1" &Set "t=!%~2!" If Defined t (Set l=0 &Set "t=!t:^^=^!" For %%# in (8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1) Do (Set /A "l|=%%#" For %%$ In (!l!) Do If "!t:~%%$,1!"=="" Set /A "l&=~%%#")) For /L %%# in (0,1,%l%) do (Set "c=!t:~%%#,1!" &Set "e=0" If !c! Equ / (Set e=1) Else If !c! Equ \ ( Set e=1) Else If !c! Equ : (Set e=1) If !e! Equ 0 (Set "s=!s!!c:"=\"!") Else ( If defined s (Findstr /A:%b% "." "!s!\..\'" Nul Set /P "=%'%%'%%'%%'%%'%%'%%'%"<Nul &Set s=) If !c! Neq : (Findstr /A:%b% "." "!c!..\'" Nul Set /P "=%'%%'%%'%%'%%'%%'%"<Nul ) Else (Findstr /A:%b% "." "!c!\..\'" Nul Set /P "=%'%%'%%'%%'%%'%%'%%'%"<Nul))) If defined s (Findstr /A:%b% "." "!s!\..\'" Nul Set /P "=%'%%'%%'%%'%%'%%'%%'%"<Nul) Popd &Goto :Eof

par **Delmar Grande** Ven 14 Juin 2013, 22:43

Menu colorido

Code:: @echo off cls call :Color_ir 1D "Ola Mundo" call :Color_ir 1A "Hello world" call :Color_ir 0A "Bonjour tout le monde" CALL :Color_ir 0F "Pressione qualquer tecla para sair...." CALL :Color_ir 0E "Appuyez sur n'importe quelle touche pour quitter...." PAUSE > NUL goto :EOF ::Função do Boss :Color_ir mkdir $temp || (Exit /b 2) pushd $temp || (rmdir $temp & Exit /b 1) for /f "delims=" %%. in (' "%ComsPec% /K Prompt $h$h <&1" ') do >o_o Echo %%. Call:Tex_to %1 %2 popd rmdir /S /Q $temp Endlocal & Exit /b 0 :Tex_to >%2 (set/P=+) <&1 findstr /a:%1 + %2 con type o_o GOTO :EOF

Re: [BATCH] LIGNE DE DIFFERENTE COULEUR