setlocal enabledelayedexpansion
set "count=0"
set "string=Hello World"
:loop
if "!string:~%count%,1!" neq "" set /a "count+=1" & goto loop
echo:La cadena "%string%" contiene %count% caracteres.

@echo off
:code
set /p "cadena=Cadena : "
if not defined cadena goto:code
set /a "contador=0"
:bucle
set "cadena=%cadena:~1%"
set /a "contador+=1"
if defined cadena goto:bucle
echo Longitud : %contador%
pause>nul
exit /b 0