Наиболее частые ошибки, заметки особенностей программинга BAT файлов, баги интерпретатора*

@echo off
SetLocal EnableDelayedExpansion
 
set len=8181
 
for /L %%C in (1,1,%len%) do (
  set testparam=!testparam!1
)
 
for /L %%C in (1,1,%len%) do (
  set ParamOld=!Param!
  set Param=!Param!1
  rem Не использую кавычки
  if defined ParamOld if !Param!==!ParamOld! (
    Echo Max=%%C
    Goto :break
  )
)
:break
if -----------!testparam!==-----------!Param! echo yes
pause
::Echo %Param%>param.txt
 
::@Echo on
Call :var_count Param count
 
echo Len=%count%
 
pause
goto :eof
 
:var_count
pause
set var=!Param!
pause
:count--
 
set var=!var:~1!
 
set /a count+=1
 
if not defined var (set %2=%count%& exit /b) else (goto :count--)

@echo off
Setlocal EnableDelayedExpansion
 
pause
 
Set STime=%time%
 
::if not defined SomeParam cd.
 
for /L %%A in (1,1,10000000) do (
  if not defined SomeParam rem
)
 
Set ETime=%time%
Call :TimeElapsed "%STime%" "%ETime%" ret
Echo Прошло: %ret% с.
 
pause
 
Set STime=%time%
 
for /L %%A in (1,1,10000000) do (
  if "!SomeParam!"=="" rem
)
 
Set ETime=%time%
Call :TimeElapsed "%STime%" "%ETime%" ret
Echo Прошло: %ret% с.
 
pause
goto :eof
 
:TimeElapsed %1-StartTime %2-EndTime %3-var_result
Call :TimeToMSec "%~1" TimeS_ms
Call :TimeToMSec "%~2" TimeE_ms
Set /A diff=TimeE_ms-TimeS_ms
Set /A diffSS=diff/100
Set /A diffms=%diff% %% 100
Set %3=%diffSS%,%diffms%
Exit /B
 
:TimeToMSec %1-Time 2-var_mSec
For /F "Tokens=1-4 Delims=,:" %%A in ("%~1") do (
  Set /A HH=%%A
  Set MM=1%%B& Set /A MM=!MM!-100
  Set SS=1%%C& Set /A SS=!SS!-100
  Set mS=1%%D& Set /A mS=!mS!-100
)
Set /A %~2=(HH*60*60+MM*60+SS)*100+mS
Exit /B

@echo off
set SomeParam1=0123456789
set n=1
 
for /L %%A in (1,1,10000) do (
  call :label param SomeParam !n!
)
 
pause
goto :eof
 
:label
set %1=!%2%3!
exit /b

@echo off
set SomeParam1=0123456789
set n=1
 
for /L %%A in (1,1,10000) do (
  set param=!SomeParam%n%!
)

@echo off
Setlocal EnableDelayedExpansion
 
::Making 5 KB String
For /L %%C in (1,1,5120) do set String5000=!String5000!1
 
Echo %String5000%
Echo 5 KB String is Ready...
pause>nul
Echo Begin Memory OverLoading :^)
Echo.
 
Set STime=%time%
Set FirstTime=%Stime%
Set /A Step=200
Set /A nStart=1
Set /A nEnd=nStart + Step - 1
Echo # of Variables Memory Loading  Cmd Memory  Time Elapsed    Total Time
Echo ============== ==============  ==========  ============    ==========
 
::Loading 1 GB of Memory = 1024*1024/5=209715,2 variables
For /L %%C in (1,1,209715) do (
  Set %%C=%String5000%
  if %%C==!nEnd! (
    Set /A ML=5*%%C/1024
    For /f "tokens=4* delims=," %%A in (
      'tasklist /FI "IMAGENAME eq cmd.exe" /FO CSV /NH') do (
        Set CmdMemory=%%~B
    )
    Call :TimeElapsed "!STime!" "!time!" ret
    Call :TimeElapsed "%FirstTime%" "!time!" retAll
    Echo .!nStart! - !nEnd! !ML! MB     !CmdMemory! !ret! sec.  !retAll! sec.
    Set /A nStart+=Step
    Set /A nEnd+=Step
    Set Stime=!time!
  )
)
 
pause
goto :eof
 
:TimeElapsed %1-StartTime %2-EndTime %3-var_result
  Call :TimeToMSec "%~1" TimeS_ms
  Call :TimeToMSec "%~2" TimeE_ms
  Set /A diff=TimeE_ms-TimeS_ms
  Set /A diffSS=diff/100
  Set /A diffms=%diff% %% 100
  if "%diffms:~1%"=="" Set diffms=0%diffms%
  Set %3=%diffSS%,%diffms%
Exit /B
 
:TimeToMSec %1-Time 2-var_mSec
  For /F "Tokens=1-4 Delims=,:" %%A in ("%~1") do (
    Set /A HH=%%A
    Set MM=1%%B& Set /A MM=!MM!-100
    Set SS=1%%C& Set /A SS=!SS!-100
    Set mS=1%%D& Set /A mS=!mS!-100
  )
  Set /A %~2=(HH*60*60+MM*60+SS)*100+mS
Exit /B

@echo off
set folder=l:\bash
for /f "delims=" %%A in ('dir "%folder%" /b /a-d') do (
  Call :TakeDate "%folder%\%%A"
)
pause
goto :eof
 
:TakeDate
for /f "tokens=1,2" %%A in ("%~t1") do (
  Echo =================================
  Echo Full FileName  = %~1
  Echo Short FileName = %~nx1
  Echo Date=%%A
  Echo Time=%%B
)
Exit /B

@echo off
set folder=C:\MyMaps
for /f "delims=" %%A in ('dir "%folder%" /b /a-d') do (
  echo ====================
  echo Full file name = %%~dpnxA
  echo Short file name = %%~nxA
  pushd "%folder%"
  for %%b IN ("%%~nxA") DO (
   for /f "usebackq tokens=1*" %%c IN ('%%~tb') DO (echo.DATE = %%~c&echo.TIME = %%~d)
  )
  popd
)
pause
goto :eof
 
:TakeDate
for /f "tokens=1,2" %%A in ("%~t1") do (
  Echo =================================
  Echo Full FileName  = %~1
  Echo Short FileName = %~nx1
  Echo Date=%%A
  Echo Time=%%B
)
Exit /B