strlen2.9

:strlen2.9  StrVar  [RtnVar]
:: http://ss64.org/viewtopic.php?id=424
  setlocal enableDelayedExpansion
  set "s=!%~1!"
  set len=0
  if defined s for /l %%N in (1,5,8192) do if "!s:~%%N,-%%N!" equ "" (
      set len=%%N
    goto :break
  )
  :break

  if !len! gtr 1 (
    set /a len=2*!len!-12
    for %%E in (!len!) do (
        set s=!s:~%%E!
    )
  )

  if defined s (
    if "!s:~0!" neq "" set /a len=!len!+1
    if "!s:~1!" neq "" set /a len=!len!+1
    if "!s:~2!" neq "" set /a len=!len!+1
    if "!s:~3!" neq "" set /a len=!len!+1
    if "!s:~4!" neq "" set /a len=!len!+1
    if "!s:~5!" neq "" set /a len=!len!+1
    if "!s:~6!" neq "" set /a len=!len!+1
    if "!s:~7!" neq "" set /a len=!len!+1
    if "!s:~8!" neq "" set /a len=!len!+1
    if "!s:~9!" neq "" set /a len=!len!+1
    if "!s:~10!" neq "" set /a len=!len!+1
    if "!s:~11!" neq "" set /a len=!len!+1
  )

  endlocal & if "%~2" neq "" (set %~2=%len%) else echo %len%
exit /b