ТРАНСЛИТЕРАЦИЯ РУССКОГО ТЕКСТА В ЛАТИНИЦУ ВЕРХНИЙ НИЖНИЙ РЕГИСТР

@echo off
@chcp 1251>nul
ECHO ТРАНСЛИТЕРАЦИЯ РУССКОГО ТЕКСТА В ЛАТИНИЦУ ВЕРХНИЙ НИЖНИЙ РЕГИСТР
ECHO.
REM https://vk.com/s/v1/doc/d4GrukBzWQVeK7EEvi9EHzof2PZEEYxchfATXUU1kZ1IEkzKL-Q :START_TRANSLIT
ECHO Введите текст с клавиатуры, и нажмите клавишу Enter
ECHO.
set /P "STR=Enter something:"
REM строку в верхний регистр
for /f "usebackq delims=" %%I in (`powershell "\"%STR%\".toUpper()"`) do set "upper=%%~I"
REM строку в нижний регистр
for /f "usebackq delims=" %%I in (`powershell "\"%STR%\".ToLower()"`) do set "lower=%%~I"
REM ТРАНСЛИТЕРАЦИЯ РУССКОГО ТЕКСТА В ЛАТИНИЦУ
for /f "delims=" %%a in ("%STR%") do (
set translit=%%a & call :2
)
exit /b
:2
set translit=%translit:а=a%
SET translit=%translit:б=b%
SET translit=%translit:в=v%
SET translit=%translit:г=g%
SET translit=%translit:д=d%
SET translit=%translit:е=e%
SET translit=%translit:ё=jo%
SET translit=%translit:ж=zh%
SET translit=%translit:з=z%
SET translit=%translit:и=i%
SET translit=%translit:й=j%
SET translit=%translit:к=k%
SET translit=%translit:л=l%
SET translit=%translit:м=m%
SET translit=%translit:н=n%
SET translit=%translit:о=o%
SET translit=%translit:п=p%
SET translit=%translit:р=r%
SET translit=%translit:с=s%
SET translit=%translit:т=t%
SET translit=%translit:у=u%
SET translit=%translit:ф=f%
SET translit=%translit:х=h%
SET translit=%translit:ц=ts%
SET translit=%translit:ч=ch%
SET translit=%translit:ш=sh%
SET translit=%translit:щ=sch%
SET translit=%translit:ъ=%
SET translit=%translit:ы=y%
SET translit=%translit:ь='%
SET translit=%translit:э=e%
SET translit=%translit:ю=ju%
SET translit=%translit:я=ja%
ECHO.
ECHO %STR%
ECHO %translit%
REM строку транслит в верхний регистр
for /f "usebackq delims=" %%I in (`powershell "\"%translit%\".toUpper()"`) do set "translit_upper=%%~I"
ECHO %translit_upper%
ECHO %upper%
ECHO %lower%
ECHO.
ECHO.>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO _____________________________________>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO %STR%>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO %translit%>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO %translit_upper%>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO %upper%>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO %lower%>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO _____________________________________>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
ECHO.>>"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
set STR=
"ТРАНСЛИТЕРАЦИЯ_РУССКОГО_ТЕКСТА_В_ЛАТИНИЦУ_ВЕРХНИЙ_НИЖНИЙ_РЕГИСТР.txt"
goto :START_TRANSLIT
REM EXIT
REM pause