@echo off
chcp 28591 > nul
setlocal enabledelayedexpansion

:: CREE PAR FLAMMROCK

if "%~1"=="" (
  set /a nb_file=0
  for /f "tokens=*" %%a in ('dir /b/s "*.prn"') do (
    set /a nb_file+=1
    call :CONVERT "%%~na" 2 10
  )
  echo;&echo;Nombre de fichiers convertis : !nb_file!
  >nul ping -n -1 localhost
) else (
  call :CONVERT "%~n1" 2 10
  echo;&echo;Nombre de fichiers convertis : 1
  >nul ping -n -1 localhost
)


exit
:CONVERT
set "file_=%~1"&set "file=!file_:(=!"&set "file=!file:)=!"&set r=
echo;Traitement de "%~1.prn" {
if not "!file_!"=="!file!" (
  set r=.ren
  echo;  Caractère indésirable dans le nom de fichier..
  ren "%~1.prn" "!file!!r!.prn"
  echo;  Fichier renommé avec succès ["!file_!.prn" TO "!file!!r!.prn"]
) else (
  set "file=!file_!"
)
if exist "!file!!r!.prn" (
  echo;  Fichier "!file!!r!.prn" trouve !
  set "$min=%~2"
  set "$max=%~3"

  for /l %%a in (!$min!,1,!$max!) do (
    set "space="
    for /l %%b in (0,1,%%a) do set "space=!space! "
    set cell_temp="!space!=;"
    set "cell=!cell_temp! !cell! "
  )
  echo;  Génération du minimum et du maximum avec succès !
  if exist "!file!!r!-convert.csv" del "!file!!r!-convert.csv"
  for /f "tokens=* delims=;" %%a in ('type "!file!!r!.prn"') do (
    set "$temp=%%a"
    for %%b in (!cell!) do set "$temp=!$temp:%%~b!"
    set "$test=!$temp:;=!"
    echo;!$temp! >> !file!!r!-convert.csv
  )
  echo;  Traitement du fichier terminé !
) else (
  echo;"!file!!r!.prn" n'existe pas !
)
echo;}
goto :eof