rem ~~~~~~~~~~~~~~~~~~~~~### DATA ###~~~~~~~~~~~~~~~~~~~~~



rem Juste ici :

(

echo;[Debug]

echo;!map1.render!

echo;---------------------------------

echo;!map1.buffer!

)> debug.log

• graphisme bugées
  
• message d'erreur incompréhensible
  
• "mode con lines=22 cols=44" ne marche pas
  
• les clics avec la souris ne marche pas
  voici quelque photos que montre ces problemme :Spoiler

<# : Batch portion

@echo off & setlocal enabledelayedexpansion



set /p color1=Couleur 1 : 

set /p color2=Couleur 2 : 

set /p color3=Couleur 3 : 

set /p color4=Couleur 4 : 

set /p color5=Couleur 5 : 

set /p color6=Couleur 6 : 



set "menu[0]=Format C:"

set "menu[1]=Send spam to boss"

set "menu[2]=Truncate database *"

set "menu[3]=Randomize user password"

set "menu[4]=Download Dilbert"

set "menu[5]=Hack local AD"



set "default=0"



powershell -noprofile "iex (gc \"%~f0\" | out-string)"

echo You chose !menu[%ERRORLEVEL%]!.



goto :EOF

: end batch / begin PowerShell hybrid chimera #>



$color1 = (Get-Item Env:'color1').Value

$color2 = (Get-Item Env:'color2').Value

$color3 = (Get-Item Env:'color3').Value

$color4 = (Get-Item Env:'color4').Value

$color5 = (Get-Item Env:'color5').Value

$color6 = (Get-Item Env:'color6').Value



$menutitle = "=== MENU ==="

$menuprompt = "Use the arrow keys.  Hit Enter to select."



$maxlen = $menuprompt.length + 6

$menu = gci env: | ?{ $_.Name -match "^menu\[\d+\]$" } | %{

    $_.Value.trim()

    $len = $_.Value.trim().Length + 6

    if ($len -gt $maxlen) { $maxlen = $len }

}

[int]$selection = $env:default

$h = $Host.UI.RawUI.WindowSize.Height

$w = $Host.UI.RawUI.WindowSize.Width

$xpos = [math]::floor(($w - ($maxlen + 5)) / 2)

$ypos = [math]::floor(($h - ($menu.Length + 4)) / 3)



$offY = [console]::WindowTop;

$rect = New-Object Management.Automation.Host.Rectangle `

    0,$offY,($w - 1),($offY+$ypos+$menu.length+4)

$buffer = $Host.UI.RawUI.GetBufferContents($rect)



function destroy {

    $coords = New-Object Management.Automation.Host.Coordinates 0,$offY

    $Host.UI.RawUI.SetBufferContents($coords,$buffer)

}



function getKey {

    while (-not ((37..40 + 13 + 48..(47 + $menu.length)) -contains $x)) {

        $x = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown').VirtualKeyCode

    }

    $x

}



# http://goo.gl/IAmdR6

function WriteTo-Pos ([string]$str, [int]$x = 0, [int]$y = 0,

    [string]$bgc = [console]::BackgroundColor, [string]$fgc = [Console]::ForegroundColor) {

    if($x -ge 0 -and $y -ge 0 -and $x -le [Console]::WindowWidth -and

        $y -le [Console]::WindowHeight) {

        $saveY = [console]::CursorTop

        $offY = [console]::WindowTop      

        [console]::setcursorposition($x,$offY+$y)

        Write-Host $str -b $bgc -f $fgc -nonewline

        [console]::setcursorposition(0,$saveY)

    }

}



function center([string]$what) {

    $what = "    $what  "

    $lpad = " " * [math]::max([math]::floor(($maxlen - $what.length) / 2), 0)

    $rpad = " " * [math]::max(($maxlen - $what.length - $lpad.length), 0)

    WriteTo-Pos "$lpad  $what  $rpad" $xpos $line $color1 $color2

}



function menu {

    $line = $ypos

    center $menutitle

    $line++

    center " "

    $line++



    for ($i=0; $item = $menu[$i]; $i++) {

        # write-host $xpad -nonewline

        $rtpad = " " * ($maxlen - $item.length)

        if ($i -eq $selection) {

            WriteTo-Pos "  > $item <$rtpad" $xpos ($line++) $color3 $color4

        } else {

            WriteTo-Pos " $i`: $item  $rtpad" $xpos ($line++) $color5 $color6

        }

    }

    center " "

    $line++

    center $menuprompt

    1

}



while (menu) {



    [int]$key = getKey



    switch ($key) {



        37 {}  # left or up

        38 { if ($selection) { $selection-- }; break }



        39 {}  # right or down

        40 { if ($selection -lt ($menu.length - 1)) { $selection++ }; break }



        # number or enter

        default { if ($key -gt 13) {$selection = $key - 48}; destroy; exit($selection) }

    }

}

• Redémarrez votre ordinateur et appuyez plusieurs fois sur la touche F8 avant l'apparition du logo Windows.
  
• Dans le menu "Options de démarrage avancées", sélectionnez "Réparer votre ordinateur".
  
• Dans les options de récupération système, choisissez "Restauration du système". Sélectionnez ensuite un point de restauration datant d'avant l'incident afin de restaurer votre système à un état antérieur.
  

@echo off

setlocal enabledelayedexpansion



set "dossier_source=U:\Desktop\dossiertest"



cd "%dossier_source%"



for %%F in (*) do (

    set "fichier=%%~nxF"

    set "premieres_lettres=!fichier:~0,3!"

    

    if not exist "!premieres_lettres!" (

        mkdir "!premieres_lettres!"

    )

    

    move "%%F" "!premieres_lettres!\!fichier!"

)



echo Terminé !

pause

@echo off

setlocal enabledelayedexpansion





set "filename=aa_a345.txt"





set "foldername="





for /l %%i in (0, 1, 100) do (

    rem Get the current character

    set "char=!filename:~%%i,1!"

   



    if "!char!" equ "" goto :endloop

    if "!char!" geq "0" if "!char!" leq "9" goto :endloop

   



    set "foldername=!foldername!!char!"

)



:endloop





echo Folder name: !foldername!



pause

@echo off

setlocal enabledelayedexpansion



set "dossier_source=U:\Desktop\dossiertest"



cd "%dossier_source%"



rem boucle qui parcours les fichiers dans le "dossier_source"

for %%F in (*) do (

    set "fichier=%%~nxF"

   set "foldername="



   rem boucle qui parcours les caractères du fichier testé actuellement(ca bug dés ici)

   for /l %%i in (0, 1, 100) do (

          set "char=!fichier:~%%i,1!"

      if "!char!" equ "" goto :endloop

      if "!char!" geq "0" if "!char!" leq "9" goto :endloop

      

      set "foldername=!foldername!!char!"

   )

   :endloop

   

    if not exist "!foldername!" (

        mkdir "!foldername!"

    )

    

    move "%%F" "!foldername!\!fichier!"

)



echo Terminé !

pause