Discussion :

[reremoki]

Il n'y a personne pour m'aider??
Merci.
Reremoki.

[sachadee]

Voici une autre solution posté par mon ami Delmar Grande sur www.bbat.forumeiros.com en batch pur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
  

@Echo Off  
  :HInput    
  SetLocal DisableDelayedExpansion
Echo Entrez votre Code :
   Set "Line="
   Rem Salvar carater 0x08 na variável BS
   For /F %%# In (
   '"Prompt;$H&For %%# in (1) Do Rem"'
   ) Do Set "BS=%%#"
  
  :HILoop
   Set "Key="
   For /F "delims=" %%# In (
   'Xcopy /W "%~f0" "%~f0" 2^>Nul'
   ) Do If Not Defined Key Set "Key=%%#"
   Set "Key=%Key:~-1%"
   SetLocal EnableDelayedExpansion
   If Not Defined Key Goto :HIEnd
  If %BS%==^%Key% (Set /P "=%BS% %BS%" <Nul
   Set "Key="
   If Defined Line Set "Line=!Line:~0,-1!"
   ) Else Set /P "=*" <Nul
   If Not Defined Line (EndLocal &Set "Line=%Key%"
   ) Else For /F delims^=^ eol^= %%# In (
   "!Line!") Do EndLocal &Set "Line=%%#%Key%"
  Goto :HILoop
  
  :HIEnd
   Echo(
Echo Votre Code est :  "!Line!"
   Pause
   Goto :Eof