Словесное описание номера в цикле FOR - CMD/BAT - Ответ 4115239

@echo off
chcp 1251>nul
setlocal enabledelayedexpansion
set /p mychislo=Введите число^:     
call :chislos !mychislo!
echo.!mychislo!
pause>nul
exit /b
:chislos
setlocal enabledelayedexpansion
set first1=*один*два*три*четыре*пять*шесть*семь*восемь*девять
set first2=*десять*двадцать*тридцать*сорок*пятьдесят*шестьдесят*семьдесят*восемьдесят*девяносто
set first3=*сто*двести*триста*четыреста*пятьсот*шестьсот*семьсот*восемьсот*девятьсот
set though=*одна тысяча*две тысячи*три тысячи*четыре тысячи*пять тысяч*шесть тысяч*семь тысяч*восемь тысяч*девять тысяч
set noth=тысяч
set million=*один миллион*два миллиона*три миллиона*четыре миллиона*пять миллионов*шесть миллионов*семь миллионов*восемь миллионов*девять миллионов
set nomil=миллионов
if "%~1"=="" (exit /b)
set chislodis="%~1"
set chislobuk=
call :strlength !chislodis!
set length_=!strlength_!
for /l %%a IN (!length_!,-1,1) DO (
 set /a cifra1=!length_!-%%~a+1
 set /a tempr=!cifra1!-1
 set /a tempr2=!tempr!/3
 set /a raz=!tempr2!+1
 set /a ost1=!cifra1!/3
 set /a ost2=3*!ost1!
 set /a counter=!cifra1!-!ost2!
 if !counter!==0 (set counter=3)
 call :disparce !chislodis! %%~a !counter! !raz!
 set chislobuk=!stringback! !chislobuk!
)
echo !chislobuk!
exit /b
:strlength
set string_q12e=%~1
set counter_0121=0
:again_r0067
if "!string_q12e:~%counter_0121%,1!"=="" (set strlength_=!counter_0121!&exit /b)
set /a counter_0121=!counter_0121!+1
goto :again_r0067
exit /b
:disparce
set cifra=%~1
set stringback=0
set /a razn=%~2-1
set cifra=!cifra:~%razn%,1!
set counterzz=1
:againzz
if "%~4"=="1" (
 if "%~3!"=="1" (set chisla_tmp=!first1!)
 if "%~3!"=="2" (set chisla_tmp=!first2!)
 if "%~3!"=="3" (set chisla_tmp=!first3!)
)
if "%~4"=="2" (
 if "%~3!"=="1" (set chisla_tmp=!though!)
 if "%~3!"=="2" (set chisla_tmp=!first2!)
 if "%~3!"=="3" (set chisla_tmp=!first3!)
)
if "%~4"=="3" (
 if "%~3!"=="1" (set chisla_tmp=!million!)
 if "%~3!"=="2" (set chisla_tmp=!first2!)
 if "%~3!"=="3" (set chisla_tmp=!first3!)
)
set 4tt=%~4
if !4tt! GTR 3 (exit /b)
:againzzz
for /f "usebackq tokens=1* delims=*" %%a IN ('!chisla_tmp!') DO (
 if "!counterzz!"=="!cifra!" (set stringback=%%~a)
 set /a counterzz=!counterzz!+1
 set chisla_tmp=%%~b
)
if "!chisla_tmp!"=="" (goto :nextzz) else (goto :againzzz)
:nextzz
if "%~4"=="2" (
 if "%~3"=="1" (
  if "!stringback!"=="0" (set stringback=!noth!)
 )
)
if "%~4"=="3" (
 if "%~3"=="1" (
  if "!stringback!"=="0" (set stringback=!nomil!)
 )
)
if "!stringback!"=="0" (set stringback=)
exit /b