Fonction Len() en DOS

@echo off

:debut
set fic_long_car=c:\temp\fic_long_car.txt

set /p w_serv= Chaine ?

echo. »%w_serv% »

:: Ecrit dans le fichier TEXTE.TXT
ECHO %w_serv%>%fic_long_car%

:: Soustrait à la taille du fichier TEXTE.TXT 2
FOR %%A IN (%fic_long_car%) DO SET /A CHAR=%%~zA-2

:: Supprime TEXTE.TXT
rem DEL /Q %fic_long_car% 2>NUL >NUL

:: Saute une ligne; Affiche le nombre de caractères; Saute une ligne
ECHO. &ECHO Nombre de caractŠres dans le fichier %fic_long_car%: %CHAR% &ECHO.

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