Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Résolu] Texte lettre par lettre
Auteur Message
Répondre en citant
Message [Résolu] Texte lettre par lettre 
Bonjour à tous c'est Wavern2000.
Alors je voudrais faire un texte qui s'affiche lettre par lettre.
voici le code que j'ai fait (ça vous donneras une idée de ce que j'ai besoin comme effet)
Code:
rem /!\ Initialisation/!\
@echo off
cls
Title Batch
color F

rem /!\ Code /!\
:effet
cls
echo M
ping localhost -n 1>nul
cls
echo Mo
ping localhost -n 1>nul
cls
echo Moy
ping localhost -n 1>nul
cls
echo Moye
ping localhost -n 1>nul
cls
echo Moyen
ping localhost -n 1>nul
cls
echo Moyen
ping localhost -n 1>nul
cls
echo Moyen d
ping localhost -n 1>nul
cls
echo Moyen de
ping localhost -n 1>nul
cls
echo Moyen de
ping localhost -n 1>nul
cls
echo Moyen de r
ping localhost -n 1>nul
cls
echo Moyen de rac
ping localhost -n 1>nul
cls
echo Moyen de racc
ping localhost -n 1>nul
cls
echo Moyen de racco
ping localhost -n 1>nul
cls
echo Moyen de raccou
ping localhost -n 1>nul
cls
echo Moyen de raccour
ping localhost -n 1>nul
cls
echo Moyen de raccourc
ping localhost -n 1>nul
cls
echo Moyen de raccourci
ping localhost -n 1>nul
cls
echo Moyen de raccourcir
ping localhost -n 1>nul
cls
echo Moyen de raccourcire
ping localhost -n 2 >nul
goto effet


Je me demandais s'il y avait la possibilitée de raccourcir ce code ?

Merci.



Dernière édition par Wavern2000 le Jeu 31 Mai 2012 - 20:04; édité 1 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Résolu] Texte lettre par lettre 
Bonjour,

Dans un premier temps tu peux aller voir ce post qui parle du même sujet.

sinon voila ce que je te propose:
Code:

@echo off
set tmp="%windir%\tempo.vbs"
if not exist %tmp% echo>%tmp% wscript.Sleep wscript.Arguments(0^)
setlocal enabledelayedexpansion
call:text "ton texte ici" "80"
pause
exit /b 0

:text
   set i=0
   set var=%~1
   :boucle
      set /a i+=1
      cls&echo !var:~0,%i%!
      if "!var:~%i%!"=="" goto:eof
      cscript %tmp% %~2 >nul 2>&1
   goto boucle





______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [Résolu] Texte lettre par lettre 
Merci beaucoup



Répondre en citant
Message [Résolu] Texte lettre par lettre 
je pose ma méthode au cas ou ^^

Code:

@echo off &SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
Call :DefText "Moyen de raccourcire" 1
Pause>NUL &Exit

:DefText
Set "INTROText=%~1"
FOR /f "tokens=1* delims=[]" %%L in ('"%comspec% /u /c echo:%INTROText%|more|find /n /v """') do Set /a "len=%%L-5"
FOR /l %%$ in (1,1,%len%) do Cls &Echo !INTROText:~0,%%$! &@ping localhost -n %~2 >nul
Goto :EOF





______________________________________________________


Message [Résolu] Texte lettre par lettre 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch