Fonction Rtrim() en DOS

@echo off

:debut
 set /p w_serv= Chaine ?

echo."%w_serv%"

setlocal enableDelayedExpansion

set VrCompt=-1
 :boucle
 set /a VrCompt+=1
 set test2=!w_serv:~%VrCompt%,1!
 if not "%test2%"=="" goto boucle

for /l %%a in (1,1,%VrCompt%) do (
 if "!w_serv:~-1!"==" " set w_serv=!w_serv:~0,-1!
 )

echo."!w_serv!"

set /p w_quit= (R)ecommencer, (Q)uit ?
 if "%w_quit%"=="R" goto debut