Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[BATCH] LIGNE DE DIFFERENTE COULEUR

Voir le sujet précédent Voir le sujet suivant Aller en bas

[BATCH] LIGNE DE DIFFERENTE COULEUR

Message par Delmar Grande le 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
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Re: [BATCH] LIGNE DE DIFFERENTE COULEUR

Message par Delmar Grande le 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
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum