@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"
  )
  echo;&echo;Nombre de fichiers convertis : !nb_file!
  >nul ping -n -1 localhost
) else (
  call :CONVERT "%~n1"
  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 !
  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" & set "$temp=!$temp:"='!"
    for %%b in ("  =;" "    =;" " =;" " =;") do set "$temp=!$temp:%%~b!"
    set "$temp=!$temp:'="!"
    echo;!$temp! >> !file!!r!-convert.csv
  )
  echo;  Traitement du fichier terminé !
) else (
  echo;"!file!!r!.prn" n'existe pas !
)
echo;}
goto :eof